破解微软脚本加密算法

很久没有关心过web开发版，以后可能会来的更少，今天发布一个破解微软脚本加密算法的vbScript 脚本，算是给优快云出把力吧。

这是一个编写的相当精巧的，用于还原Script Encoder加密后的script代码，用过asp的人应该知道，微软提供的脚本保护技术很弱，本人在csdn 发布过aspDecoder，以前也发布过几个版本，最近得到该源码（来源不记得了），是用vbScript编写的；

复制以下代码到txt文件中，使用前修改后缀为 .vbs 。可以方便的修改为visual basic 或 ASP 程序；

option explicit
Dim oArgs, NomFichier
'Optional argument : the encoded filename
NomFichier=""
Set oArgs = WScript.Arguments
Select Case oArgs.Count
Case 0 'No Arg, popup a dialog box to choose the file
 NomFichier=BrowseForFolder("Choose an encoded file", &H4031, &H0011)
Case 1
 If Instr(oArgs(0),"?")=0 Then '-? ou /? => aide
  NomFichier=oArgs(0)
 End If
Case Else
 WScript.Echo "Too many parameters"
End Select
Set oArgs = Nothing

If NomFichier<>"" Then
 Dim fso
 Set fso=WSc