txtOutput.Text = MD5Enc.MD5Hash(txtInput.Text)

 

Label 1:

Me.close

 

Module Name:MD5Enc

 

Code:

Function

MD5Hash(ByValstrHash AsString) AsString

Dimmd5obj AsNewSecurity.Cryptography.MD5CryptoServiceProvider

DimbytestoHash() AsByte= System.Text.Encoding.ASCII.GetBytes(strHash)

bytestoHash = md5obj.ComputeHash(bytestoHash)

Dimstrresult AsString= ""

ForEachb AsByteInbytestoHash

strresult += b.ToString(

"x2")

Next

Returnstrresult

EndFunction