şifreee kırıcı

Bilgisayarinizdaki Internet Sifreleri



Merhaba
Bu güne kadar bilgisayarinizdaki kayitli olan
sifreleri (ekran koruyucu,internet) görmenizi saglayacak
bir Program yazdim;

1-Önce bir module olusturun
2-Bir form olusturun ve üzerine bir tane Listbox (List1) olusturun


'************************************
'Asagidaki kodu 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 yazilacak kisim bitti
'************************************


'**********************************
'Asagidaki kodu Formun Load bölümüne ekleyin
'**********************************
sifreyial
'*****************
'Forma yazilacak kisim bitti
'**********************