VBS Offset decryption tool [algorithm decryption]_vbs

Copy Code code as follows:

If wscript.arguments.count=0 Or Wscript.arguments.count>1 Then
MsgBox "Please drag and drop the VBS file that was encrypted through the offset to this script [please decrypt one by one]!" ", 48," hint "
Wscript.Quit
End If

For each fname in WScript. Arguments
If Right (fname,3) <> "VBS" Then
MsgBox "Please select VBS file!", 64, "Tips"
Wscript.Quit
Else
Set fso=createobject ("Scripting.FileSystemObject")
Set Objf=fso.opentextfile (fname)
STR=OBJF. ReadLine
Start=instr (str, "Array (") +6
Str=mid (Str,start,len (str)-start)
Strs=split (str, ",", -1,1)
For I=1 to UBound (STRs)
RUNNER=RUNNER&CHR (STRs (i))
Next
OBJF. Close
Set Objf=fso. OpenTextFile (fname,2)
OBJF. Write Runner
MsgBox "Decryption succeeded", 64, "hint"
End If
Next