[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[FWP] crypt() fun



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