home

Quickies, by Andrea Olivato

text

Encrypt & Decrypt strings in #Perl using Tea

Simple two way encrypt/decrypt script in Perl using Tea Algorithm. Light and fast as hell

#!/usr/bin/perl

use Crypt::Tea;
my $string = 'tobecrypted';
my $key = 'somekey';

# Print Original String
print $string."\n";

# Encrypt the string using my key
$user = encrypt($string,$key);

# Print Encrypted String
print $string."\n";

# Decrypt the string
$user = decrypt($string,$key);

# Print back Original String
print $string."\n";

2 years ago

June 5, 2009
perl encryption tea
Comments (View)