sub encrypt
{
my $plaintext = shift;
my $key = "lkjsdfkjkalsjdfn239asdifh4389jbaksdf
09324ni5ansdkfn2193rjlkasndfkn239jas
dknsd23r09jasdflknasdi823oiasdflknas
dlkn3249ijasdfknoi2oinklnsd9u345knfv
knnalknq234ij9rnadks0934klajlkjdsnkl
ansdkjsdimnvnkansdkj43938hiohsakasoi
jwenkasdlknaskdiojiqwejoinasdlknqweo
inasdlknf9034pojfjasdflknvlknasflkjn
asddasflknewfqo9ijwernasdlknasdflkj2
eijasdlnasdknvkxlcvnaslkjqwerknzxvcm
nweoiuwr098u345oijsfdlkn241389asdfr0
9u34oijasdfklnvsdoi32098u34oisdfklas
fdklnasdk934nzslzWQPLIWNCZAEI30SN20S";


my $cipher = Crypt::CBC->new( -key    => $key,
                             -cipher => 'Blowfish',
                             -salt   => 1
                           );

	return ($cipher->encrypt_hex ($plaintext));
}

sub decrypt
{
my $ciphertext = shift;
my $key = "lkjsdfkjkalsjdfn239asdifh4389jbaksdf
09324ni5ansdkfn2193rjlkasndfkn239jas
dknsd23r09jasdflknasdi823oiasdflknas
dlkn3249ijasdfknoi2oinklnsd9u345knfv
knnalknq234ij9rnadks0934klajlkjdsnkl
ansdkjsdimnvnkansdkj43938hiohsakasoi
jwenkasdlknaskdiojiqwejoinasdlknqweo
inasdlknf9034pojfjasdflknvlknasflkjn
asddasflknewfqo9ijwernasdlknasdflkj2
eijasdlnasdknvkxlcvnaslkjqwerknzxvcm
nweoiuwr098u345oijsfdlkn241389asdfr0
9u34oijasdfklnvsdoi32098u34oisdfklas
fdklnasdk934nzslzWQPLIWNCZAEI30SN20S";

my $cipher = Crypt::CBC->new( -key    => $key,
                             -cipher => 'Blowfish',
                             -salt   => 1
                           );

	return ($cipher->decrypt_hex ($ciphertext));
}