perl/f.pl

   1 #!/usr/bin/perl
   2
   3 use ExtUtils::testlib;
   4
   5 use SSLeay;
   6
   7 $data=<>;
   8
   9 #$b=SSLeay::BN::hex2bn($a);
  10 #$data=$b->bn2bin;
  11
  12 #substr($data,0,8)="";
  13 #print $data;
  14
  15 $md=SSLeay::MD::new("md5");
  16 $md->init();
  17 $md->update("test");
  18 $key=$md->final();
  19
  20 $rc4=SSLeay::Cipher::new("rc4");
  21 $rc4->init($key,"",1);
  22 $out=$rc4->cipher($data);
  23
  24 print $out;
  25