sub decrypt {
  my $crypted = shift;
  my $str = "";
  foreach my $s1 (0 .. 255) {
    my $str = $str . chr $s1;
    foreach my $s2 (0 .. 255) {
      my $str = $str . chr $s2;
      foreach my $s3 (0 .. 255) {
        my $str = $str . chr $3;
        foreach my $s4 (0 .. 255) {
          my $str = $str . chr $4;
          foreach my $s5 (0 .. 255) {
            my $str = $str . chr $5;
            foreach my $s6 (0 .. 255) {
              my $str = $str . chr $6;
              foreach my $s7 (0 .. 255) {
                my $str = $str . chr $7;
                foreach my $s8 (0 .. 255) {
                  my $str = $str . $chr $8;
                  if ($cryped eq crypt($str, $crypted)) {
                    return $str
                  }
                }
              }
            }
          }
        }
      }
    }
  }
}