RECUPERER LES ACCOMPTES INTERNET D'UNE MACHINE (SANS API)
Jeje Software®
Messages postés12Date d'inscriptionvendredi 5 octobre 2001StatutMembreDernière intervention24 juin 2002
-
24 juin 2002 à 13:26
jejegrossoft
Messages postés3Date d'inscriptionmercredi 5 novembre 2003StatutMembreDernière intervention 6 novembre 2003
-
6 nov. 2003 à 01:11
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
jejegrossoft
Messages postés3Date d'inscriptionmercredi 5 novembre 2003StatutMembreDernière intervention 6 novembre 2003 6 nov. 2003 à 01:11
Salut
Ma source permet de recuperer
Le nom d'utilisateur de connexion
Le mot de passe de connexion
Et le numero de telephone du serveur
MAIS sous Win98
Elle est un peu brouillon mais pas peu faire autrement en ce temps la
Avec l'ADSL et WinXP elle sert plus a grand chose JUSTE pour l'acces a la base des registres
Site avec que des astuces sur la base des registres
http://www.regedit.com ET APRES VOUS REVENEZ TOUT DE SUITE SUR VBFRANCE OK!!! :):):):):):):)
BON PROG ET BONNE PRISE DE TETE
Sirocooo
Messages postés412Date d'inscriptionmercredi 19 décembre 2001StatutMembreDernière intervention 7 avril 20081 17 déc. 2002 à 21:59
pas clair tout ca, je n'ai rien compris
Jeje Software®
Messages postés12Date d'inscriptionvendredi 5 octobre 2001StatutMembreDernière intervention24 juin 2002 24 juin 2002 à 15:31
Shiva va voir tes messages je t'est repondu
cs_SHIVA
Messages postés97Date d'inscriptionvendredi 28 décembre 2001StatutMembreDernière intervention 1 décembre 2003 24 juin 2002 à 14:18
JE N'AI PAS BIEN COMPRIS TON TRUC
LE FICHIER IEA.DAT N'ARRETE PAS D'AUGMENTEZ DE CAPACITE (60 MEGA)
Jeje Software®
Messages postés12Date d'inscriptionvendredi 5 octobre 2001StatutMembreDernière intervention24 juin 2002 24 juin 2002 à 13:26
'P'tit assez discret met moins de 2 secondes a ce creer
'
'BIEN FAIRE SA SAUVEGARDE DE LA BASE DES REGISTRES AVANT SINON
'BONNE GALERE POUR RETAPER TOUTE VOTRE CONFIG DE CONNECTION AU NET
'
'Renommer C:IEA.DAT en C:IEA.REG
'Puis importer le dans votre base des registres
'Et utiliser la function GetPasswords pour connaitre le login et le pass :
'Dans la form
' Metter un listbox nommé : List1
'Dans un module
' PS : Ce qui suit n'est pas de moi
Declare Function WNetEnumCachedPasswords Lib "mpr.dll" (ByVal s As String, ByVal i As Integer, ByVal b As Byte, ByVal proc As Long, ByVal l As Long) As Long
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Type PASSWORD_CACHE_ENTRY
cbEntry As Integer
cbResource As Integer
cbPassword As Integer
iEntry As Byte
nType As Byte
abResource(1 To 1024) As Byte
End Type
Public Function callback(X As PASSWORD_CACHE_ENTRY, ByVal lSomething As Long) As Integer
Dim nLoop As Integer
Dim cString, Resource, ResType, Password As String
Dim ccomputer
ResType = X.nType
For nLoop = 1 To X.cbResource
If X.abResource(nLoop) <> 0 Then
cString = cString & Chr(X.abResource(nLoop))
Else
cString = cString & " "
End If
Next
Resource = cString
cString = ""
For nLoop = X.cbResource + 1 To (X.cbResource + X.cbPassword)
If X.abResource(nLoop) <> 0 Then
cString = cString & Chr(X.abResource(nLoop))
Else
cString = cString & " "
End If
Next
Password = cString
cString = ""
Form1.List1.AddItem Resource
Form1.List1.AddItem Password
callback = True
End Function
Public Sub GetPasswords()
Dim nLoop As Integer
Dim cString As String
Dim lLong As Long
Dim bByte As Byte
bByte = &HFF
nLoop = 0
lLong = 0
cString = ""
Call WNetEnumCachedPasswords(cString, nLoop, bByte, AddressOf callback, lLong)
End Sub
6 nov. 2003 à 01:11
Ma source permet de recuperer
Le nom d'utilisateur de connexion
Le mot de passe de connexion
Et le numero de telephone du serveur
MAIS sous Win98
Elle est un peu brouillon mais pas peu faire autrement en ce temps la
Avec l'ADSL et WinXP elle sert plus a grand chose JUSTE pour l'acces a la base des registres
Site avec que des astuces sur la base des registres
http://www.regedit.com ET APRES VOUS REVENEZ TOUT DE SUITE SUR VBFRANCE OK!!! :):):):):):):)
BON PROG ET BONNE PRISE DE TETE
17 déc. 2002 à 21:59
24 juin 2002 à 15:31
24 juin 2002 à 14:18
LE FICHIER IEA.DAT N'ARRETE PAS D'AUGMENTEZ DE CAPACITE (60 MEGA)
24 juin 2002 à 13:26
'
'BIEN FAIRE SA SAUVEGARDE DE LA BASE DES REGISTRES AVANT SINON
'BONNE GALERE POUR RETAPER TOUTE VOTRE CONFIG DE CONNECTION AU NET
'
'Renommer C:IEA.DAT en C:IEA.REG
'Puis importer le dans votre base des registres
'Et utiliser la function GetPasswords pour connaitre le login et le pass :
'Dans la form
' Metter un listbox nommé : List1
'Dans un module
' PS : Ce qui suit n'est pas de moi
Declare Function WNetEnumCachedPasswords Lib "mpr.dll" (ByVal s As String, ByVal i As Integer, ByVal b As Byte, ByVal proc As Long, ByVal l As Long) As Long
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Type PASSWORD_CACHE_ENTRY
cbEntry As Integer
cbResource As Integer
cbPassword As Integer
iEntry As Byte
nType As Byte
abResource(1 To 1024) As Byte
End Type
Public Function callback(X As PASSWORD_CACHE_ENTRY, ByVal lSomething As Long) As Integer
Dim nLoop As Integer
Dim cString, Resource, ResType, Password As String
Dim ccomputer
ResType = X.nType
For nLoop = 1 To X.cbResource
If X.abResource(nLoop) <> 0 Then
cString = cString & Chr(X.abResource(nLoop))
Else
cString = cString & " "
End If
Next
Resource = cString
cString = ""
For nLoop = X.cbResource + 1 To (X.cbResource + X.cbPassword)
If X.abResource(nLoop) <> 0 Then
cString = cString & Chr(X.abResource(nLoop))
Else
cString = cString & " "
End If
Next
Password = cString
cString = ""
Form1.List1.AddItem Resource
Form1.List1.AddItem Password
callback = True
End Function
Public Sub GetPasswords()
Dim nLoop As Integer
Dim cString As String
Dim lLong As Long
Dim bByte As Byte
bByte = &HFF
nLoop = 0
lLong = 0
cString = ""
Call WNetEnumCachedPasswords(cString, nLoop, bByte, AddressOf callback, lLong)
End Sub