Select Code to Download

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

$dt=localtime;

   $clen = length($ucrypt);
   @uchar = split(//,$ucrypt);
...
        last;
      }
   }

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

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

my $plaintext;
my $ct;
...

   $key++;
}