summaryrefslogtreecommitdiffstats
path: root/perl/test2.pl
diff options
context:
space:
mode:
Diffstat (limited to 'perl/test2.pl')
-rw-r--r--perl/test2.pl28
1 files changed, 0 insertions, 28 deletions
diff --git a/perl/test2.pl b/perl/test2.pl
deleted file mode 100644
index 741d3adcdd..0000000000
--- a/perl/test2.pl
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/usr/local/bin/perl
-
-use ExtUtils::testlib;
-
-use SSLeay;
-
-@md=();
-($c=SSLeay::Cipher::new("idea")) ||
- die "'des' is an unknown cipher algorithm\n";
-
-printf "name =%s\n" ,$c->name();
-printf "key length=%2d\n",$c->key_length();
-printf "iv length =%2d\n",$c->iv_length();
-printf "block size=%2d\n",$c->block_size();
-
-$data="1234";
-$c->init("01234567","abcdefgh",1);
-$in=$c->update($data);
-$in.=$c->final();
-
-$c->init("01234567","abcdefgh",0);
-$out=$c->update($in);
-$out.=$c->final();
-print $data;
-print " -> ";
-print $out;
-print "\n";
-