#!/usr/local/bin/perl
 use Math::BigInt;

 my $iteracao = 0;


        $enc_val1 = Math::BigInt->new('0x737D211C');
        $enc_val2 = Math::BigInt->new('0x38424E43');
        $enc_val3 = Math::BigInt->new('0x456F57EF');


        while (1==1)    {
        $iteracao++;
        my $MID = 0x02C4;
        my $oldMID = $MID;
        my $oldKey = ($enc_val1 >> 16) & 0x7FFF;
        # Calculating the Encryption Key
        $enc_val1 = $enc_val1->bmul($enc_val3)->badd($enc_val2) & 0xFFFFFFFF;

        # Xoring the Message ID
        $MID = ($MID ^ (($enc_val1 >> 16) & 0x7FFF)) & 0xFFFF;

        printf("Encrypted iteracao %d MID : [%04X]->[%04X] / KEY : [0x%04X]->[0x%04X]\n", $iteracao, $oldMID, $MID, $oldKey, ($enc_val1 >> 16) & 0x7FFF);
    }

        print "$enc_val1";