woollybah před 5 roky
rodič
revize
6fe4204dd9

+ 1 - 0
digest.mod/doc/data.txt

@@ -0,0 +1 @@
+Hello World!

+ 13 - 0
digest.mod/doc/getmessagedigest.bmx

@@ -0,0 +1,13 @@
+SuperStrict
+
+Framework brl.standardio
+Import Crypto.MD5Digest
+
+Local data:String = "Hello World"
+
+Local digest:TMessageDigest = GetMessageDigest("md5")
+
+If digest Then
+	Print digest.Digest(data)
+End If
+

+ 10 - 0
digest.mod/doc/listdigests.bmx

@@ -0,0 +1,10 @@
+SuperStrict
+
+Framework brl.standardio
+Import Crypto.MD5Digest
+Import Crypto.SHA512Digest
+
+Print "Available digests:"
+For Local digest:String = EachIn ListDigests()
+	Print "  " + digest
+Next

+ 12 - 0
digest.mod/doc/tmessagedigest_digest_r.bmx

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

+ 14 - 0
digest.mod/doc/tmessagedigest_digest_tstream.bmx

@@ -0,0 +1,14 @@
+SuperStrict
+
+Framework brl.standardio
+Import Crypto.SHA256Digest
+
+Local data:TStream = ReadStream("data.txt")
+
+Local digest:TMessageDigest = GetMessageDigest("sha-256")
+
+If digest Then
+	Print digest.Digest(data)
+End If
+
+data.Close()