RECUPERER LES ACCOMPTES INTERNET D'UNE MACHINE (SANS API)

Signaler
Messages postés
12
Date d'inscription
vendredi 5 octobre 2001
Statut
Membre
Dernière intervention
24 juin 2002
-
Messages postés
3
Date d'inscription
mercredi 5 novembre 2003
Statut
Membre
Dernière intervention
6 novembre 2003
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/3743-recuperer-les-accomptes-internet-d-une-machine-sans-api

Messages postés
3
Date d'inscription
mercredi 5 novembre 2003
Statut
Membre
Dernière intervention
6 novembre 2003

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
Messages postés
412
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
7 avril 2008
1
pas clair tout ca, je n'ai rien compris
Messages postés
12
Date d'inscription
vendredi 5 octobre 2001
Statut
Membre
Dernière intervention
24 juin 2002

Shiva va voir tes messages je t'est repondu
Messages postés
97
Date d'inscription
vendredi 28 décembre 2001
Statut
Membre
Dernière intervention
1 décembre 2003

JE N'AI PAS BIEN COMPRIS TON TRUC
LE FICHIER IEA.DAT N'ARRETE PAS D'AUGMENTEZ DE CAPACITE (60 MEGA)
Messages postés
12
Date d'inscription
vendredi 5 octobre 2001
Statut
Membre
Dernière intervention
24 juin 2002

'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