Private pi As String
pi = "laleqwe"
Dim md As MessageDigest
Dim ByteCon As ByteConverter
Dim passwordhash() As Byte
Dim passwordhash2() As Byte
passwordhash = md.GetMessageDigest(pi.GetBytes("UTF8"),"MD5")
Dim md5string As String
md5string = ByteCon.HexFromBytes(passwordhash)
Log(md5string)
passwordhash2 = md.GetMessageDigest(md5string.GetBytes("UTF8"),"SHA-1")
Dim SHA1string As String
SHA1string = ByteCon.HexFromBytes(passwordhash2)
Log(SHA1string)