Import of old SSLeay release: SSLeay 0.9.1b (unreleased)

[thirdparty/openssl.git] / perl / f.pl

diff --git a/perl/f.pl b/perl/f.pl
index a25593186459f5e819180ff7a6e711637d215a68..23f5edea5431ed766f83ecdb0dca15fa355f4aa1 100644 (file)
--- a/perl/f.pl
+++ b/perl/f.pl
@@ -4,22 +4,8 @@ use ExtUtils::testlib;
 
 use SSLeay;
 
-$data=<>;
-
-#$b=SSLeay::BN::hex2bn($a);
-#$data=$b->bn2bin;
-
-#substr($data,0,8)="";
-#print $data;
-
-$md=SSLeay::MD::new("md5");
-$md->init();
-$md->update("test");
-$key=$md->final();
-
-$rc4=SSLeay::Cipher::new("rc4");
-$rc4->init($key,"",1);
-$out=$rc4->cipher($data);
-
-print $out;
-
+for (7 .. 7926)
+       {
+       my $num = SSLeay::BN::dec2bn($_);
+       print "$_ is ".($num->is_prime ? 'prime' : 'composite'), "\n";
+       }