Ver aquí para más detalles
http://hi.baidu.com/lael80/blog/item/6633d7fc89f9f282b801a061.html
http://www.gzyd.net/lael/coding.rar
Cifrado de conversión de codificación de archivos/Cifrado y descifrado de archivos/Conversión de chino simplificado y tradicional 1.0
Notas sobre el uso:
1. Haga una copia de seguridad antes de usar, y usted es responsable de las pérdidas causadas por el uso de este software;
2. Antes de realizar la codificación y la conversión, asegúrese de que la codificación de origen de todos los archivos sea consistente y seleccione correctamente, de lo contrario puede ocurrir un error.
3. Antes de encriptar o descifrar el código ASP o convertir el chino simple y tradicional, debe confirmar que el código del archivo es ANSI, de lo contrario, puede ocurrir un código confuso.
Después de completar la operación, puede volver al código original.
4. El cifrado ASP es equivalente a llamar a Microsoft:
Si se incluye: <%@lengua = "VBScript" CodePage = "936"%>
screnc.exe/s/f/xl/EASP*.*
screnc.exe/s/f/xl/ehtm*.*
de lo contrario:
screnc.exe/s/f/EASP*.*
screnc.exe/s/f/ehtm*.*
CIRRY EXTERNA *.JS o *.VBS, agregue el archivo primero.
<scriptLanguage = "Script Language"> Code </script>, elimínelo después de la finalización.
5. El descifrado de ASP se modifica por usted mismo. El texto original es de JScript, y tomó un día cambiarlo a VBScript, jaja
6. Si el archivo original contiene códigos encriptados y no cifrados (la situación rara vez ocurre ~ _ ~),
Por favor, ejecute el descifrado primero y luego vuelva a encriptarlo.
7. Coding.txt es la lista de codificación del archivo del sistema.
8. Al usar este software, no agregará ninguna información personal al código, por lo que asegurará el sabor original.
9. Gracias por su uso.
10. Este software también puede ayudarlo a guardar archivos en varias carpetas al mismo directorio ~ _ ~
11. Algunos sistemas pueden necesitar instalar la biblioteca de tiempo de ejecución VB6 o VB o WindowsscriptIncoder
Otras instrucciones:
1. ¿Textbox admite contenido binario?
2. Este software no permite el cifrado dos veces.
Puede ser un problema para descifrar el código (algunos caracteres desconocidos aparecerán después del primer descifrado).
También puede ser que algunos caracteres desconocidos aparecerán varias veces en el cifrado, lo que hace que la operación de descifrado falle. Si está interesado en completar los errores mencionados en las otras instrucciones anteriores
La parte de conversión de codificación se puede identificar automáticamente y seleccionar libremente si agregar/eliminar los encabezados de archivos BOM.
Deje su dirección de correo electrónico y mi URL y le enviaré el código fuente. Identificar automáticamente la codificación ...
Ya existe una función en el código fuente (módulo1.bas/fileCodingCheck ()).
Pero no es muy preciso después de probar, especialmente archivos sin encabezados de BOM.
PublicFunctionFilecodingCheck (Byvalfilepathastring)
Dimsmobjasnewadodb.stream
Dimsmread1asinteger, smread2asinteger, smread3asinteger
Smobj.type = 1
Smobj.
Smobj.loadFromFileFilepath
Smobj.position = 0
Iflenb (smobj.read)> = 1
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)> = 3
Smobj.position = 2
Smread3 = ascb (smobj.read (1))
Endif
Ifsmread1 = & hffandsmread2 = & hfethen
FileCodingCheck = "unicode"
Elseifsmread1 = & hfanddsmread2 = & hfftthen
FileCodingCheck = "unicodebigendian"
Elseifsmread1 = & hefandsmread2 = & hbbandsmread3 = & hbftthen
FileCodingCheck = "UTF-8"
Demás
FileCodingCheck = "ANSI"
Endif
Smobj.lose
Setsmobj = nada
Función final