sub setid_1
{
    return undef if not $_[0];
    return substr( sha1_hex(_secret_code() . $_[0]), 0, 8 );
}

sub setid_2
{
    return undef if not $_[0];
    return substr( encode_zbase32(sha1_hex(_secret_code() . $_[0])), 0, 8 )
}