Hoi Cheatah,

Wagst Du es etwa, mir zu widersprechen? *g* ;-)

Ich wage es ;-)

Sonst sind $armin und $achim NIE gleich!

my $armin = 'Bla blub';
my $achim = crypt($armin, 'xy');
print ($armin != $achim) ? 'Ungleich!' : 'Gleich!';

Wenn Du $armin jetzt noch von STDIN heraus füllst, kannst Du
beliebige Versuche starten. Dort, wo die Werte ungleich sind, hast
Du entweder den verrückten Fall, dass der String gecryptet sich
selbst ergibt, oder aber <Zaunpfahl> die Eingabe mit einer Zahl
ungleich 0 begonnen. </Zaunpfahl>

Glaub's mir ruhig... oder probier's aus! ;-)

Dabei kommt lediglich eins raus: 0 oder 1 (haeufig genug wohl 0).
Hint:

print (...) interpreted as function at -e line 1.
Useless use of a constant in void context at -e line 1.
Useless use of a constant in void context at -e line 1.

Gruesse,
 C"perl -w"K