See here for details
http://hi.baidu.com/lael80/blog/item/6633d7fc89f9f282b801a061.html
http://www.gzyd.net/lael/coding.rar
File encoding conversion/Screenc encryption and decryption/Simplified and traditional Chinese conversion 1.0
Notes on use:
1. Please back up before use, and you are responsible for the losses caused by using this software;
2. Before performing encoding and conversion, please make sure that the source encoding of all files is consistent and select correct, otherwise an error may occur.
3. Before encrypting or decrypting the ASP code or converting simple and traditional Chinese, you must confirm that the code of the file is ANSI, otherwise garbled code may occur.
After completing the operation, you can return to the original code.
4. ASP encryption is equivalent to calling Microsoft:
If included: <%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
screnc.exe/s/f/xl/easp*.*
screnc.exe/s/f/xl/ehtm*.*
otherwise:
screnc.exe/s/f/easp*.*
screnc.exe/s/f/ehtm*.*
Encrypt external *.JS or *.VBS, please add the file first.
<scriptlanguage="Script Language">Code</script>, delete it after completion.
5. ASP decryption is modified by yourself. The original text is from JScript, and it took a day to change it to VBScript, haha
6. If the original file contains both encrypted and unencrypted codes (the situation rarely occurs ~_~),
Please run the decryption first, and then encrypt it again.
7. coding.txt is the system file encoding list. If you find that the encoding you want is not available, you can manually add a line.
8. When using this software, you will not add any personal information to the code, so it will ensure the original flavor.
9. Thank you for your use. Please email if you have any questions.
10. This software can also help you save files under multiple folders to the same directory~_~
11. Some systems may need to install VB6 or VB runtime library or WindowsScriptEncoder
Other instructions:
1. Does textbox support binary content?
2. This software does not allow encryption twice. Encryption twice will cause decryption errors, even if the decryption operation is performed twice,
It may be a problem with decrypting the code (some unknown characters will appear after the first decryption).
It may also be that some unknown characters will appear multiple times in encryption, causing the decryption operation to fail. If you are interested in completing the errors mentioned in the other instructions above
The encoding conversion part can be automatically identified and freely selected whether to add/delete BOM file headers.
Please leave your email address and my URL and I will send you the source code. Automatically identify encoding...
There is already a function in the source code (module1.bas/FileCodingCheck()).
But it is not very accurate after testing, especially files without BOM headers.
PublicFunctionFileCodingCheck(ByValFilePathAsString)
DimSmObjAsNewADODB.Stream
DimSmRead1AsInteger,SmRead2AsInteger,SmRead3AsInteger
SmObj.Type=1
SmObj.Open
SmObj.LoadFromFileFilePath
SmObj.Position=0
IfLenB(SmObj.Read)>=1Then
SmObj.Position=0
SmRead1=AscB(SmObj.Read(1))
EndIf
SmObj.Position=0
IfLenB(SmObj.Read)>=2Then
SmObj.Position=1
SmRead2=AscB(SmObj.Read(1))
EndIf
SmObj.Position=0
IfLenB(SmObj.Read)>=3Then
SmObj.Position=2
SmRead3=AscB(SmObj.Read(1))
EndIf
IfSmRead1=&HFFAndSmRead2=&HFEThen
FileCodingCheck="Unicode"
ElseIfSmRead1=&HFEAndSmRead2=&HFFTThen
FileCodingCheck="Unicodebigendian"
ElseIfSmRead1=&HEFAndSmRead2=&HBBAndSmRead3=&HBFTThen
FileCodingCheck="UTF-8"
Else
FileCodingCheck="ANSI"
EndIf
SmObj.Close
SetSmObj=Nothing
EndFunction