Encrypt. vbs content encryption vbs implementation code

CopyCodeThe Code is as follows: REM cannot guarantee that the file can 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