my @time = localtime();
my $time_algo = 0;
$time_algo = += $_ for @time[2..5];
my $salt = 'salty';
my $cipher = crypt($time_algo,$salt);

if ($cipher ne $current_cipher){
    #force to reidentify;
}