#!/usr/bin/perl -w

use strict;

my @foo;
my $salt    = 'ja';
my $match   = 'ph';

for ('A'..'Z','a'..'z') {
 $foo[0] = $_;
 for ('A'..'Z','a'..'z') {
  $foo[1] = $_;
  for ('A'..'Z','a'..'z') {
   $foo[2] = $_;
   for ('A'..'Z','a'..'z') {
    $foo[3] = $_;
    for ('A'..'Z','a'..'z') {
     $foo[4] = $_;
     for ('A'..'Z','a'..'z') {
      $foo[5] = $_;
      for ('A'..'Z','a'..'z') {
       $foo[6] = $_;
       for ('A'..'Z','a'..'z') {
        $foo[7] = $_;
        if ( crypt(join('', @foo), $salt) =~ /$match/) {
         print "Result: ", join('', @foo, "\n");
         exit;
        }
       }
      }
     }
    }
   }
  }
 } 
}