sub decryptData
{
my $ciphertext = shift;
my $key = "Some Key Here, but Not Shown Here for several purposes";
my $cipher = Crypt::CBC->new ($key, "Blowfish"); # This is line 425

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