mylogin_dumper.pl

######################################
# usage
#   mylogin_dumper.pl ~/.mylogin.conf
######################################
use strict;
use warnings;
use Crypt::ECB;
#use Crypt::OpenSSL::AES;

my $my_login_file = shift;
my $my_key;

open(my $my_login, '<:bytes', $my_login_file);
seek($my_login, 4, 0);        # Reserved for future use.
read($my_login, $my_key, 20); # LOGIN_KEY_LEN

my $crypt = new Crypt::ECB;
$crypt->cipher('Crypt::OpenSSL::AES');
$crypt->key(aes_create_key($my_key));

my $store_size;
while(read($my_login, $store_size, 4)) {
  my $encrypted_block;
  last unless (read($my_login, $encrypted_block, unpack('l', $store_size)));
  print $crypt->decrypt($encrypted_block);
}
close($my_login);

# emulate my_aes_create_key at mysys_ssl/my_aes.cc
sub aes_create_key {
  my $key = shift;
  my @key = unpack('C20', $key);
  my @rkey = (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
  for (my $i=0; $i < 20; ++$i) {
    $rkey[$i % 16] ^= $key[$i];
  }
  pack('C16', @rkey);
}