10 years later, this one works correctly and is more readable. 
sub  SHA() {
    ## 5/19/22 - lifted from
    ## https://www.floodgap.com/software/ttytter/dist2/2.0.00.txt
    ## slightly modified to return the string formatted like the old
    ## sha routine and to condense some variable assignments.  I 
    ## also corrected the lack of zero padding by changing 
    ## '%8x 'x4 . '%8x' to sprintf '%0.8x 'x4 . '%.8x'.
    
    my $string = shift;
    my $showwork = 0;
    if ($showwork) {print "string length: @{[ length($string) ]}\n"}

    my $constant = 'D9T4C`>_-JXF8NMS^$#)4=L/2X?!:@GF9;MGKH8\;O-S*8L\'6
+';
    my @A = unpack('N*', unpack('u', $constant));
    my @K = splice(@A, 5, 4);
    my $M  = sub { # 64-bit warning
        my $x;
        my $m;
        ($x = pop @_) - ($m=4294967296) * int($x / $m);
    };
    my $L = sub { # 64-bit warning
        my $n = pop @_;
        my $x;
        ((($x = pop @_) << $n) | ((2 ** $n - 1) & ($x >> 32 - $n))) &
            4294967295;
    };
    my ($l, $p) = ('', 0);
    my ($r, $a, $b, $c, $d, $e, $us, @nuA);
    $string = unpack("H*", $string);

    do {
        my $i;
        $us = substr($string, 0, 128);
        $string = substr($string, 128);
        $l += $r = (length($us) / 2);
        if ($showwork) {print "pad length: $r\n"}
        ($r++, $us .= "80") if ($r < 64 && !$p++);
        my @W = unpack('N16', pack("H*", $us) . "\000" x 7);
        $W[15] = $l * 8 if ($r < 57);
        foreach $i (16 .. 79) {
            push(@W,
        &$L($W[$i - 3] ^ $W[$i - 8] ^ $W[$i - 14] ^ $W[$i - 16], 1));
        }
        ($a, $b, $c, $d, $e) = @A;
        foreach $i (0 .. 79) {
           my $qq = ($i < 20) ? ($b & ($c ^ $d) ^ $d) :
                ($i < 40) ? ($b ^ $c ^ $d) :
                ($i < 60) ? (($b | $c) & $d | $b & $c) :
                ($b ^ $c ^ $d);
            $t = &$M($qq + $e + $W[$i] + $K[$i / 20] + &$L($a, 5));
            $e = $d;
            $d = $c;
            $c = &$L($b, 30);
            $b = $a;
            $a = $t;
        }
        @nuA = ($a, $b, $c, $d, $e);
        if ($showwork) {print "$a $b $c $d $e\n"}
        $i = 0;
        @A = map({ &$M($_ + $nuA[$i++]); } @A);
    } while ($r > 56);
    my $x = sprintf '%.8x 'x4 . '%.8x',@A;
    if ($showwork) {print $x,"\n"}
    return $x;
}

[download]

In reply to Re^2: squeamish ossifrage - SHA failing [SOLVED::sort of] by Anonymous Monk
in thread squeamish ossifrage - SHA failing by vnomad

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.