A lot of code conversion and ASP/JS encryption/Jianfan conversion Tools _ Related skills

Source: Internet
Author: User
See here for details
Http://hi.baidu.com/lael80/blog/item/6633d7fc89f9f282b801a061.html
Http://www.gzyd.net/lael/coding.rar
File encoding conversion/screnc plus decryption/Jianfan Conversion 1.0
Use Note:
1, before use, please back up, use the software caused by the loss of the ego;
2. Make sure all files have the same source code and choose correct before encoding conversion, otherwise there may be errors.
3, the ASP code to encrypt or decrypt or simplify the conversion of the file must confirm the encoding of ANSI, otherwise may appear garbled,
After the operation can be reversed back to the original code.
4, ASP encryption is equivalent to call Microsoft:
If included: <% @LANGUAGE = "VBSCRIPT" codepage= "936"%>
SCRENC.EXE/S/f/xl/e ASP *.*
screnc.exe/s/f/xl/e htm *.*
Otherwise:
SCRENC.EXE/S/f/e ASP *.*
screnc.exe/s/f/e htm *.*
Encrypt external *. JS or *. VBS, first add the file
<script language= "scripting language" > Code &LT;/SCRIPT&GT, and then delete after completion.
5, the ASP decryption is its own change. The original is JScript, changed a day to become a VBScript, hehe
6, if the original file contains both encrypted and unencrypted code (the situation rarely occurs ~_~),
Please run the decryption first and then encrypt again.
7, Coding.txt is a list of system file encodings, if you find that the code you want to not be able to manually add a line
8, the use of the software will not add any personal information in the code to ensure flavor.
9, thank you for your use, there are problems to mail.
10, the software can also help you to multiple folders under the file to save the same directory Oh ~_~
11. Some systems may want to install VB6 or VB Runtime Libraries or Windows Script Encoder
Other Description:
1, the textbox does not support binary content?
2, the software is not allowed to encrypt two times, encryption two times will make decryption error, even if the execution of two decryption operations,
It could be a problem with decrypting the code (some unknown characters will appear after the first decryption),
It is also possible to encrypt multiple occurrences of unknown characters, causing the decryption operation to fail. If you are interested in completing the errors mentioned in the other instructions above
and the code conversion part can be made to automatically identify the code and free to choose whether to add/Remove BOM file headers,
Please leave your email and your URL, I will originate the code to you. Automatic identification of coding ....
There is already a function in the source code (module1.bas \ Filecodingcheck ()),
However, the test is not very accurate, especially in the absence of BOM header files.
Public Function Filecodingcheck (ByVal FilePath as String)
Dim smobj as New ADODB. Stream
Dim SmRead1 As Integer, SmRead2 As Integer, SmRead3 as Integer
Smobj.type = 1
Smobj.open
Smobj.loadfromfile FilePath
smobj.position = 0
If LenB (smobj.read) >= 1 Then
smobj.position = 0
SmRead1 = AscB (Smobj.read (1))
End If
smobj.position = 0
If LenB (smobj.read) >= 2 Then
Smobj.position = 1
SmRead2 = AscB (Smobj.read (1))
End If
smobj.position = 0
If LenB (smobj.read) >= 3 Then
Smobj.position = 2
SmRead3 = AscB (Smobj.read (1))
End If
If SmRead1 = &hff and SmRead2 = &hfe Then
Filecodingcheck = "Unicode"
ElseIf SmRead1 = &hfe and SmRead2 = &hff Then
Filecodingcheck = "Unicode big endian"
ElseIf SmRead1 = &hef and SmRead2 = &hbb and SmRead3 = &AMP;HBF Then
Filecodingcheck = "UTF-8"
Else
Filecodingcheck = "ANSI"
End If
Smobj.close
Set smobj = Nothing
End Function
Related Article

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.