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