Sub GetMD5 (Text As String) As String
Dim MD As MessageDigest
Dim Data() As Byte = MD.GetMessageDigest(Text.GetBytes("UTF8"),"MD5")
Dim BC As ByteConverter
Return BC.HexFromBytes(Data)
End Sub
Don't forget to reference to the iEncryption and iRandomAccessFile library