Encrypt – decrypt data in PERL

#!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 $user."\n";

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

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

Leave a Reply