blowfish/base64 encryption

[mortician]

hey,

I'm making some perl script (not for eggdrop) and it needs the same encryption as an eggdrop (encrypt <key> <string> / decrypt <key> <encrypted-base64-string>)

As I can read in the docs, eggdrop encrypts the string via blowfish first (since that's the encryption module I've loaded), and next encodes it in a base64 String.

However, when I try this in my perl script I don't get the same result (endoding or decoding)

I know this is not a perl forum, but this is the perl I have:

Code: Select all

my $key = "my key";
my $cipher = new Crypt::Blowfish $key;

# encryption:
my $ciphertext = $cipher->encrypt("a_string");  #encrypt with blowfish
my $in = encode_base64($ciphertext); # encode with base64
# $in should be the encrypted base64 string now ...

# decryption:
my $out = decode_base64($in); # decoding base64
my $plaintext = $cipher->decrypt($out); # decrypting blowfish

Someone knows why this is not the same?

[user]

Afaik you need a blowfish with the same salts used in eggdrop (check the source for details). I've no idea if/how they can be inserted into the blowfish module you're using though.

[Nimo]

http://www.business.auc.dk/~shorty/eggd ... ass.tar.gz is maybe what you need.

[mortician]

thanks, I know what to look for now ...

btw Nimo, that prog would be very usefull if it was a decoder and not an encoder unfortunately I do not know any c(++) so I can't make it myself