Crack Microsoft Script encryption algorithm

For a long time did not care about the Web development version, the future may come less, today released a crack Microsoft Script encryption algorithm of the VBScript script, is given to csdn the Force bar.
This is a very sophisticated written, used to restore the Script Encoder encrypted script code, the use of ASP should know, Microsoft provides a weak script protection technology, I published in Csdn Aspdecoder, has published several versions, Recently got the source (the source does not remember), is written in VBScript;
Copy the following code into the TXT file and modify the suffix to. vbs before using. can be easily modified to Visual Basic or ASP program;
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=wscript.createobject ("Scripting.FileSystemObject")
If FSO. FileExists (Nomfichier) Then
Dim Fic,contenu
Set fic = fso. OpenTextFile (Nomfichier, 1)
Contenu=fic.readall
Fic.close
Set fic=nothing
Const taginit= "#@~^" ' #@~^awqaaa==
Const tagfin= "==^#~@" ' & Chr (0)
Dim Debutcode, Fincode
Todo
Fincode=0
Debutcode=instr (Contenu,taginit)
If debutcode>0 Then
if (Instr (debutcode,contenu, "= =")-debutcode) =10 Then ' if ' = = ' follows the tag
Fincode=instr (Debutcode,contenu,tagfin)
If fincode>0 Then
Contenu=left (contenu,debutcode-1) & _
Decode (Mid (contenu,debutcode+12,fincode-debutcode-12-6)) & _
Mid (CONTENU,FINCODE+6)
End If
End If
End If
Loop Until fincode=0
WScript.Echo Contenu