MD5: Difference between revisions

 

If the solution on this page is a library solution, see [[MD5/Implementation]] for an implementation from scratch.

 

=={{header|Ada}}==

===Regular version===

Source: [http://www.autohotkey.com/forum/post-275910.html#275910 AutoHotkey forum] by SKAN

MsgBox % MD5(data,StrLen(data)) ; 900150983cd24fb0d6963f7d28e17f72

 

Return MD5

}

 

===Native implementation===

Source: [http://www.autohotkey.com/forum/topic17853.html AutoHotkey forum] by Laszlo

r = 12, 17, 22, 7, 12, 17, 22, 7, 12, 17, 22, 7, 12, 17, 22

, 5, 9, 14, 20, 5, 9, 14, 20, 5, 9, 14, 20, 5, 9, 14, 20

SetFormat Integer, DECIMAL

Return x

 

=={{Header|BBC BASIC}}==

 

=={{header|C sharp|C#}}==

<lang csharp>using System.Text;

using System.Security.Cryptography;

 

=={{header|Clojure}}==

(map (partial format "%02x")

(.digest (doto (java.security.MessageDigest/getInstance "MD5")

.reset

 

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

This one uses a library, but if you want to see how it's implemented, press M-x slime-edit-definition and go to <tt>md5:md5sum-stream</tt>.

<lang lisp>(require #+sbcl 'sb-md5 #-sbcl 'md5)

 

=={{header|Delphi}}==

If you require a native implementation, look inside the class '''TIdHashMessageDigest5'''. This class is placed in the unit '''IdHashMessageDigest.pas'''.

 

{$APPTYPE CONSOLE}

Writeln(MD5('12345678901234567890123456789012345678901234567890123456789012345678901234567890'));

Readln;

'''Output:'''

<pre>

 

=={{header|E}}==

{{works with|E-on-Java}}

{{trans|Java}} (with modifications)

<lang e>def makeMessageDigest := <import:java.security.makeMessageDigest>

def sprintf := <import:java.lang.makeString>.format

=={{header|Erlang}}==

By default, Erlang's crypto functions like md5 return a binary value rather than a hex string. We have two write our own function to translate it:

-export([md5/1]).

 

string:to_upper(

lists:flatten([io_lib:format("~2.16.0b",[N]) || <<N>> <= erlang:md5(S)])

Testing it:

{ok,tests}

2> tests:md5("The quick brown fox jumped over the lazy dog's back").

 

=={{header|Factor}}==

=={{header|Forth}}==

{{libheader|Forth Foundation Library}}

 

=={{header|Frink}}==

The <CODE>messageDigest[string, hash]</CODE> returns a hex-encoded hash of any input string with a variety of hashing functions.

 

=={{header|Go}}==

=={{header|J}}==

Using the <tt>[http://www.jsoftware.com/trac/addons/browser/trunk/convert/misc/md5.ijs md5]</tt> script from the <tt>convert/misc</tt> addon package:

md5 'The quick brown fox jumped over the lazy dog''s back'

 

=={{header|Java}}==

Modified from [http://mindprod.com/jgloss/md5.html mindprod's Java Glossary]:

<lang java>import java.io.UnsupportedEncodingException;

 

end function

 

 

 

=={{header|Lua}}==

Using the [http://www.keplerproject.org/md5/ Kepler MD5 library]:

<lang Lua>require "md5"

 

test("abcdefghijklmnopqrstuvwxyz","c3fcd3d76192e4007dfb496cca67e13b")

test("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789","d174ab98d277d9f5a5611c2c9f419d9f")

 

=={{header|Mathematica}}==

Mathematica has built-in function Hash and FileHash, it should be noted that Hash["hello","MD5"] would give the MD5 of ""hello"" in stead of "hello". This is done because it wants to distinguish between the variable hello and the string "hello". A workaround for getting MD5's from strings would be:

WriteString[stream,string];

file=Close[stream];

DeleteFile[file];

hash

Example:

gives back:

 

=={{header|MATLAB}}==

end %md5</lang>

Sample Usage:

<lang MATLAB>>> md5('The quick brown fox jumps over the lazy dog.')

end

 

<pre>

<Message>The quick brown fox jumps over the lazy dog</Message>

=={{header|OpenEdge/Progres}}==

The MD5-DIGEST function is readily available, the output is passed thru HEX-ENCODE to convert the raw result to a hexadecimal string, this then needs to be passed thru STRING for display purposes.

<lang progress>MESSAGE

1 STRING( HEX-ENCODE( MD5-DIGEST( "" ) ) ) SKIP

OK

---------------------------

</pre>

 

=={{header|Perl 6}}==

Library [http://github.com/cosimo/perl6-digest-md5/ Digest::MD5]

 

=={{header|PHP}}==

<lang php>$string = "The quick brown fox jumped over the lazy dog's back";

echo md5( $string );</lang>

 

=={{header|REBOL}}==

== #{08A008A01D498C404B0C30852B39D3B8}</lang>

 

=={{header|RLaB}}==

RLaB has a built-in function ''hash,''

:<math>hs = hash(fn, s /, nl/) </math>

calculated in RLaB is the same as the hash of the same string vector written to a file.

 

The quick brown fox jumped over the lazy dog's back

 

>> hash("md5", x)

 

=={{header|Ruby}}==

 

=={{header|Slate}}==

You must load the code in 'src/lib/md5.slate'.

 

=={{header|Smalltalk}}==

=={{header|SQL}}==

{{works with|MySQL}}

<lang sql>SELECT MD5('The quick brown fox jumped over the lazy dog\'s back')</lang>