Data update

Task/MD5/Ada/md5.ada

@@ -1,7 +0,0 @@
-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.cobol

@@ -1,62 +0,0 @@
-       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.cobol

@@ -1,87 +0,0 @@
-       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.l

@@ -1,2 +0,0 @@
-(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.haxe

@@ -1,8 +0,0 @@
-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/PowerShell/md5.psh

@@ -1,4 +0,0 @@
-$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

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

Task/MD5/REBOL/md5-2.rebol

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