Using SHA1 Message Digest in Perl

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

If you are interested in using SHA1 in Perl, you can look a very interesting implementation by John Allen in 8 lines of perl5, see http://www.cypherspace.org/adam/rsa/sha.html.

Here is a copy of John's code, stored in PerlSha1In8Lines.pl:

#!/usr/bin/perl -iD9T4C`>_-JXF8NMS^$#)4=L/2X?!:@GF9;MGKH8\;O-S*8L'6
@A=unpack"N*",unpack u,$^I;@K=splice@A,5,4;sub M{($x=pop)-($m=1+~0)*int$x/$m};
sub L{$n=pop;($x=pop)<<$n|2**$n-1&$x>>32-$n}@F=(sub{$b&($c^$d)^$d},$S=sub{$b^$c
^$d},sub{($b|$c)&$d|$b&$c},$S);do{$l+=$r=read STDIN,$_,64;$r++,$_.="\x80"if$r<
64&&!$p++;@W=unpack N16,$_."\0"x7;$W[15]=$l*8 if$r<57;for(16..79){push@W,L$W[$_
-3]^$W[$_-8]^$W[$_-14]^$W[$_-16],1}($a,$b,$c,$d,$e)=@A;for(0..79){$t=M&{$F[$_/
20]}+$e+$W[$_]+$K[$_/20]+L$a,5;$e=$d;$d=$c;$c=L$b,30;$b=$a;$a=$t}$v='a';@A=map{
M$_+${$v++}}@A}while$r>56;printf'%.8x'x5 ."\n",@A

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

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

herong> perl PerlSha1In8Lines.pl < empty.txt
da39a3ee5e6b4b0d3255bfef95601890afd80709

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

herong> perl PerlSha1In8Lines.pl < abc.txt
a9993e364706816aba3e25717850c26c9cd0d89d

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

herong> perl PerlSha1In8Lines.pl < a_to_z.txt
32d10c7b8cf96570ca04ce37f2a19d84240d3a89

The output matches the testing result listed in FreeBSD libmd makefile: http://www.opensource.apple.com/source/libmd/libmd-2/Makefile. The output proves that John's program works perfectly. Note that:

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

SHA1 Mesasge Digest Algorithm

 What Is SHA1 Message Digest Algorithm?

 SHA1 Message Digest Algorithm Overview

 Using SHA1 Message Digest in Java

 Using SHA1 Message Digest in PHP

Using SHA1 Message Digest in Perl

 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

 Using Certificates in Google Chrome

 Using Certificates in Firefox

 Archived Tutorials

 References

 Full Version in PDF/EPUB