1 2
chomp (my $passwort = <>); if ($passwort eq "geheimeswort") {# zeige alles an....}
QuoteDas Passwort garnicht speichern.
Der Text wird mit dem Passwort verschlüsselt und abgelegt......
1 2 3 4 5 6 7 8 9 10 11 12 13
use strict; use warnings; use Crypt::RC4; my $plaintext = "Der geheime Text"; my $passphrase = "Thomas"; my $encrypted = RC4( $passphrase, $plaintext ); my $decrypt = RC4( $passphrase, $encrypted ); print "originaltext\n$plaintext\n\n"; print "verschlüsselt\n$encrypted\n\n"; print "entschlüsselt\n$decrypt\n\n";[/quote]
2014-06-14T14:45:12 MuffiNein, das macht man nicht! rand ist pseudozufällig; time verwendet aufeinander folgende Zahlen, ist also gar nicht zufällig.Man nimmt zur Passphrase irgendwas was sich ändert, z.b. ein rand oder time oder so.