Sub EnscryptMD5
Private pi As String
pi = "Image34"
Dim md As MessageDigest
Dim ByteCon As ByteConverter
Dim passwordhash() As Byte
passwordhash = md.GetMessageDigest(pi.GetBytes("UTF8"),"MD5")
Dim md5string As String
md5string = ByteCon.HexFromBytes(passwordhash)
md5string = md5string.ToLowerCase
Log("md5string : " & md5string)
'Result = f710044bf79a4b1f5d8b085e5e5d9711
End Sub