Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...

my $data = "squeamish ossifrage\n";
print sha1_hex($data);

Select or download this

sub  SHA {          ### This algorithm is based on the implementation 
+of SHA
            ### written by: John Allen (allen@grumman.com).
...

return sprintf'%8x 'x4 . '%8x',@A;
}