@n = "HPAAAAABCHAP";
$r = '127.0.0.1';
$randomVal = '6089919f';
for ($rounds = 0; $rounds < 10 ; ++$rounds) {
        for ($i = 0; $i < 12 ; ++$i) {
                $c = $n[$i];
                $r ^= $c << 24;
                $r ^= $randomVal;
                for ($j = 0; $j < 8 ; ++$j) {
                        if ($r & 0x80000000) {
                                $r = ($r << '1U') ^ 0xa67f3443;
                         } else {
                                $r = ($r << '1U') ^ 0x378624e5;
                           }
                }
                $r += $c;
        }
}
$r &= 0xffff;

        $pass = unpack "H*", pack "C2", $r;
        $pass =~ y/0-9a-f/A-P/;
        print "$pass\n";