Se o seu código for criptografado, sem internet o q vc pode fazer é: exit if $password_from_file ne sha256(join " ", $client_id, $salt, time % (60 * 60 * 24 * 30 * 3));
E de 3 em 3 meses o sistema vai ficar inoperante até q a nova senha seja escrita no arquivo...
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
