AES Encryption

[damo@launtel.net.au]

Here is the same algorithm written in perl. Key supplied as argument (must be 16 characters) and config file fed into stdin, encrypted file is printed to stdout.

Code:

#!/usr/bin/perl -w
use Crypt::Mode::ECB;

my $key = $ARGV[0]; # length has to be 16 characters
my $plaintext = do { local $/; <STDIN> };
# Pad to a multiple of 16 (128 bits) with spaces
my $pad=(16-(length($plaintext) % 16)) % 16;
for (my $n=0; $n<$pad; $n++) {
        $plaintext .= ' ';
}
my $c = Crypt::Mode::ECB->new('AES', 0);
print($c->encrypt($plaintext, $key));