my $blocks = $sector < 32 ? 4 : 16;
+ next if substr($card,$pos,$blocks * 0x10) eq "\x00" x ($blocks * 0x10);
+
# General purpose byte (GPB)
my $GBP = ord(substr($card,0x39,1));
$ADV = $GBP & 0b00000011;
$MA = $GBP & 0b01000000;
$DA = $GBP & 0b10000000;
- printf "ADV (MAD version code): %d %s\n", $ADV,
+ printf "ADV (MAD version code): %d %s\n", $ADV;
printf "MA (multiapplication): %s\n", $MA ? 'yes' : 'monoaplication';
printf "DA (MAD available): %s%s\n", $DA ? 'yes' : 'no',
substr($card,$pos+0x30,6) eq "\xA0\xA1\xA2\xA3\xA4\xA5" ? ' public' : '';
my $c2 = ( ord(substr($card,$trailer_pos+8,1)) & 0x0f );
my $c3 = ( ord(substr($card,$trailer_pos+8,1)) & 0xf0 ) >> 4;
- printf "# trailer @%x c1:%d c2:%d c3:%d [%16b]\n"
+ printf "# trailer @%x c1:%d c2:%d c3:%d [%016b]\n"
, $trailer_pos, $c1, $c2, $c3
, unpack('n',(substr($card,$trailer_pos+7,2)))
;
my $hex = unpack('H*',$block);
$hex =~ s/(....)/$1 /g;
- if ( $ENV{SWAP} && $j < 3 ) {
+ if ( $ENV{SWAP} && $j < $blocks - 1 ) {
my $hex_sw = unpack('h*',$block);
$hex_sw =~ s/(....)/$1 /g;
$hex .= " | $hex_sw";
printf "KEY A:%s | %s GDP: %s | B:%s\n"
- ,unpack('H*',substr($card,$pos+0x30 ,6))
- ,unpack('H*',substr($card,$pos+0x30+6 ,3))
- ,unpack('H*',substr($card,$pos+0x30+9 ,1))
- ,unpack('H*',substr($card,$pos+0x30+10,6))
+ ,unpack('H*',substr($card,$trailer_pos ,6))
+ ,unpack('H*',substr($card,$trailer_pos+6 ,3))
+ ,unpack('H*',substr($card,$trailer_pos+9 ,1))
+ ,unpack('H*',substr($card,$trailer_pos+10,6))
;
print "\n";