Criptografia, eu uso esse codigo...

[dataset 0]

Eu uso esse script para criptar e descriptar os dados, e como eu uso com frequencia... eu gostaria de saber se esse esse código aí é seguro, estou meio desconfiado. Se por acaso alguém quizer testar e colocar seu parece ficarei agradecido.

 

Att;

Rhael

 

<%Const EncC1 = 109Const EncC2 = 191Const EncKey = 161Public 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 = TempResultEnd FunctionPublic 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 = TempResultEnd FunctionPrivate Function AuxShr(Numero, BShr)AuxShr = Int(Numero / (2 ^ BShr))End FunctionVarStr = "Teste de Cripto"VarTeste = EncriptaStr(VarStr)Response.Write _VarTeste & "<br>" & _DecriptaStr(VarTeste)%>

[sr.silva 1]

Cara na boa, como na internet nada e seguro, seu codigo tem essa mesma ideia!!Ele ate pode "barrar" algumas tentativas, mais se o cara ficar tentando com certeza um dia ele ira achar a solução!!

[Elbrinner 0]

Use uma MD5 dai você estará bem seguro

[dataset 0]

Pois então... Pensei em usar MD5, tem um modelo no laboratório de scripts... mas o esquema é que nao consegui descriptografar o MD5.Obrigado para aqueles que testaram o script que postei nesse topico. Valeu pela opinião.

[micox 2]

Voce pode tentar usar o AES.

 

Uma discussãozinha sobre descriptografia voce encontra aqui.

[sr.silva 1]

Lembre sempre que segurança e uma coisa que "não existe"!!