Help for this page

Select Code to Download


  1. or download this
    $old_mix = $Hash->(pack "LaaaaLLLLaL"
        , $rand, $old_mix, "#"
        , $Host, '#', $$, $time, $ms, $count
        , $salt, $old_rand);
  2. or download this
    my $ret = encode_base64( $Hash->( pack "aL", $old_mix, $old_rand ) );
  3. or download this
    our $Hash = \&Digest::MD5::md5_base64;
  4. or download this
    $ret = substr( $ret, 0, $Truncate )