I'm searching for a 13-character string that, when crypt()ed upon itself, returns itself. Has anyone come across such a string in their affairs with Perl? It may not even exist. I'm not sure my sysadmin would be thrilled if I ran a program that did @chars = ('a' .. 'z', 'A' .. 'Z', 0 .. 9, '/', '.'); for $a (@chars) { for $b (@chars) { # later... for $l (@chars) { for $m (@chars) { $word = "$a$b$c$d$e$f$g$h$i$j$k$l$m"; print $word if $word eq crypt($word,$word); } } # ... } } -- Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/ PerlMonth - An Online Perl Magazine http://www.perlmonth.com/ The Perl Archive - Articles, Forums, etc. http://www.perlarchive.com/ CPAN - #1 Perl Resource (my id: PINYAN) http://search.cpan.org/ ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe