Veja aqui para obter detalhes
http://hi.baidu.com/lael80/blog/item/6633d7fc89f9f282b801a061.html
http://www.gzyd.net/lael/coding.rar
Arquivo que codifica conversão/criptografia de screenc e descriptografia/conversão chinesa simplificada e tradicional 1.0
Notas sobre uso:
1. Backup antes do uso e você é responsável pelas perdas causadas pelo uso deste software;
2. Antes de executar a codificação e a conversão, verifique se a codificação de origem de todos os arquivos é consistente e selecione correto, caso contrário, pode ocorrer um erro.
3. Antes de criptografar ou descriptografar o código ASP ou converter chinês simples e tradicional, você deve confirmar que o código do arquivo é ANSI; caso contrário, o código ilegível poderá ocorrer.
Depois de concluir a operação, você pode retornar ao código original.
4. A criptografia asp é equivalente a chamar Microsoft:
Se incluído: <%@idioma = "vbscript" codePage = "936"%>
screnc.exe/s/f/xl/easp*.*
screnc.exe/s/f/xl/ehtm*.*
de outra forma:
screnc.exe/s/f/easp*.*
screnc.exe/s/f/ehtm*.*
Encrypt External *.js ou *.vbs, adicione o arquivo primeiro.
<CriptLanguage = "Script Language"> Code </sCript>, exclua -o após a conclusão.
5. A descriptografia asp é modificada por você. O texto original é do JScript, e levou um dia para alterá -lo para o VBScript, haha
6. Se o arquivo original contiver códigos criptografados e não criptografados (a situação raramente ocorre ~ _ ~),
Por favor, execute a descriptografia primeiro e depois criptografá -la novamente.
7. Coding.txt é a lista de codificação do arquivo do sistema.
8. Ao usar este software, você não adicionará nenhuma informação pessoal ao código, portanto, garantirá o sabor original.
9. Obrigado pelo seu uso.
10. Este software também pode ajudá -lo a salvar arquivos em várias pastas no mesmo diretório ~ _ ~
11. Alguns sistemas podem precisar instalar biblioteca VB6 ou VB Runtime ou WindowsScriptEncoder
Outras instruções:
1. O TextBox suporta conteúdo binário?
2. Este software não permite a criptografia duas vezes.
Pode ser um problema em descriptografar o código (alguns caracteres desconhecidos aparecerão após a primeira descriptografia).
Também pode ser que alguns caracteres desconhecidos apareçam várias vezes na criptografia, fazendo com que a operação de descriptografia falhe. Se você estiver interessado em concluir os erros mencionados nas outras instruções acima
A peça de conversão de codificação pode ser identificada automaticamente e selecionada livremente se você deve adicionar/excluir cabeçalhos de arquivo BOM.
Deixe seu endereço de e -mail e meu URL e eu enviarei o código -fonte. Identifique automaticamente a codificação ...
Já existe uma função no código -fonte (Module1.bas/FileCodingCheck ()).
Mas não é muito preciso após o teste, especialmente os arquivos sem cabeçalhos BOM.
PublicFunctionFileCodingCheck (ByValFilePathasstring)
DimsMobjasNewadodb.stream
Dimsmread1asInteger, Smread2asInteger, Smread3asInteger
SMOBJ.TYPE = 1
SMOBJ.OPEN
SMOBJ.LOADFOMFILEFILEPATH
Smobj.Position = 0
Iflenb (smobj.read)> = 1hen
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"
Outro
FileCodingcheck = "Ansi"
Endif
SMOBJ.CLOSE
SetsMobj = nada
Função final