CRYPTOGRAFIA MD5 COM VOLTA
Olá éssoal
Estava fazendo uns testes com a cryptografia MD5, sei que não é das mais seguras pois tem como voltar atrás, mas não é esse o problema.
Por exemplo faço a cryptografia MD5 da palavra [Ô]COLéGIO[Ô] (zdHOcBvfg00=)
Quando uso o retorno no MD5 ele me devolve [Ô]COL[txt-color=#e80000]?[/txt-color]GIO[Ô]
como faço para retornar certo?
acho que tem algo haver com formato UTF8, ANSI...
Codigo usado para cryptografar em MD5:
[txt-color=#0000f0]des.Key = hashmd5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(myKey))
des.Mode = CipherMode.ECB
Dim desdencrypt As ICryptoTransform = des.CreateEncryptor()
Dim MyASCIIEncoding = New ASCIIEncoding()
Dim buff() As Byte = ASCIIEncoding.ASCII.GetBytes(texto)
Cifra = Convert.ToBase64String(desdencrypt.TransformFinalBlock(buff, 0, buff.Length))[/txt-color]
Codigo usado para Descryptografar MD5:
[txt-color=#0000f0]des.Key = hashmd5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(myKey))
des.Mode = CipherMode.ECB
Dim desdencrypt As ICryptoTransform = des.CreateDecryptor()
Dim buff() As Byte = Convert.FromBase64String(texto)
DeCifra = ASCIIEncoding.ASCII.GetString(desdencrypt.TransformFinalBlock(buff, 0, buff.Length))[/txt-color]
Grato
Estava fazendo uns testes com a cryptografia MD5, sei que não é das mais seguras pois tem como voltar atrás, mas não é esse o problema.
Por exemplo faço a cryptografia MD5 da palavra [Ô]COLéGIO[Ô] (zdHOcBvfg00=)
Quando uso o retorno no MD5 ele me devolve [Ô]COL[txt-color=#e80000]?[/txt-color]GIO[Ô]
como faço para retornar certo?
acho que tem algo haver com formato UTF8, ANSI...
Codigo usado para cryptografar em MD5:
[txt-color=#0000f0]des.Key = hashmd5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(myKey))
des.Mode = CipherMode.ECB
Dim desdencrypt As ICryptoTransform = des.CreateEncryptor()
Dim MyASCIIEncoding = New ASCIIEncoding()
Dim buff() As Byte = ASCIIEncoding.ASCII.GetBytes(texto)
Cifra = Convert.ToBase64String(desdencrypt.TransformFinalBlock(buff, 0, buff.Length))[/txt-color]
Codigo usado para Descryptografar MD5:
[txt-color=#0000f0]des.Key = hashmd5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(myKey))
des.Mode = CipherMode.ECB
Dim desdencrypt As ICryptoTransform = des.CreateDecryptor()
Dim buff() As Byte = Convert.FromBase64String(texto)
DeCifra = ASCIIEncoding.ASCII.GetString(desdencrypt.TransformFinalBlock(buff, 0, buff.Length))[/txt-color]
Grato
Achei, bastou trocar o ASCII por UTF8
Valeu
Valeu
é só trocar o ascii por utf8, e vai resolver seu problema..
Tópico encerrado , respostas não são mais permitidas