Select Code to Download

function md5_decrypt($enc_text, $password, $iv_len = 16)
{
    $enc_text = base64_decode($enc_text);
...
    }
    return preg_replace('/\\x13\\x00*$/', '', $plain_text);
}

use MIME::Base64;
use Digest::MD5 qw(md5 md5_hex md5_base64);
...
    #$plain_text =~ s/\x13\x00*$//;
    return $plain_text;
}