Problemas com UTF-8 e criptografia

[Claudio Neto 3]

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.

[xanburzum 169]

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"
%>

[Claudio Neto 3]

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!