Private pi As String
Dim MyPwdHash() As Byte
Dim MyHash As String
pi = "<<mysalt>>" & "<<users password>>"
MyPwdHash = md.GetMessageDigest(md5string.GetBytes("UTF8"),"SHA-1")
MyHash = ByteCon.HexFromBytes(MyPwdHash)
MyHash = MyHash.ToLowerCase
Log("SHA1: " & MyHash)