view release on metacpan or  search on metacpan

bin/tea  view on Meta::CPAN

#!perl
#########################################################################
#        This Perl script is Copyright (c) 2000, Peter J Billam         #
#               c/o P J B Computing, www.pjb.com.au                     #
#                                                                       #
#     This program is free software; you can redistribute it and/or     #
#            modify it under the same terms as Perl itself.             #
#########################################################################
$^W=0;
while ($ARGV[$[] =~ /^-/) {
	if ($ARGV[$[] =~ /^-c/)      { $encrypt='yes'; shift;
	} elsif ($ARGV[$[] =~ /^-s/) { $sign='yes'; shift;
	} elsif ($ARGV[$[] =~ /^-o/) { $old='yes'; shift;
	} elsif ($ARGV[$[] =~ /^-j/) {
		require 'Crypt/Tea_JS.pm'; import Crypt::Tea_JS;
		print &tea_in_javascript;  exit 0;
	} else { require 'Crypt/Tea_JS.pm'; print <<EOT; exit;
usage:
   tea -c filename   # enCrypts filename
   tea filename      # decrypts filename
   tea -s filename   # calculates ascii digital Signature for filename
   tea -j            # outputs Javascript code to do compatible encryption
   tea -o            # set Old mode, for Crypt::Tea-compatibility
   tea -h            # prints this Helpful message

For encryption and decryption, you will be asked for a password.
It should be a sufficiently longish string; say 17 random 8-bit bytes.
This is Crypt::Tea_JS version ${Crypt::Tea_JS::VERSION}

EOT
		eval 'require "Crypt/Tea.pm"';
		if ($@) { print<<'EOT';
You'll need to install Crypt::Tea if you want to use the -o (Old) mode.
EOT
		}
	}
}

if ($old) {
	eval 'require "Crypt/Tea.pm"';
	if ($@) { die "Sorry, -o (Old) mode needs Crypt::Tea installed\n"; }
	import Crypt::Tea;
} else { require 'Crypt/Tea_JS.pm'; import Crypt::Tea_JS;
}
undef $/; my $text = <>; $/="\n";
if ($sign) { print &asciidigest ($text) . "\n"; exit 0; }

open(TTY,  ">/dev/tty")  || die "Can't write /dev/tty: $!\n";
open(TTYIN, "</dev/tty") || die "Can't read /dev/tty: $!\n";
print TTY 'Password: '; my $key = <TTYIN>;
close TTY; close TTYIN;
$key =~ s/[\r\n]*$//;
exit unless $key;

if ($encrypt) {
	print &encrypt ($text, $key), "\n";
} else {
	print &decrypt ($text, $key);
}
exit 0;

__END__

=pod

=head1 NAME

tea - Perl script to give command-line access to Crypt::Tea_JS.pm

=head1 SYNOPSIS

  tea -c filename   # enCrypts filename
  tea filename      # decrypts filename
  tea -s filename   # calculates ascii digital Signature for filename