Data update

Task/MD5/Ada/md5.adb

@@ -0,0 +1,7 @@
+with Ada.Text_IO; use Ada.Text_IO;
+with GNAT.MD5;
+
+procedure MD5_Digest is
+begin
+   Put(GNAT.MD5.Digest("Foo bar baz"));
+end MD5_Digest;

Task/MD5/COBOL/md5-1.cob

@@ -0,0 +1,62 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. MD5.
+       AUTHOR.  Bill Gunshannon
+       INSTALLATION.  Home.
+       DATE-WRITTEN.  16 December 2021.
+      ************************************************************
+      ** Program Abstract:
+      **   Use the md5sum utility and pass the HASH back using
+      **     a temp file.  Not elegant, but it works.
+      ************************************************************
+
+
+       ENVIRONMENT DIVISION.
+
+       INPUT-OUTPUT SECTION.
+       FILE-CONTROL.
+            SELECT Tmp-MD5 ASSIGN TO "/tmp/MD5"
+                 ORGANIZATION IS LINE SEQUENTIAL.
+
+
+       DATA DIVISION.
+
+       FILE SECTION.
+
+       FD  Tmp-MD5
+           DATA RECORD IS MD5-Rec.
+       01  MD5-Rec       PIC X(32).
+
+
+       WORKING-STORAGE SECTION.
+
+       01 Eof                   PIC X     VALUE 'F'.
+       01 Str1.
+          05  Pre-cmd   PIC X(8)
+              VALUE 'echo -n '.
+          05  Str1-complete.
+              10  Str1-Part1  PIC X(26)
+                  VALUE  'The quick brown fox jumps'.
+              10  Str1-Part2  PIC X(19)
+                  VALUE  ' over the lazy dog'.
+          05  Post-cmd    PIC X(20)
+              VALUE  ' | md5sum > /tmp/MD5'.
+       01  Str1-MD5          PIC X(32).
+
+
+       PROCEDURE DIVISION.
+
+       Main-Program.
+
+           DISPLAY Str1-complete.
+           PERFORM Get-MD5.
+           DISPLAY Str1-MD5.
+
+           STOP RUN.
+
+       Get-MD5.
+
+           CALL "SYSTEM" USING Str1.
+           OPEN INPUT Tmp-MD5.
+           READ Tmp-MD5 INTO Str1-MD5.
+           CLOSE Tmp-MD5.
+           CALL "CBL_DELETE_FILE" USING '/tmp/MD5'.

Task/MD5/COBOL/md5-2.cob

@@ -0,0 +1,87 @@
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. MD5-DEMO.
+       AUTHOR.  Bill Gunshannon
+       INSTALLATION.  Home.
+       DATE-WRITTEN.  16 December 2021.
+      ************************************************************
+      ** Program Abstract:
+      **   Use the md5sum utility and pass the HASH back using
+      **     a temp file.  Not elegant, but it works.
+      **   Same program but made MD5 a User Defined Function
+      **     instead of a procedure.
+      ************************************************************
+
+
+       ENVIRONMENT DIVISION.
+
+       CONFIGURATION SECTION.
+
+       REPOSITORY.
+          FUNCTION MD5.
+
+       DATA DIVISION.
+
+       WORKING-STORAGE SECTION.
+
+       01 Eof                   PIC X     VALUE 'F'.
+       01 Str1.
+          05  Pre-cmd   PIC X(8)
+              VALUE 'echo -n '.
+          05  Str1-complete.
+              10  Str1-Part1  PIC X(26)
+                  VALUE  'The quick brown fox jumps'.
+              10  Str1-Part2  PIC X(19)
+                  VALUE  ' over the lazy dog'.
+          05  Post-cmd    PIC X(20)
+              VALUE  ' | md5sum > /tmp/MD5'.
+       01  Str1-MD5          PIC X(32).
+
+
+       PROCEDURE DIVISION.
+
+       Main-Program.
+
+           DISPLAY Str1-complete.
+      *    PERFORM Get-MD5.
+           MOVE FUNCTION MD5(Str1) TO Str1-MD5.
+           DISPLAY Str1-MD5.
+
+           STOP RUN.
+
+        END PROGRAM MD5-DEMO.
+
+       IDENTIFICATION DIVISION.
+       FUNCTION-ID. MD5.
+
+       ENVIRONMENT DIVISION.
+
+       INPUT-OUTPUT SECTION.
+       FILE-CONTROL.
+            SELECT Tmp-MD5 ASSIGN TO "/tmp/MD5"
+                 ORGANIZATION IS LINE SEQUENTIAL.
+
+
+       DATA DIVISION.
+
+       FILE SECTION.
+
+       FD  Tmp-MD5
+           DATA RECORD IS MD5-Rec.
+       01  MD5-Rec       PIC X(32).
+
+
+
+       LINKAGE SECTION.
+       01  Str1        PIC X(128).
+       01  Str1-MD5    PIC X(32).
+
+       PROCEDURE DIVISION USING Str1 RETURNING Str1-MD5.
+
+           CALL "SYSTEM" USING FUNCTION TRIM(Str1).
+           OPEN INPUT Tmp-MD5.
+           READ Tmp-MD5 INTO Str1-MD5.
+           CLOSE Tmp-MD5.
+           CALL "CBL_DELETE_FILE" USING '/tmp/MD5'.
+           GO-BACK.
+
+        END FUNCTION MD5.

Task/MD5/Emacs-Lisp/md5.el

@@ -0,0 +1,2 @@
+(md5 "The quick brown fox jumped over the lazy dog's back") ;=> "e38ca1d920c4b8b8d3946b2c72f01680"
+(secure-hash 'md5 "The quick brown fox jumped over the lazy dog's back") ;=> "e38ca1d920c4b8b8d3946b2c72f01680"

Task/MD5/Haxe/md5.hx

@@ -0,0 +1,8 @@
+import haxe.crypto.Md5;
+
+class Main {
+  static function main() {	
+    var md5 = Md5.encode("The quick brown fox jumped over the lazy dog's back");
+    Sys.println(md5);
+  }
+}

Task/MD5/Pluto/md5.pluto

@@ -0,0 +1,19 @@
+local crypto = require("crypto")
+
+local strings = {
+    "",
+    "a",
+    "abc",
+    "message digest",
+    "abcdefghijklmnopqrstuvwxyz",
+    "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789",
+    "12345678901234567890123456789012345678901234567890123456789012345678901234567890",
+    "The quick brown fox jumps over the lazy dog",
+    "The quick brown fox jumps over the lazy cog.",
+    "Rosetta Code"
+}
+
+for strings as s do
+    local hash = crypto.md5(s)
+    print($"{hash} <== '{s}'")
+end

Task/MD5/PowerShell/md5.ps1

@@ -0,0 +1,4 @@
+$string = "The quick brown fox jumped over the lazy dog's back"
+$data = [Text.Encoding]::UTF8.GetBytes($string)
+$hash = [Security.Cryptography.MD5]::Create().ComputeHash($data)
+([BitConverter]::ToString($hash) -replace '-').ToLower()

Task/MD5/Rebol/md5-1.rebol

@@ -0,0 +1,2 @@
+checksum/method "The quick brown fox jumped over the lazy dog" 'md5
+;== #{08A008A01D498C404B0C30852B39D3B8}

Task/MD5/Rebol/md5-2.rebol

@@ -0,0 +1,2 @@
+checksum "The quick brown fox jumped over the lazy dog" 'md5
+;== #{08A008A01D498C404B0C30852B39D3B8}