Portál AbcLinuxu, 24. dubna 2024 09:29
#!/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.