Select Code to Download

use strict;
use Math::BaseCalc;

...
  print "Converted $sample : $obfu : $code : $dcod : $defu : " . 
    ( $defu == $sample ? 'OK' : $dcod) . "\n";
}

Converted 0 : 9876541321 : ZIRJIO : 9876541321 : 0 : OK
Converted 1 : 9765413210 : Zmj3Mq : 9765413210 : 1 : OK
Converted 2 : 7876541321 : XULhVH : 7876541321 : 2 : OK
...
Converted 99999997 : 4382525841 : SEWh6a : 4382525841 : 99999997 : OK
Converted 99999998 : 7482525841 : WDa8dO : 7482525841 : 99999998 : OK
Converted 99999999 : 4825258410 : TZ8Wmj : 4825258410 : 99999999 : OK