$dt=`/cygwin/bin/date`;
chomp $dt;

##</code><code>##

$dt=localtime;

##</code><code>##

   $clen = length($ucrypt);
   @uchar = split(//,$ucrypt);
   for($i=0; $i<($clen); $i++) {
      $val = ord($uchar[$i]);
      if($val>127) {
      $SKIP=1;
        last;
      }
   }

##</code><code>##

   while ($ucrypt =~ /(.)/g) {
      if (ord($1)>127) {
         $SKIP=1;
         last;
      }
   }

##</code><code>##

   $SKIP = $ucrypt =~ /[\x80-\xFF]/;

##</code><code>##

my $plaintext;
my $ct;
my $key = 'A';
while ( 1 ) {
   $plaintext = RC4($key, $ciphertext);

   if ( $plaintext !~ /[\x80-\xFF]/ ) {
      print "matched using key:$key \n";
      print "$plaintext \n";
   }
   
   if ( ++$ct == 10000 ) {
      $dt = localtime;
      print "[$dt] count: $ct key: $key \n";
      $ct = 0;
   }

   $key++;
}