testing phpass on PHP 5.2.x

// testing on http://sandbox.onlinephpfunctions.com/

function yourls_phpass_instance( $iteration = 8, $portable = false ) {
    $iteration = yourls_apply_filter( 'phpass_new_instance_iteration', $iteration );
    $portable  = yourls_apply_filter( 'phpass_new_instance_portable', $portable );

    static $instance = false;
    if( $instance == false ) {
        $instance = new PasswordHash( $iteration, $portable );
    }

    return $instance;
}

function yourls_apply_filter( $input ) {
return $input;
}

function yourls_phpass_hash( $password ) {
    $hasher = yourls_phpass_instance();
    return $hasher->HashPassword( $password );
}

function yourls_phpass_check( $password, $hash ) {
    $hasher = yourls_phpass_instance();
    return $hasher->CheckPassword( $password, $hash );
}


function yourls_check_password_hash( $user, $submitted_password ) {
    global $yourls_user_passwords;

echo "******* internal BEGIN\n";
var_dump( $user );
var_dump( $submitted_password );
var_dump( isset( $yourls_user_passwords[ $user ] ) );
var_dump( yourls_has_phpass_password( $user ) );
list( $null, $hash ) = explode( ':', $yourls_user_passwords[ $user ] );
var_dump( $hash );
$hash = str_replace( '!', '$', $hash );
var_dump( $hash );
var_dump( yourls_phpass_check( $submitted_password, $hash ) );
echo "******* internal END\n\n";


    if( !isset( $yourls_user_passwords[ $user ] ) )
        return false;

    if ( yourls_has_phpass_password( $user ) ) {
        // Stored password is hashed with phpass
        list( $null, $hash ) = explode( ':', $yourls_user_passwords[ $user ] );
        $hash = str_replace( '!', '$', $hash );
        return ( yourls_phpass_check( $submitted_password, $hash ) );
    } else if( yourls_has_md5_password( $user ) ) {
        // Stored password is a salted md5 hash: "md5:<$r = rand(10000,99999)>:<md5($r.'thepassword')>"
        list( $null, $salt, $null ) = explode( ':', $yourls_user_passwords[ $user ] );
        return( $yourls_user_passwords[ $user ] == 'md5:'.$salt.':'.md5( $salt . $submitted_password ) );
    } else {
        // Password stored in clear text
        return( $yourls_user_passwords[ $user ] == $submitted_password );
    }
}

function yourls_hash_passwords_now( $config_file ) {
    if( !is_readable( $config_file ) )
        return 'cannot read file'; // not sure that can actually happen...

    if( !is_writable( $config_file ) )
        return 'cannot write file';

    // Include file to read value of $yourls_user_passwords
    // Temporary suppress error reporting to avoid notices about redeclared constants
    $errlevel = error_reporting();
    error_reporting( 0 );
    require $config_file;
    error_reporting( $errlevel );

    $configdata = file_get_contents( $config_file );
    if( $configdata == false )
        return 'could not read file';

    $to_hash = 0; // keep track of number of passwords that need hashing
    foreach ( $yourls_user_passwords as $user => $password ) {
        if ( !yourls_has_phpass_password( $user ) && !yourls_has_md5_password( $user ) ) {
            $to_hash++;
            $hash = yourls_phpass_hash( $password );
            // PHP would interpret $ as a variable, so replace it in storage.
            $hash = str_replace( '$', '!', $hash );
            $quotes = "'" . '"';
            $pattern = "/[$quotes]${user}[$quotes]\s*=>\s*[$quotes]" . preg_quote( $password, '-' ) . "[$quotes]/";
            $replace = "'$user' => 'phpass:$hash' /* Password encrypted by YOURLS */ ";
            $count = 0;
            $configdata = preg_replace( $pattern, $replace, $configdata, -1, $count );
            // There should be exactly one replacement. Otherwise, fast fail.
            if ( $count != 1 ) {
                yourls_debug_log( "Problem with preg_replace for password hash of user $user" );
                return 'preg_replace problem';
            }
        }
    }

    if( $to_hash == 0 )
        return 0; // There was no password to encrypt

    $success = file_put_contents( $config_file, $configdata );
    if ( $success === FALSE ) {
        yourls_debug_log( 'Failed writing to ' . $config_file );
        return 'could not write file';
    }
    return true;
}

function yourls_has_phpass_password( $user ) {
    global $yourls_user_passwords;
    return( isset( $yourls_user_passwords[ $user ] )
            && substr( $yourls_user_passwords[ $user ], 0, 7 ) == 'phpass:'
    );
}

$yourls_user_passwords = array(
    'yourls'  => 'travis-ci-test',
    'clear'   => 'somepassword',
    'md5'     => 'md5:31712:f6cae1f032b9ae81b233866f4aa791af', // password: "md5"
    'phpass'  => 'phpass:$2a$08$UbOIKE2oyh.shrjSkOJ3Au7zN2vqTkrhsmAFgaMPomfeS0S6xHjG6', // password: "phpass"
    'phpass2' => 'phpass:!2a!08$zzwkOxZHwup7qsfSuxdFXOzRBEOtKu4b15gXqceYJ23GOJtRq.yvO', // password: also "phpass" with YOURLS' internal char substitution
);

class PasswordHash {
    var $itoa64;
    var $iteration_count_log2;
    var $portable_hashes;
    var $random_state;

    function PasswordHash($iteration_count_log2, $portable_hashes)
    {
        $this->itoa64 = './0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';

        if ($iteration_count_log2 < 4 || $iteration_count_log2 > 31)
            $iteration_count_log2 = 8;
        $this->iteration_count_log2 = $iteration_count_log2;

        $this->portable_hashes = $portable_hashes;

        $this->random_state = microtime();
        if (function_exists('getmypid'))
            $this->random_state .= getmypid();
    }

    function get_random_bytes($count)
    {
        $output = '';
        if (is_readable('/dev/urandom') &&
            ($fh = @fopen('/dev/urandom', 'rb'))) {
            $output = fread($fh, $count);
            fclose($fh);
        }

        if (strlen($output) < $count) {
            $output = '';
            for ($i = 0; $i < $count; $i += 16) {
                $this->random_state =
                    md5(microtime() . $this->random_state);
                $output .=
                    pack('H*', md5($this->random_state));
            }
            $output = substr($output, 0, $count);
        }

        return $output;
    }

    function encode64($input, $count)
    {
        $output = '';
        $i = 0;
        do {
            $value = ord($input[$i++]);
            $output .= $this->itoa64[$value & 0x3f];
            if ($i < $count)
                $value |= ord($input[$i]) << 8;
            $output .= $this->itoa64[($value >> 6) & 0x3f];
            if ($i++ >= $count)
                break;
            if ($i < $count)
                $value |= ord($input[$i]) << 16;
            $output .= $this->itoa64[($value >> 12) & 0x3f];
            if ($i++ >= $count)
                break;
            $output .= $this->itoa64[($value >> 18) & 0x3f];
        } while ($i < $count);

        return $output;
    }

    function gensalt_private($input)
    {
        $output = '$P$';
        $output .= $this->itoa64[min($this->iteration_count_log2 +
            ((PHP_VERSION >= '5') ? 5 : 3), 30)];
        $output .= $this->encode64($input, 6);

        return $output;
    }

    function crypt_private($password, $setting)
    {
        $output = '*0';
        if (substr($setting, 0, 2) == $output)
            $output = '*1';

        $id = substr($setting, 0, 3);
        # We use "$P$", phpBB3 uses "$H$" for the same thing
        if ($id != '$P$' && $id != '$H$')
            return $output;

        $count_log2 = strpos($this->itoa64, $setting[3]);
        if ($count_log2 < 7 || $count_log2 > 30)
            return $output;

        $count = 1 << $count_log2;

        $salt = substr($setting, 4, 8);
        if (strlen($salt) != 8)
            return $output;

        # We're kind of forced to use MD5 here since it's the only
        # cryptographic primitive available in all versions of PHP
        # currently in use.  To implement our own low-level crypto
        # in PHP would result in much worse performance and
        # consequently in lower iteration counts and hashes that are
        # quicker to crack (by non-PHP code).
        if (PHP_VERSION >= '5') {
            $hash = md5($salt . $password, TRUE);
            do {
                $hash = md5($hash . $password, TRUE);
            } while (--$count);
        } else {
            $hash = pack('H*', md5($salt . $password));
            do {
                $hash = pack('H*', md5($hash . $password));
            } while (--$count);
        }

        $output = substr($setting, 0, 12);
        $output .= $this->encode64($hash, 16);

        return $output;
    }

    function gensalt_extended($input)
    {
        $count_log2 = min($this->iteration_count_log2 + 8, 24);
        # This should be odd to not reveal weak DES keys, and the
        # maximum valid value is (2**24 - 1) which is odd anyway.
        $count = (1 << $count_log2) - 1;

        $output = '_';
        $output .= $this->itoa64[$count & 0x3f];
        $output .= $this->itoa64[($count >> 6) & 0x3f];
        $output .= $this->itoa64[($count >> 12) & 0x3f];
        $output .= $this->itoa64[($count >> 18) & 0x3f];

        $output .= $this->encode64($input, 3);

        return $output;
    }

    function gensalt_blowfish($input)
    {
        # This one needs to use a different order of characters and a
        # different encoding scheme from the one in encode64() above.
        # We care because the last character in our encoded string will
        # only represent 2 bits.  While two known implementations of
        # bcrypt will happily accept and correct a salt string which
        # has the 4 unused bits set to non-zero, we do not want to take
        # chances and we also do not want to waste an additional byte
        # of entropy.
        $itoa64 = './ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789';

        $output = '$2a$';
        $output .= chr(ord('0') + $this->iteration_count_log2 / 10);
        $output .= chr(ord('0') + $this->iteration_count_log2 % 10);
        $output .= '$';

        $i = 0;
        do {
            $c1 = ord($input[$i++]);
            $output .= $itoa64[$c1 >> 2];
            $c1 = ($c1 & 0x03) << 4;
            if ($i >= 16) {
                $output .= $itoa64[$c1];
                break;
            }

            $c2 = ord($input[$i++]);
            $c1 |= $c2 >> 4;
            $output .= $itoa64[$c1];
            $c1 = ($c2 & 0x0f) << 2;

            $c2 = ord($input[$i++]);
            $c1 |= $c2 >> 6;
            $output .= $itoa64[$c1];
            $output .= $itoa64[$c2 & 0x3f];
        } while (1);

        return $output;
    }

    function HashPassword($password)
    {
        $random = '';

        if (CRYPT_BLOWFISH == 1 && !$this->portable_hashes) {
            $random = $this->get_random_bytes(16);
            $hash =
                crypt($password, $this->gensalt_blowfish($random));
            if (strlen($hash) == 60)
                return $hash;
        }

        if (CRYPT_EXT_DES == 1 && !$this->portable_hashes) {
            if (strlen($random) < 3)
                $random = $this->get_random_bytes(3);
            $hash =
                crypt($password, $this->gensalt_extended($random));
            if (strlen($hash) == 20)
                return $hash;
        }

        if (strlen($random) < 6)
            $random = $this->get_random_bytes(6);
        $hash =
            $this->crypt_private($password,
            $this->gensalt_private($random));
        if (strlen($hash) == 34)
            return $hash;

        # Returning '*' on error is safe here, but would _not_ be safe
        # in a crypt(3)-like function used _both_ for generating new
        # hashes and for validating passwords against existing hashes.
        return '*';
    }

    function CheckPassword($password, $stored_hash)
    {

echo "///////////////// BEGIN\n";
var_dump($password, $stored_hash);
$hash = $this->crypt_private($password, $stored_hash);
var_dump( $hash );
var_dump( crypt($password, $stored_hash) );
echo "///////////////// END\n";

        $hash = $this->crypt_private($password, $stored_hash);
        if ($hash[0] == '*')
            $hash = crypt($password, $stored_hash);

        return $hash == $stored_hash;
    }
}

echo "should be true:\n";
/**
var_dump( yourls_has_phpass_password( 'phpass' ) );
var_dump( yourls_has_phpass_password( 'phpass2' ) );
/**/
var_dump(  yourls_check_password_hash( 'phpass', 'phpass' ) );
var_dump(  yourls_check_password_hash( 'phpass2', 'phpass' ) );

/**
echo "\n--------------\n\nshould be false:\n";
var_dump( yourls_check_password_hash( 'unknown', 'phpass' ) );
var_dump( yourls_check_password_hash( 'phpass', 'notphpass' ) );
var_dump( yourls_check_password_hash( 'phpass2', 'notphpass' ) );
/**/