md5 hash not working?

[HamuNaptra]

Hi im trying to get a hash from a string and conert it back to a string

eg. "test" = "098f6bcd4621d3 73cade4e832627b 4f6"

my function:
Private Function GenerateHash(By Val SourceText As String) As String

Dim Ue As New UnicodeEncoding ()
Dim ByteSourceText( ) As Byte = Ue.GetBytes(Sou rceText)
Dim Md5 As New MD5CryptoServic eProvider()
Dim ByteHash() As Byte = Md5.ComputeHash (ByteSourceText )

Return Encoding.ASCII. GetString(ByteH ash)

End Function

when i call the function i get this:

"yAWeLsdBn1kOed fxt3S/5g=="

[Crirus]

Hi
So where is the problem?
What whould you espected to get?
MD5 will encrypt irreversible your string ..
Possible use is password hiding pourpose...to store a obfuscated value not a
readable password.

Ceers,
Crirus
--

------------------------------
If work were a good thing, the boss would take it all from you

------------------------------

"HamuNaptra " <ha********@pan dora.be.NOSPAM> wrote in message
news:hy******** **********@phob os.telenet-ops.be...

Hi im trying to get a hash from a string and conert it back to a string

eg. "test" = "098f6bcd4621d3 73cade4e832627b 4f6"

my function:
Private Function GenerateHash(By Val SourceText As String) As String

Dim Ue As New UnicodeEncoding ()
Dim ByteSourceText( ) As Byte = Ue.GetBytes(Sou rceText)
Dim Md5 As New MD5CryptoServic eProvider()
Dim ByteHash() As Byte = Md5.ComputeHash (ByteSourceText )

Return Encoding.ASCII. GetString(ByteH ash)

End Function

when i call the function i get this:

"yAWeLsdBn1kOed fxt3S/5g=="

[HamuNaptra]

So where is the problem?
What whould you espected to get?

maybe try and read my post??

for short:

eg. "test" = "098f6bcd4621d3 73cade4e832627b 4f6" when i call the function i get this:

"yAWeLsdBn1kOed fxt3S/5g=="

[Pieter Philippaerts]

"HamuNaptra " <ha********@pan dora.be.NOSPAM> wrote

Hi im trying to get a hash from a string and conert it back to a string
eg. "test" = "098f6bcd4621d3 73cade4e832627b 4f6"
my function:

Your code is wrong. First, you're using a unicode encoding to convert "test"
to a byte string; you should use an ASCII encoding or you will never get the
hash result you mention above.
Second, the hash above is in hexadecimal format and the result of your
function appears to be in Base64 format. Here's a small method [in C#] to
convert your bytes to a hexadecimal string:

private static string BytesToHex(byte[] hash) {
StringBuilder sb = new StringBuilder(h ash.Length * 2);
for(int i = 0; i < hash.Length; i++) {
sb.Append(hash[i].ToString("X2") );
}
return sb.ToString();
}

It shouldn't be too hard to port to VB.NET.

Regards,
Pieter Philippaerts
Managed SSL/TLS: http://www.mentalis.org/go.php?sl

[Chris Dunaway]

On Tue, 04 Nov 2003 13:09:33 GMT, HamuNaptra wrote:

Hi im trying to get a hash from a string and conert it back to a string

eg. "test" = "098f6bcd4621d3 73cade4e832627b 4f6"

my function:
Private Function GenerateHash(By Val SourceText As String) As String

Dim Ue As New UnicodeEncoding ()
Dim ByteSourceText( ) As Byte = Ue.GetBytes(Sou rceText)
Dim Md5 As New MD5CryptoServic eProvider()
Dim ByteHash() As Byte = Md5.ComputeHash (ByteSourceText )

Return Encoding.ASCII. GetString(ByteH ash)

End Function

when i call the function i get this:

"yAWeLsdBn1kOed fxt3S/5g=="

I modified your function as follows and got the result you expected:

Private Function GenerateHash(By Val SourceText As String) As String

'Dim Ue As New UnicodeEncoding
Dim ByteSourceText( ) As Byte = Encoding.Defaul t.GetBytes(Sour ceText)

'Dim ByteSourceText( ) As Byte = Ue.GetBytes(Sou rceText)
Dim Md5 As New MD5CryptoServic eProvider

Dim ByteHash() As Byte = Md5.ComputeHash (ByteSourceText )

'Convert the Byte array to a hex string
Dim sb As New StringBuilder(3 2)
For x As Integer = 0 To ByteHash.Length - 1
If ByteHash(x) < 16 Then
sb.Append("0")
End If
sb.Append(Conve rt.ToString(Byt eHash(x), 16))
Next

Return sb.ToString

End Function
--
Chris

To send me an E-mail, remove the underscores and lunchmeat from my E-Mail
address.

[HamuNaptra]

End Function

tnx