perl/test3.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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();