Semua keylogger baik yg dlm bentuk hardware, memiliki tujuan utama yg sama yaitu memantau semua data yg diketikkan oleh user. Jadi, semua data yg diinputkan/ketikkan ke suatu aplikasi akan dipantau dan disimpan untuk digunakan oleh pihak yang menanam keylogger tsb. Pada kesempatan ini, seperti yang aku katakan sebelumnya. Aku memberikan contoh bagaimana mengamankan user agar aman menggunakan aplikasi yg kita buat. Apalagi dalam hal sekuriti misalkan penginputan password. Untuk itu, jangan pernah berfikir aku akan membuat mesin scanning keylogger seperti layaknya anti-virus.
Baiklah kita langsung ke pembuatannya yah...
1. Buka Designer Visual Basic kamu (aku pake v.6)
2. Tambahkan sebuah kontrol TextBox, lalu beri nilai properti "Name" menjadi "txtPassword"
3. Masuk ke jendela form code, isikan source code berikut:
'<- START CODE ->'
'UNTUK PENJELASAN MENGENAI FUNGSI API, CARI AJA DIINTERNET
Private Declare Function VkKeyScan Lib "user32" Alias "VkKeyScanA" (ByVal cChar As Byte) As Integer
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Integer, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
'Fungsi Untuk Menciptakan Nilai Random Dari Interval Tertentu....Function RandomNumber(ByVal LowerBound As Single, ByVal UpperBound As Single) As SingleRandomize Timer
RandomNumber = (UpperBound - LowerBound) * Rnd + LowerBound
End Function
Private Sub txtPassword_Change()
TxtPassword.Locked = True '<== Sengaja Biar Nggak Banyak Makan ResourceDim LoopC As Byte, i As Byte LoopC = RandomNumber(3, 254) 'Ciptakan Nilai Random Mulai 3 - 254 i = 0 'Banyak Pengiriman Event Keyboard Random Setiap Kali Ketik...Do While LoopC > i'Kirim Event Keyboard Secara Random Biar Mengacaukan Nilai Yang Ditangkap KeyloggerCall keybd_event(VkKeyScan(RandomNumber(32, 126)), 0, 0, 0)i = i + 1Loop
DoEvents 'Kasih kesempatan program lain bekerja
TxtPassword.Locked = False
End Sub
dibuat oleh meyer_webmail@yahoo.com
untuk lebih jelas Link kesini
http://www.jasakom.com/index.php?categoryid=31&p2_articleid=98
untuk file download http://www.mediafire.com/?5cf9zgbozt1