How to implement offset decryption tool in VBS

This article is about how VBS implements the offset decryption tool. The editor thinks it is very practical, so share it with you as a reference and follow the editor to have a look.

The code is as follows:

If wscript.arguments.count=0 Or wscript.arguments.Count > 1 then

Msgbox "Please drag and drop the VBS file encrypted by offset onto this script [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, "prompt"

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)

For iTunes 1 to UBound (strs)

Runner=runner&chr (strs (I))

Next

Objf.Close

Set objf=fso.OpenTextFile (fname,2)

Objf.Write runner

MsgBox "decryption successful", 64, "prompt"

End if

Next

Thank you for reading! On "VBS how to achieve offset decryption tool" this article is shared here, I hope the above content can be of some help to you, so that you can learn more knowledge, if you think the article is good, you can share it out for more people to see it!