Başlangıç > Kodlar > Visual Basic 6 ile Windows’un belleğinde kayıtlı şifreleri okumak

Visual Basic 6 ile Windows’un belleğinde kayıtlı şifreleri okumak


Bu code sayesinde DFÜ-birlesimlerinin ve iInternet explorerin passwordlarini okuyabilirsiniz.

'Yazar : Ulas Isci
'email: isci@excite.com
'websayfa:
'Gereken Araclar
'Control ListBox: List1

'form
Option Explicit

Private Sub Form_Load()
Call Pass
End Sub

'module1.bas, bundan sonrasi moduldur
'
Option Explicit

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 PASSWORT_TYPE
Eintrag As Integer
Quelle As Integer
Passwort As Integer
i As Byte
nT As Byte
Feld(1 To 1024) As Byte
End Type

Public Function CallBack(Ret As PASSWORT_TYPE, ByVal l&) As Integer
Dim X%, AA$, Quelle$, Passwort$

For X = 1 To Ret.Quelle
If Ret.Feld(X) <> 0 Then
Quelle = Quelle & Chr$(Ret.Feld(X))
Else
Quelle = Quelle & " "
End If
Next X

For X = Ret.Quelle + 1 To (Ret.Quelle + Ret.Passwort)
If Ret.Feld(X) <> 0 Then
Passwort = Passwort & Chr$(Ret.Feld(X))
Else
Passwort = Passwort & " "
End If
Next X

Form1.List1.AddItem " Q: " & Quelle & " P: " & Passwort
CallBack = True

End Function

Public Sub Pass()
Call WNetEnumCachedPasswords("", 0&, &HFF, AddressOf CallBack, 0&)
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: