corz distro machine.. download/php/security/sha1/sha1.php


<?php // ۞// text { encoding:utf-8;bom:no;linebreaks:unix;tabs:4sp; }
if (realpath ($_SERVER['SCRIPT_FILENAME']) == realpath (__FILE__))  {
    /*  deny direct access  */   die ( 'to err is human, human!' ); }
/*

    PHP implementation of the Secure Hash Algorithm (SHA-1) 
    [as defined in FIPS PUB 180-1]

    Use when php's sha1() is not available on your server.
    (Last modified: Friday Mar 31, 2006 ;o)

    This code is available under the Lesser GNU:
    http://www.gnu.org/licenses/lgpl.txt

    Modified by Jerome Clarke (sinatosk@gmail.com) 1st Oct 2004

    Based on the PHP implementation by Marcus Campbell..
    http://www.tecknik.net/sha-1/

    Which was in turn adapted from Paul Johnston's JavaScript 
    implementation.. http://pajhome.org.uk/ 

    Finally, ironically, it gets coupled back with Paj's 
    JavaScript code in the pajamas "shaggie" plug-in..

        https://corz.org/server/security/pajamas.php
*/

// second parameter for php5 compatability.
if (!function_exists("sha1")) {

    function sha1($str, $raw_output=false) { 
        if ($raw_output === true) { 
            return pack('H*', sha1($str, false));
        }

        $x = sha1_str2blks_SHA1($str);
        $a =  1732584193;
        $b = -271733879;
        $c = -1732584194;
        $d =  271733878;
        $e = -1009589776;

        $x_count = count($x);

        for ($i = 0; $i < $x_count; $i += 16) {
            $olda = $a;
            $oldb = $b;
            $oldc = $c;
            $oldd = $d;
            $olde = $e;

            for ($j = 0; $j < 80; $j++) {
                $w[$j] = ($j < 16) ? $x[$i + $j] : sha1_rol($w[$j - 3] ^ $w[$j - 8] ^ $w[$j - 14] ^ $w[$j - 16], 1);

                $t = sha1_safe_add(sha1_safe_add(sha1_rol($a, 5), sha1_ft($j, $b, $c, $d)),
                    sha1_safe_add(sha1_safe_add($e, $w[$j]), sha1_kt($j)));
                $e = $d;
                $d = $c;
                $c = sha1_rol($b, 30);
                $b = $a;
                $a = $t;
            }

            $a = sha1_safe_add($a, $olda);
            $b = sha1_safe_add($b, $oldb);
            $c = sha1_safe_add($c, $oldc);
            $d = sha1_safe_add($d, $oldd);
            $e = sha1_safe_add($e, $olde);
        }

        return sprintf('%08x%08x%08x%08x%08x', $a, $b, $c, $d, $e);
    }

}
// auxiliary functions.. 
function sha1_str2blks_SHA1($str) {

    $strlen_str = strlen($str);
    $nblk = (($strlen_str + 8) >> 6) + 1;
    for ($i=0; $i < $nblk * 16; $i++) {
        $blks[$i] = 0;
    }
    for ($i=0; $i < $strlen_str; $i++) {
        $blks[$i >> 2] |= ord(substr($str, $i, 1)) << (24 - ($i % 4) * 8);
    }

    $blks[$i >> 2] |= 0x80 << (24 - ($i % 4) * 8);
    $blks[$nblk * 16 - 1] = $strlen_str * 8;

    return $blks;
}

function sha1_safe_add($x, $y) {
    $lsw = ($x & 0xFFFF) + ($y & 0xFFFF);
    $msw = ($x >> 16) + ($y >> 16) + ($lsw >> 16);

    return ($msw << 16) | ($lsw & 0xFFFF);
}

function sha1_rol($num, $cnt) {
    return ($num << $cnt) | sha1_zeroFill($num, 32 - $cnt);   
}

function sha1_zeroFill($a, $b) {
    $bin = decbin($a);
    $strlen_bin = strlen($bin);
    $bin = $strlen_bin < $b ? 0 : substr($bin, 0, $strlen_bin - $b);
    for ($i=0; $i < $b; $i++) {
        $bin = '0'.$bin;
    }
    return bindec($bin);
}

function sha1_ft($t, $b, $c, $d) {
    if ($t < 20) return ($b & $c) | ((~$b) & $d);
    if ($t < 40) return $b ^ $c ^ $d;
    if ($t < 60) return ($b & $c) | ($b & $d) | ($c & $d);

    return $b ^ $c ^ $d;
}

function sha1_kt($t) {
    if ($t < 20) return 1518500249;
    if ($t < 40) return 1859775393;
    if ($t < 60) return -1894007588;

    return -899497514;
}

?>