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
TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|