Shulou(Shulou.com)06/03 Report--

This article introduces "how to write VBS encryption and decryption" related knowledge, in the actual case operation process, many people will encounter such a dilemma, then let the editor lead you to learn how to deal with these situations! I hope you can read it carefully and be able to achieve something!

I. encryption

The copy code is as follows:

Dim ObjectFSO

If (lcase (right (wscript.fullname,11)) = "wscript.exe") Then

WScript.Quit (0)

End If

If wscript.arguments.count0 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

Else

WScript.Echo Nomfichier & "not found"

End If

Set fso=Nothing

Else

WScript.Echo "Please give a filename"

WScript.Echo "Usage:" & wscript.fullname & "& WScript.ScriptFullName &"

End If

Function Decode (Chaine)

Dim se,i,c,j,index,ChaineTemp

Dim tDecode (127C)

Const Combinaison= "123123233232132323112332132332113232311231321323112331123132"

Set se=WSCript.CreateObject ("Scripting.Encoder")

For iTunes 9 to 127

TDecode (I) = "JLA"

Next

For iTunes 9 to 127

ChaineTemp=Mid (se.EncodeScriptFile (".vbs", string (3Magi), 0, "), 13p3)

For jungle 1 to 3

C=Asc (Mid (ChaineTemp,j,1))

TDecode (c) = Left (tDecode (c), jmur1) & chr (I) & Mid (tDecode (c), jmur1)

Next

Next

'Next line we correct a bug, otherwise a ")" could be decoded to a ">"

TDecode (42) = Left (tDecode (42), 1) & ") & Right (tDecode (42), 1)

Set se=Nothing

Chaine=Replace (Replace (Chaine, "@ &", chr (10)), "@ #", chr (13)

Chaine=Replace (Replace (Chaine, "@ *", ">"), "@!"

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.