sub decrypt {
my $c = shift;
my @c = (0) x 8;
for (;;) {
my $i = 0;
my $s = join '', map chr, @c;
return $s if crypt($s, $c) eq $c;
$c[$i]=0, $i++ while $c[$i] == 255;
return undef if $i > 7;
$c[$i]++;
}
}
####
use more 'cpu';
use less 'time';
use more 'speed';
####
sub tomorrow_date {
sleep 86_400;
return localtime();
}