Смотрите здесь для деталей
http://hi.baidu.com/lael80/blog/item/6633d7fc89f9f282b801a061.html
http://www.gzyd.net/lael/coding.rar
Файл Кодирование преобразования/шифрования и дешифрования/упрощенного и традиционного китайского преобразования 1.0
Примечания об использовании:
1. Пожалуйста, резервйтесь перед использованием, и вы несете ответственность за потери, вызванные использованием этого программного обеспечения;
2. Перед выполнением кодирования и преобразования, пожалуйста, убедитесь, что источник кодировки всех файлов является согласованным и выберите правильный, в противном случае может возникнуть ошибка.
3. Перед шифрованием или расшифровкой кода ASP или преобразования простых и традиционных китайцев вы должны подтвердить, что код файла является ANSI, в противном случае может произойти искаженная код.
После завершения операции вы можете вернуться к исходному коду.
4. шифрование ASP эквивалентно вызове Microsoft:
Если включено: <%@language = "vbscript" codePage = "936"%>
screnc.exe/s/f/xl/easp*.*
screnc.exe/s/f/xl/ehtm*.*
в противном случае:
screnc.exe/s/f/easp*.*
screnc.exe/s/f/ehtm*.*
Encrypt External *.js или *.vbs, пожалуйста, добавьте файл первым.
<scriptlanguage = "language"> code </script>, удалить его после завершения.
5. Decryption ASP изменяется самостоятельно. Оригинальный текст от JScript, и потребовался день, чтобы изменить его на VBScript, ха -ха
6. Если исходный файл содержит как зашифрованные, так и незашифрованные коды (ситуация редко встречается ~ _ ~),
Пожалуйста, запустите расшифрование сначала, а затем зашифруйте его снова.
7. CODING.TXT - это список кодировки системного файла.
8. При использовании этого программного обеспечения вы не добавите никакой личной информации в код, поэтому оно обеспечит исходный вкус.
9. Спасибо за использование.
10. Это программное обеспечение также может помочь вам сохранить файлы в нескольких папках в одном и том же каталоге ~ _ ~
11. Некоторым системам может потребоваться установить библиотеку VB6 или VB -времени или WindowsScriptencoder
Другие инструкции:
1. Поддерживает ли текстовое поле бинарный контент?
2. Это программное обеспечение не допускает шифрование дважды.
Это может быть проблемой с расшифровкой кода (после первой дешифрования появятся некоторые неизвестные символы).
Также может случиться так, что некоторые неизвестные символы будут появляться несколько раз в шифровании, в результате чего операция дешифрования не удалась. Если вы заинтересованы в завершении ошибок, упомянутых в других инструкциях выше
Часть преобразования кодирования может быть автоматически идентифицирована и свободно выбрана, следует ли добавлять/удалить заголовки файлов BOM.
Пожалуйста, оставьте свой адрес электронной почты и мой URL -адрес, и я пришлю вам исходный код. Автоматически идентифицировать кодирование ...
В исходном коде уже есть функция (Module1.bas/filecodingcheck ()).
Но это не очень точно после тестирования, особенно файлов без заголовков BOM.
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))
Эндиф
Smobj.position = 0
Iflenb (smobj.read)> = 2Then
Smobj.position = 1
Smread2 = ascb (smobj.read (1))
Эндиф
Smobj.position = 0
Iflenb (smobj.read)> = 3then
Smobj.position = 2
Smread3 = ascb (smobj.read (1))
Эндиф
Ifsmread1 = & hffandsmread2 = & hfethen
Filecodingcheck = "Unicode"
Elseifsmread1 = & hfaindsmread2 = & hfftthen
Filecodingcheck = "Unicodebigendian"
Elseifsmread1 = & hefandsmread2 = & hbbandsmread3 = & hbftthen
Filecodingcheck = "utf-8"
Еще
Filecodingcheck = "ansi"
Эндиф
Smobj.close
Setsmobj = ничего
Конечная функция