Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Tenho uma função em meu site para salvar as senhas dos clientes criptografadas. Tudo sempre funcionou corretamente, mas estou fazendo alterações em todo o site e aproveitei para passar tudo para UTF-8 para corrigir alguns erros de caracteres que tinha.
Só que minha função de criptografia parou de funcionar. Segue:
Public Function Cript(texto)
Dim vCript
texto = (texto)
response.write texto
If texto <> "" Then
vCript = ""
chave = "000"
For i = 1 To Len(texto)
If vCript = "" Or i > Len(chave) Then X = 1 Else X = X + 1
vCript = vCript & Chr(255 - (Asc(Mid(texto, i, 1))) + Int(Mid(chave, X, 1)))
Next
Cript = vCript
Else
Cript = ""
End If
End Function
Esse é o resultado que ela imprime, independente do valor passado:
����
Alguém sabe o que posso fazer?
Muito obrigado.
Valeu Xan, vou tentar.
Consegui fazendo de outra forma. Deixei todas as páginas em UTF-8, com excessão da funcoes.asp, que ficou em ANSI, porém declarada como UFT-8 (não me pergunte como isso funcinou), e o erro parou de funcionar. Mas me preocupo que isso dê erro em outros navegadores.
Vou tentar fazer isso aí e te falo.
Brigadão!
Testado: não adiantou não! Mas valeu!
Mude o head da página que solicita os dados para que ele fique assim
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
Na página que responde os dados colocar isso antes do retorno co conteúdo (logo no topo):
<%
Response.AddHeader "Content-Type", "text/html; charset=utf-8"
Response.AddHeader "Pragma", "no-cache"
response.Charset="utf-8"
%>