Import of old SSLeay release: SSLeay 0.9.0b

[openssl.git] / perl / test3.pl

diff --git a/perl/test3.pl b/perl/test3.pl
new file mode 100644 (file)
index 0000000..8ee262a
--- /dev/null
+++ b/perl/test3.pl
@@ -0,0 +1,19 @@
+#!/usr/local/bin/perl
+
+use ExtUtils::testlib;
+
+use SSLeay;
+
+@md=();
+($c=SSLeay::Cipher::new("idea")) ||
+       die "'des' is an unknown cipher algorithm\n";
+
+$key=" ";
+$iv=" ";
+$c->init($key,$iv,0);
+while (<>)
+       {
+       print $c->update($_);
+       }
+print $c->final();
+