Segurança...

[Luiz Guilherme]

e ai pessoal beleza?

espero q vocês possam me ajudar..... gostaria de saber o seguinte...

quando faço o cadastro dos meus clientes no site, pelo motivo de ter senha, e outros dados... eu queria salvar as informações criptografadas, e na hora de mostrar alguma coisa, ou mostrar algum relatorio, descriptografar essas informações.... é possivel?... ou qual o melhor jeito de melhorar essa segurança, sem gastos...

[Guest - marcelo -]

vou mandar uma função falou

<%

Const EncC1 = 109

Const EncC2 = 191

Const EncKey = 161

Public Function EncriptaStr(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

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Public Function DecriptaStr(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

VarTeste = EncriptaStr("1 ,2 ,3 testando...")

Response.Write (VarTeste& "<br>")

Response.Write (DecriptaStr(VarTeste))

%>

ve se ajuda

[Luiz Guilherme]

deu certo o q você me passou, só uma duvida, se eu coloco encryptastr(request.form("nome")) e depois desencryptastr(request.form("nome")), ele da pau, eu tenho q colocar antes os dados em uma variavel...

você sabe me dizer porque?

[Guest - marcelo -]

è so declarar a variavel

dim nome

valeu.........ve ai