Initial Commit

database/perl/vendor/lib/Crypt/IDEA.pm

@@ -0,0 +1,88 @@
+#! /usr/local/bin/perl -w
+
+#
+# Copyright (C) 1995, 1996 Systemics Ltd (http://www.systemics.com/)
+# All rights reserved.
+#
+
+package Crypt::IDEA;
+
+$VERSION="1.10";
+
+require Exporter;
+require DynaLoader;
+
+@ISA = (Exporter, DynaLoader);
+
+# Items to export into callers namespace by default
+@EXPORT =	qw();
+
+# Other items we are prepared to export if requested
+@EXPORT_OK =	qw();
+
+bootstrap Crypt::IDEA;
+
+$VERSION="1.10";
+
+package IDEA;
+
+$VERSION="1.10";
+
+use strict;
+use Carp;
+
+sub usage
+{
+    my ($mess, $package, $filename, $line, $subr);
+	($mess) = @_;
+	($package, $filename, $line, $subr) = caller(1);
+	$Carp::CarpLevel = 2;
+	croak "Usage: $package\::$subr - $mess";
+}
+
+
+sub blocksize { 8; }
+sub keysize { 16; }
+
+sub new
+{
+	usage("new IDEA key") unless @_ == 2;
+
+	my $type = shift; my $self = {}; bless $self, $type;
+
+	$self->{'ks'} = Crypt::IDEA::expand_key(shift);
+
+	$self;
+}
+
+sub encrypt
+{
+	usage("encrypt data[8 bytes]") unless @_ == 2;
+
+	my $self = shift;
+	my $data = shift;
+
+	Crypt::IDEA::crypt($data, $data, $self->{'ks'});
+
+	$data;
+}
+
+sub decrypt
+{
+	usage("decrypt data[8 bytes]") unless @_ == 2;
+
+	my $self = shift;
+	my $data = shift;
+
+	#
+	# Cache Decrypt key schedule
+	#
+	$self->{'dks'} = Crypt::IDEA::invert_key($self->{'ks'})
+										unless exists $self->{'dks'};
+
+	Crypt::IDEA::crypt($data, $data, $self->{'dks'});
+
+	$data;
+}
+
+1;