Erro!

[Luiz Guilherme]

fala ai pessoal....

bom eu tenho uma função de criptografar as informações do cadastro do cliente....

só que preciso salvar os dados em uma variavel antes de criptografar...

só que ta dando pau.... a hora que eu mando criptografar ele some o conteudo da variavel... abaixo esta como eu faço.....

dim logcrip, senhacrip, logdecrip, senhadecrip

logdecrip = request.form("login")

senhadecrip = request.form("pwd")

logcrip = encripta(logdecrip)

senhacrip = encripta(senhadecrip)

bareta

problema:

a função de criptografia não funciona....

favor ser mais especifico no post

Editado Maio 27, 2005 por bareta

[bareta]

[Luiz Guilherme]

Essa é a função, mais não funciona do jeito que você falow......

se você tiver alguma melhor....... Obrigado...

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Const EncC1 = 109

Const EncC2 = 191

Const EncKey = 161

Public Function Encripta(Texto)

Dim TempStr, TempResult, TempNum, TempChar

Dim TempKey

Dim i

TempStr = Texto

TempResult = ""

TempKey = ((EncKey * EncC1) + EncC2) Mod 65536

For i = 1 To Len(TempStr)

TempNum = (Asc(Mid(TempStr, i, 1)) Xor (AuxShr(TempKey, 8))) Mod 256

TempChar = Chr(TempNum)

TempKey = (((Asc(TempChar) + TempKey) * EncC1) + EncC2) Mod 65536

TempResult = TempResult & TempChar

Next

EncriptaStr = TempResult

End Function

Public Function Decripta(Texto)

Dim TempStr, TempResult, TempNum, TempChar

Dim TempKey

Dim i

TempStr = Texto

TempResult = ""

TempKey = ((EncKey * EncC1) + EncC2) Mod 65536

For i = 1 To Len(TempStr)

TempNum = (Asc(Mid(TempStr, i, 1)) Xor (AuxShr(TempKey, 8))) Mod 256

TempChar = Chr(TempNum)

TempKey = (((Asc(Mid(TempStr, i, 1)) + TempKey) * EncC1) + EncC2) Mod 65536

TempResult = TempResult & TempChar

Next

DecriptaStr = TempResult

End Function

Private Function AuxShr(Numero, BShr)

AuxShr = Int(Numero / (2 ^ BShr))

End Function

[bareta]

use o google de vez em quando

http://www.superasp.com.br/conteudo/artigos/artigo_33.asp

[Luiz Guilherme]

bom, consegui faze funcionar, mais na hora que eu vou salvar no banco de dados, da erro... olha ai...

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta '''ýŠ=','õ¦eÝ´$HÓìEâçL/ÉÅtV±˜+ë!')'.

/ww/cadastro.asp, line 141

[bareta]

e abusca continua insana:

veja

http://www.freecode.com.br/forum/index.php...&highlite=cript