Using MD5 Message Digest in Perl

This section provides a tutorial example on how to use MD5 message digest algorithm in Perl. John Allen implemented the entire MD5 algorithm in 8 lines of Perl 5 code.

If you are interested in using MD5 in Perl, you can look a very interesting implementation by John Allen in 8 lines of Perl 5, see http://www.cypherspace.org/adam/rsa/md5.html. Here is a copy of John's code, stored in PerlMd5In8Lines.pl:

#!/usr/bin/perl -iH9T4C`>_-JXF8NMS^$#)4=@<,$18%"0X4!`L0%P8*#Q4``04``04#!P``
@A=unpack N4C24,unpack u,$^I;@K=map{int abs 2**32*sin$_}1..64;sub L{($x=pop)
<<($n=pop)|2**$n-1&$x>>32-$n}sub M{($x=pop)-($m=1+~0)*int$x/$m}do{$l+=$r=read
STDIN,$_,64;$r++,$_.="\x80"if$r<64&&!$p++;@W=unpack V16,$_."\0"x7;$W[14]=$l*8
if$r<57;($a,$b,$c,$d)=@A;for(0..63){$a=M$b+L$A[4+4*($_>>4)+$_%4],M&{(sub{$b&$c
|$d&~$b},sub{$b&$d|$c&~$d},sub{$b^$c^$d},sub{$c^($b|~$d)})[$z=$_/16]}+$W[($A[
20+$z]+$A[24+$z]*($_%16))%16]+$K[$_]+$a;($a,$b,$c,$d)=($d,$a,$b,$c)}$v=a;for(
@A[0..3]){$_=M$_+${$v++}}}while$r>56;print unpack(H32,pack V4,@A),"\n"

To test this Perl program on Windows, I did the following in a command window:

>copy con empty.txt
^Z
        1 file(s) copied.

>perl PerlMd5In8Lines.pl < empty.txt
d41d8cd98f00b204e9800998ecf8427e

>copy con abc.txt
abc^Z
        1 file(s) copied.

>perl PerlMd5In8Lines.pl < abc.txt
900150983cd24fb0d6963f7d28e17f72

>copy con a_to_z.txt
abcdefghijklmnopqrstuvwxyz^Z
        1 file(s) copied.

>perl PerlMd5In8Lines.pl < a_to_z.txt
c3fcd3d76192e4007dfb496cca67e13b

The output matches the testing result listed in RFC 1321. This proves that John's program works perfectly. Note that:

Last update: 2013.

Table of Contents

 About This Book

 Cryptography Terminology

 Cryptography Basic Concepts

 Introduction to AES (Advanced Encryption Standard)

 Introduction to DES Algorithm

 DES Algorithm - Illustrated with Java Programs

 DES Algorithm Java Implementation

 DES Algorithm - Java Implementation in JDK JCE

 DES Encryption Operation Modes

 DES in Stream Cipher Modes

 PHP Implementation of DES - mcrypt

 Blowfish - 8-Byte Block Cipher

 Secret Key Generation and Management

 Cipher - Secret Key Encryption and Decryption

 Introduction of RSA Algorithm

 RSA Implementation using java.math.BigInteger Class

 Introduction of DSA (Digital Signature Algorithm)

 Java Default Implementation of DSA

 Private key and Public Key Pair Generation

 PKCS#8/X.509 Private/Public Encoding Standards

 Cipher - Public Key Encryption and Decryption

MD5 Mesasge Digest Algorithm

 What Is MD5 Message Digest Algorithm?

 MD5 Message Digest Algorithm Overview

 Using MD5 Message Digest in Java

 Using MD5 Message Digest in PHP

Using MD5 Message Digest in Perl

 SHA1 Mesasge Digest Algorithm

 OpenSSL Introduction and Installation

 OpenSSL Generating and Managing RSA Keys

 OpenSSL Managing Certificates

 OpenSSL Generating and Signing CSR

 OpenSSL Validating Certificate Path

 "keytool" and "keystore" from JDK

 "OpenSSL" Signing CSR Generated by "keytool"

 Migrating Keys from "keystore" to "OpenSSL" Key Files

 Certificate X.509 Standard and DER/PEM Formats

 Migrating Keys from "OpenSSL" Key Files to "keystore"

 Using Certificates in IE (Internet Explorer)

 Using Certificates in Firefox

 Using Certificates in Google Chrome

 Outdated Tutorials

 References

 PDF Printing Version