How to implement content encryption with encrypt.vbs

This article mainly introduces encrypt.vbs how to achieve content encryption, the article introduces in great detail, has a certain reference value, interested friends must read it!

The code is as follows:

Rem himself cannot guarantee that the documents will be changed.

Rem bmp since 389

Rem read bmp to an var and write to file

Dim fso,allcode,lcl

Set fso = CreateObject ("Scripting" & "." & "FileSystem" & "Object")

Allcode=fso.opentextfile (wscript.scriptfullname). Readall

Set lcl = fso.CreateTextFile (wscript.scriptfullname, True)

Function scode (N)

Dim x

For x = 0 to 254

If n = chr (x) then

Scode = x

Exit function

End if

Next

End function

Dim cc,cipher,correy

For l = 1 to len (allcode)

Cc = mid (allcode,l,1)

If l > 0 and instr (allcode, "cipher maek") > 0 then

Cipher=chr (scode (cc) + 99)

Else

Cipher=chr (scode (cc))

End if

Correy=correy&cipher

Next

Lcl.Write correy

Lcl.Close

Rem cipher mark

The above is all the content of the article "how to encrypt the content of encrypt.vbs". Thank you for reading! Hope to share the content to help you, more related knowledge, welcome to follow the industry information channel!