MD4: Difference between revisions

{{task}} [[Category:Checksums]]

 

 

'''MD4''' is an obsolete hash function that computes a 128-bit message digest that sometimes appears in obsolete protocols.

 

RFC 1320 specifies the MD4 algorithm. RFC 6150 declares that MD4 is obsolete.

 

=={{header|AutoHotkey}}==

Source: [https://github.com/jNizM/AutoHotkey_Scripts/tree/master/Functions/Checksums MD4 @github] by jNizM

MsgBox, % "String:`n" (str) "`n`nMD4:`n" MD4(str)

 

StrPut(string, &data, floor(length / chrlength), encoding)

return CalcAddrHash(&data, length, algid, hash, hashlength)

{{out}}

<pre>String: Rosetta Code

MD4: A52BCFC6A0D0D300CDC5DDBFBEFE478B</pre>

 

=={{header|Clojure}}==

{{libheader|pandect}}

 

{{Out}}

=={{header|Common Lisp}}==

{{libheader|Ironclad}}

(defun md4 (str)

(ironclad:byte-array-to-hex-string

(ironclad:ascii-string-to-byte-array str))))

 

 

{{Out}}

<pre>"a52bcfc6a0d0d300cdc5ddbfbefe478b"</pre>

 

=={{header|Emacs Lisp}}==

<code>md4.el</code> by Taro Kawagishi, originally from [http://git.chise.org/elisp/flim/ FLIM] and included in recent Emacs, is an Elisp implementation of the MD4 algorithm. Its <code>md4</code> function returns the checksum as 16 binary bytes. <code>encode-hex-string</code> from <code>hex-util.el</code> can convert that to a hex string if desired.

 

(let* ((s "Rosetta Code")

(m (md4 s (length s)))) ;; m = 16 binary bytes

(encode-hex-string m))

=>

 

=={{header|Erlang}}==

-module(md4).

-export([md4/0]).

<<MD4:128>> = crypto:md4("Rosetta Code"),

io:fwrite("Rosetta Code => ~.16B~n",[MD4]).

<pre>

Rosetta Code => A52BCFC6A0D0D300CDC5DDBFBEFE478B

=={{header|Go}}==

{{libheader|Go sub-repositories}}

 

import (

"fmt"

)

h.Write([]byte("Rosetta Code"))

fmt.Printf("%x\n", h.Sum(nil))

{{out}}

<pre>

a52bcfc6a0d0d300cdc5ddbfbefe478b

</pre>

 

=={{header|Java}}==

{{libheader|BouncyCastle}}

import org.bouncycastle.util.encoders.Hex;

 

System.out.println();

}

{{out}}

<pre>

</pre>

 

 

 

=={{header|Lasso}}==

{{out}}

<pre> A52BCFC6A0D0D300CDC5DDBFBEFE478B </pre>

{{libheader|LuaCrypto}} ([http://mkottman.github.io/luacrypto/ luarocks install LuaCrypto])

 

 

require "crypto"

 

 

{{out}}

<pre>a52bcfc6a0d0d300cdc5ddbfbefe478b</pre>

 

{{libheader|OpenSSL}}

 

const MD4Len = 16

result = ""

var s = MD4(s.cstring, s.len.culong)

result.add s[i].BiggestInt.toHex(2).toLower

 

 

=={{header|Perl}}==

 

{{out}}

<pre>Rosetta Code => a52bcfc6a0d0d300cdc5ddbfbefe478b</pre>

 

{{out}}

<pre>a52bcfc6a0d0d300cdc5ddbfbefe478b</pre>

=={{header|PicoLisp}}==

Library and implementation.

(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

1 5 9 13 2 6 10 14 3 7 11 15 4 8 12 16

'(NIL (16)) ) ) ) ) )

 

 

=={{header|Python}}==

Use 'hashlib' from python's standard library.

{{libheader|hashlib}}

 

=={{header|Racket}}==

#lang racket

(require (planet soegaard/digest:1:2/digest))

(md4 #"Rosetta Code")

"a52bcfc6a0d0d300cdc5ddbfbefe478b"

 

=={{header|Ruby}}==

Use 'openssl' from Ruby's standard library.

{{libheader|OpenSSL}}

 

Implement MD4 in Ruby.

 

 

# Calculates MD4 message digest of _string_. Returns binary digest.

str = 'Rosetta Code'

printf "%s:\n %s\n", str, *md4(str).unpack('H*')

{{out}}

<pre>Rosetta Code:

a52bcfc6a0d0d300cdc5ddbfbefe478b</pre>

 

=={{header|Scala}}==

 

object RosettaRIPEMD160 extends App {

import scala.compat.Platform.currentTime

println(s"Successfully completed without errors. [total ${currentTime - executionStart} ms]")

 

=={{header|Seed7}}==

include "msgdigest.s7i";

 

begin

writeln(hex(md4("Rosetta Code")));

 

{{out}}

<pre>

=={{header|Tcl}}==

{{tcllib|md4}}

 

# Use -hex option for hexadecimal output instead of binary

{{out}}

<pre>A52BCFC6A0D0D300CDC5DDBFBEFE478B</pre>