Browse Source

Added digest examples.

woollybah 5 years ago
parent
commit
a5ab88bbba

+ 12 - 0
blake2bdigest.mod/doc/tblake2b_160.bmx

@@ -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

+ 12 - 0
blake2bdigest.mod/doc/tblake2b_256.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Crypto.Blake2BDigest
+
+Local data:String = "Hello Digest World !!"
+
+Local digest:TMessageDigest = GetMessageDigest("BLAKE2B_256")
+
+If digest Then
+	Print digest.Digest(data)
+End If

+ 12 - 0
blake2bdigest.mod/doc/tblake2b_384.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Crypto.Blake2BDigest
+
+Local data:String = "Hello Digest World !!"
+
+Local digest:TMessageDigest = GetMessageDigest("BLAKE2B_384")
+
+If digest Then
+	Print digest.Digest(data)
+End If

+ 12 - 0
blake2bdigest.mod/doc/tblake2b_512.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Crypto.Blake2BDigest
+
+Local data:String = "Hello Digest World !!"
+
+Local digest:TMessageDigest = GetMessageDigest("BLAKE2B_512")
+
+If digest Then
+	Print digest.Digest(data)
+End If

+ 12 - 0
md5digest.mod/doc/tmd5.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Crypto.MD5Digest
+
+Local data:String = "Hello Digest World !!"
+
+Local digest:TMessageDigest = GetMessageDigest("MD5")
+
+If digest Then
+	Print digest.Digest(data)
+End If

+ 12 - 0
ripemd128digest.mod/doc/tripemd128.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Crypto.Ripemd128Digest
+
+Local data:String = "Hello Digest World !!"
+
+Local digest:TMessageDigest = GetMessageDigest("RIPEMD-128")
+
+If digest Then
+	Print digest.Digest(data)
+End If

+ 12 - 0
ripemd160digest.mod/doc/tripemd160.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Crypto.Ripemd160Digest
+
+Local data:String = "Hello Digest World !!"
+
+Local digest:TMessageDigest = GetMessageDigest("RIPEMD-160")
+
+If digest Then
+	Print digest.Digest(data)
+End If

+ 12 - 0
ripemd256digest.mod/doc/tripemd256.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Crypto.Ripemd256Digest
+
+Local data:String = "Hello Digest World !!"
+
+Local digest:TMessageDigest = GetMessageDigest("RIPEMD-256")
+
+If digest Then
+	Print digest.Digest(data)
+End If

+ 12 - 0
ripemd320digest.mod/doc/tripemd320.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Crypto.Ripemd320Digest
+
+Local data:String = "Hello Digest World !!"
+
+Local digest:TMessageDigest = GetMessageDigest("RIPEMD-320")
+
+If digest Then
+	Print digest.Digest(data)
+End If

+ 12 - 0
sha1digest.mod/doc/tsha1.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Crypto.SHA1Digest
+
+Local data:String = "Hello Digest World !!"
+
+Local digest:TMessageDigest = GetMessageDigest("SHA1")
+
+If digest Then
+	Print digest.Digest(data)
+End If

+ 2 - 1
sha1digest.mod/sha1digest.bmx

@@ -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

+ 12 - 0
sha256digest.mod/doc/tsha256.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Crypto.SHA256Digest
+
+Local data:String = "Hello Digest World !!"
+
+Local digest:TMessageDigest = GetMessageDigest("SHA-256")
+
+If digest Then
+	Print digest.Digest(data)
+End If

+ 12 - 0
sha3digest.mod/doc/tsha3_224.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Crypto.SHA3Digest
+
+Local data:String = "Hello Digest World !!"
+
+Local digest:TMessageDigest = GetMessageDigest("SHA3-224")
+
+If digest Then
+	Print digest.Digest(data)
+End If

+ 12 - 0
sha3digest.mod/doc/tsha3_256.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Crypto.SHA3Digest
+
+Local data:String = "Hello Digest World !!"
+
+Local digest:TMessageDigest = GetMessageDigest("SHA3-256")
+
+If digest Then
+	Print digest.Digest(data)
+End If

+ 12 - 0
sha3digest.mod/doc/tsha3_384.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Crypto.SHA3Digest
+
+Local data:String = "Hello Digest World !!"
+
+Local digest:TMessageDigest = GetMessageDigest("SHA3-384")
+
+If digest Then
+	Print digest.Digest(data)
+End If

+ 12 - 0
sha3digest.mod/doc/tsha3_512.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Crypto.SHA3Digest
+
+Local data:String = "Hello Digest World !!"
+
+Local digest:TMessageDigest = GetMessageDigest("SHA3-512")
+
+If digest Then
+	Print digest.Digest(data)
+End If

+ 12 - 0
sha512digest.mod/doc/tsha512.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Crypto.SHA512Digest
+
+Local data:String = "Hello Digest World !!"
+
+Local digest:TMessageDigest = GetMessageDigest("SHA-512")
+
+If digest Then
+	Print digest.Digest(data)
+End If

+ 12 - 0
tigerdigest.mod/doc/ttiger.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Crypto.TigerDigest
+
+Local data:String = "Hello Digest World !!"
+
+Local digest:TMessageDigest = GetMessageDigest("TIGER")
+
+If digest Then
+	Print digest.Digest(data)
+End If

+ 12 - 0
whirlpooldigest.mod/doc/twhirlpool.bmx

@@ -0,0 +1,12 @@
+SuperStrict
+
+Framework BRL.StandardIO
+Import Crypto.WhirlpoolDigest
+
+Local data:String = "Hello Digest World !!"
+
+Local digest:TMessageDigest = GetMessageDigest("WHIRLPOOL")
+
+If digest Then
+	Print digest.Digest(data)
+End If