Portál AbcLinuxu, 12. listopadu 2025 09:34
#!/usr/bin/perl -w
my $pass;
my $hash = '$1$tyghuxEw$vT3aoxmTlE8684BJmHq7V1';
open(PASS, "zenity --entry --hide-text --text='zadej heslo' --title=heslo|");
$pass = <PASS>;
chomp($pass);
close(PASS);
if (crypt($pass, $hash) eq $hash) {
exec("thunderbird.real", @ARGV);
} else {
exec("zenity", "--error", "--error-text='špatné heslo'");
}
Heslo je IsRu(*QWN}Ofp^o
Jinak o něco rozumnější by bylo šifrovat thunderbirdovi mailboxy (třeba pomocí gpg).

Tiskni
Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.