Figured it out. Calculated by using the following: my $pad = 16 - length($packed) % 16; my $padded = $packed . pack("C*",($pad)x$pad); my $token = $crypt->encrypt($padded);