Oncelikle Programın amacı Bilgisayarınızda onceden kayıtlı olan şifreleri bulup gormenizi sağlamaktır. Gecelim Programın yapımına.....

1)Once bir modul oluşturun.
2)Bir form olusturun ve uzerine bir tane Listbox oluşturun.

Aşağıdaki Kodları Module Ekleyin.

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

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 As String
Dim ccomputer
Dim Resource As String
Dim ResType As String
Dim Password As String
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 = ""

If X.nType 6 Then GoTo 66

If UCase$(Left$(Resource, 5)) = "*RNA\" Then
Resource = Right$(Resource, Len(Resource) - 5)
End If

Form1.List1.AddItem Resource & " -------- " & Password
66
callback = True

End Function

Public Sub sifreyial()
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
Module Yazılacak Kısım Bitti.
Asagidaki kodu Formun Load bolumune ekleyin
sifreyial
Ve Programı Calıştırın.

TEŞEKKURLER


__________________