@@ -0,0 +1,12 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Crypto.Blake2BDigest
+Local data:String = "Hello Digest World !!"
+Local digest:TMessageDigest = GetMessageDigest("BLAKE2B_160")
+If digest Then
+ Print digest.Digest(data)
+End If
+Local digest:TMessageDigest = GetMessageDigest("BLAKE2B_256")
+Local digest:TMessageDigest = GetMessageDigest("BLAKE2B_384")
+Local digest:TMessageDigest = GetMessageDigest("BLAKE2B_512")
+Import Crypto.MD5Digest
+Local digest:TMessageDigest = GetMessageDigest("MD5")
+Import Crypto.Ripemd128Digest
+Local digest:TMessageDigest = GetMessageDigest("RIPEMD-128")
+Import Crypto.Ripemd160Digest
+Local digest:TMessageDigest = GetMessageDigest("RIPEMD-160")
+Import Crypto.Ripemd256Digest
+Local digest:TMessageDigest = GetMessageDigest("RIPEMD-256")
+Import Crypto.Ripemd320Digest
+Local digest:TMessageDigest = GetMessageDigest("RIPEMD-320")
+Import Crypto.SHA1Digest
+Local digest:TMessageDigest = GetMessageDigest("SHA1")
@@ -66,7 +66,8 @@ End Type
Type TSHA1DigestRegister Extends TDigestRegister
Method GetDigest:TMessageDigest( name:String ) Override
- If name.ToUpper() = "SHA1" Then
+ name = name.ToUpper()
+ If name = "SHA1" Or name = "SHA-1" Then
Return New TSHA1
End If
End Method
+Import Crypto.SHA256Digest
+Local digest:TMessageDigest = GetMessageDigest("SHA-256")
+Import Crypto.SHA3Digest
+Local digest:TMessageDigest = GetMessageDigest("SHA3-224")
+Local digest:TMessageDigest = GetMessageDigest("SHA3-256")
+Local digest:TMessageDigest = GetMessageDigest("SHA3-384")
+Local digest:TMessageDigest = GetMessageDigest("SHA3-512")
+Import Crypto.SHA512Digest
+Local digest:TMessageDigest = GetMessageDigest("SHA-512")
+Import Crypto.TigerDigest
+Local digest:TMessageDigest = GetMessageDigest("TIGER")
+Import Crypto.WhirlpoolDigest
+Local digest:TMessageDigest = GetMessageDigest("WHIRLPOOL")