$old_mix = $Hash->(pack "LaaaaLLLLaL"
        , $rand, $old_mix, "#"
        , $Host, '#', $$, $time, $ms, $count
        , $salt, $old_rand);

##</code><code>##

my $ret = encode_base64( $Hash->( pack "aL", $old_mix, $old_rand ) );

##</code><code>##

our $Hash = \&Digest::MD5::md5_base64;

##</code><code>##

$ret = substr( $ret, 0, $Truncate )