Select Code to Download

      if (length($in) >= 8) {
        $in = substr($in,8);
...
        $in = substr($y,0,8);
        print "\nGot to the final part ... length is ".length($in)."\n
+";
      }

50    1    Yell=��?H�?��Phf���?�!��O"

#!/usr/bin/perl
use Crypt::Blowfish;
...
  $tmp = $decrypt_data;
  #if ($DIAG) { print LOG "\nDecrypted data MIME[".$local_counter."] (
+".$newlength."bytes) : ".$decrypt_data; }
}