Accueil > > > DECRYPTER LES PWLS
DECRYPTER LES PWLS
Information sur la source
Description
Voila une fonction qui dcrypte les mdp des pwls . Ne marche que sur Win9x et Me puisque NT/2000/XP n'utilise pas les pwls. D'ailleurs si qq'un c'est comment les decrypter >>> MAIL ! Il suffit d'appeller la fonction GetPasswords() et tous les infos et mdps sont ajoutés à une list1 se trouvant sur la form1. Bonne prog!
Source
- 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
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
Conclusion
Questions ? N'hesitez pas à me mailez et à laisser vos commentaires !!
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
cryptage des pwls [ par NV ]
J'aimerais avoir l'algorithme des pwls, si possible en C ou C++ mais si c'est en VB je me débrouillerais Merci d'avance.NV
tableau! a l aide! [ par shikly ]
salut tout le monde!bon bha voila j ai un ptit probleme :je voudrais faire un tutos sur la crypto mais bon ayand des bases en vbs et en javascript!je
probleme fichier crypté [ par bybig ]
Bonjour En fait j'ai un petit probleme avec un log, c'est Flash decompiler. en fait le probleme c'est que le code est crypté en ASCII ( me semble ) et
decrypter un fichier RAR [ par lylou972 ]
hello, j'ai perdu mon petit ami dans un accident de voiture il y a 3 mois et j'ai pu récuperer son disque dur ou il avait stocké toutes nos photos et
crypter/decrypter image insérées dans RichTextBox [ par naim1970 ]
naim1970
Un Moyen de Déchiffrer un code ? [ par reacen ]
Salut, Je me demander si il y a un moyen de Decrypter Un Code, depuis qulques exemples ?EX:Le Code: 1TTQLOXai8e0X_6W43YClef De Decryptage: gcbzvmyjqwl
|
Derniers Blogs
COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE?COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL
Avec EF, les vues doivent être mappées sur des entity types. Le problème c'est que les entity types doivent avoir une clé. Avec EF, nous avons les complex type qui n'ont pas de clé mais les vues ne peuvent pas être mappées dessus. Avec EF4, il est possibl...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL?[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson
Certain d'entre vous on peut être vécu cette situation embarrassante après quelques temps passer avec WF4 : Au début avec mon " ActivityDesigner" , tout allait bien. Et puis un jour j'ai au des problèmes de " Binding" . Alors nous sommes allé sur le site ...
Cliquez pour lire la suite de l'article par JeremyJeanson MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ?MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ? par junarnoalg
La prochaine session de MyTIC aura lieu à Namur, le 23 mars prochain. Pendant presque une heure, nous parlerons de SharePoint 2010. Voici un aperçu du programme.
Accueil : 17h30 Début de la session : 18h00 - Les nouvelles int...
Cliquez pour lire la suite de l'article par junarnoalg
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|