X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=mifare-mad.pl;h=c74f03f3820ef61682ad09b47f56b040efeb773b;hb=2f234af309df951d51cc84545c68db328310e2fe;hp=6a1012c17c726e36ea8ba6a31e3f07e516e653d5;hpb=ff223496e40b401a136efbc51753bc583312a643;p=perl-Mifare-MAD.git diff --git a/mifare-mad.pl b/mifare-mad.pl index 6a1012c..c74f03f 100755 --- a/mifare-mad.pl +++ b/mifare-mad.pl @@ -33,25 +33,31 @@ while() { } my $access_condition_data = { -0b000 => 'R:AB W:AB I:AB DTR:AB', -0b010 => 'R:AB W:-- I:-- DTR:--', -0b100 => 'R:AB W:-B I:-- DTR:--', -0b110 => 'R:AB W:-B I:-B DTR:AB', -0b001 => 'R:AB W:-- I:-- DTR:AB', -0b011 => 'R:-B W:-B I:-- DTR:--', -0b101 => 'R:-B W:-- I:-- DTR:--', -0b111 => 'R:-- W:-- I:-- DTR:--', +0b000 => 'R:AB W:AB I:AB DTR:AB transport conf', +0b010 => 'R:AB W:-- I:-- DTR:-- r/w block', +0b100 => 'R:AB W:-B I:-- DTR:-- r/w block', +0b110 => 'R:AB W:-B I:-B DTR:AB r/w block', +0b001 => 'R:AB W:-- I:-- DTR:AB value block', +0b011 => 'R:-B W:-B I:-- DTR:-- value block', +0b101 => 'R:-B W:-- I:-- DTR:-- r/w block', +0b111 => 'R:-- W:-- I:-- DTR:-- r/w block', }; my $access_condition_trailer = { -0b000 => 'R/W: KEYSECXA:-/A ACCESS COND:A-/- KEYSECXB:A/A', -0b010 => 'R/W: KEYSECXA:-/- ACCESS COND:A-/- KEYSECXB:A/-', -0b100 => 'R/W: KEYSECXA:-/B ACCESS COND:AB/- KEYSECXB:-/B', -0b110 => 'R/W: KEYSECXA:-/- ACCESS COND:AB/- KEYSECXB:-/-', -0b001 => 'R/W: KEYSECXA:-/A ACCESS COND:A-/A KEYSECXB:A/A', -0b011 => 'R/W: KEYSECXA:-/B ACCESS COND:AB/B KEYSECXB:-/B', -0b101 => 'R/W: KEYSECXA:-/- ACCESS COND:AB/B KEYSECXB:-/-', -0b111 => 'R/W: KEYSECXA:-/- ACCESS COND:AB/- KEYSECXB:-/-', +0b000 => 'R/W: KEYA:-/A ACCESS:A-/- DATB:A/A ?', +0b010 => 'R/W: KEYA:-/- ACCESS:A-/- DATB:A/- ?', +0b100 => 'R/W: KEYA:-/B ACCESS:AB/- KEYB:-/B', +0b110 => 'R/W: KEYA:-/- ACCESS:AB/- KEYB:-/-', +0b001 => 'R/W: KEYA:-/A ACCESS:A-/A DATB:A/A ? transport conf', +0b011 => 'R/W: KEYA:-/B ACCESS:AB/B KEYB:-/B', +0b101 => 'R/W: KEYA:-/- ACCESS:AB/B KEYB:-/-', +0b111 => 'R/W: KEYA:-/- ACCESS:AB/- KEYB:-/-', +}; + +my $life_cycle = { +"\x78\x77\x88" => 'MAD INIT,RW', +"\x7F\x07\x88" => 'NFC INIT,RW', +"\x07\x8F\x0F" => 'READ ONLY', }; @@ -63,73 +69,146 @@ if ( $debug ) { local $/ = undef; my $card = <>; -die "expected 4096 bytes, got ",length($card), " bytes\n" - unless length $card == 4096; +die "expected 4096 or 1024 bytes, got ",length($card), " bytes\n" + unless length $card == 4096 || length $card == 1024; -foreach my $i ( 0 .. 15 ) { - my $v = unpack('v',(substr($card, 0x10 + ( $i * 2 ), 2))); - my $cluster_id = unpack('HH', (( $v & 0xff00 ) >> 8) ); - my $full_id = sprintf "%04x",$v; - printf "MAD sector %-2d %04x [%s]\n%s\n", $i, $v - , $function_clusters->{ $cluster_id } - , $mad_id->{$full_id} || "FIXME: add $full_id from MAD_overview.pdf to __DATA__ at end of $0" - ; +my ( $ADV, $MA, $DA ); - my $pos = 0x40 * $i; +my $pos = 0; - my $c1 = ( ord(substr($card,$pos+0x37,1)) & 0xf0 ) >> 4; - my $c2 = ( ord(substr($card,$pos+0x38,1)) & 0x0f ); - my $c3 = ( ord(substr($card,$pos+0x38,1)) & 0xf0 ) >> 4; +foreach my $sector ( 0 .. 39 ) { - foreach my $j ( 0 .. 3 ) { - my $offset = $pos + $j * 0x10; - my $block = substr($card, $offset, 0x10); - my $mask = 1 << $j; - my $cond - = ( ( $c1 & $mask ) * 4 ) - + ( ( $c2 & $mask ) * 2 ) - + ( ( $c3 & $mask ) * 1 ) + my $blocks = $sector < 32 ? 4 : 16; + + last if $pos >= length($card); + next if substr($card,$pos,$blocks * 0x10) eq "\x00" x ($blocks * 0x10); + + # General purpose byte (GPB) + my $GBP = ord(substr($card,0x39,1)); + + if ( $sector == 0 ) { + printf "manufacturer block\nSerial number: %s\nCB: %s\nmanufacturer data: %s\n" + , unpack('H*',substr($card,0,4)) + , unpack('H*',substr($card,4,1)) + , unpack('H*',substr($card,5,11)) ; - $cond >>= $j; - printf "%04x %s %03b %s\n", $offset, unpack('H*',$block) - , $cond - , $j < 3 ? $access_condition_data->{$cond} : $access_condition_trailer->{$cond} + # MAD + $ADV = $GBP & 0b00000011; + $MA = $GBP & 0b01000000; + $DA = $GBP & 0b10000000; + printf "ADV (MAD version code): %d\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' : ''; + + printf "Info byte (publisher sector): %x\n", ord(substr($card,0x11,1)); + } elsif ( $DA ) { + my $mad_offset = 0x10 + ( $sector * 2 ); + my $v = unpack('v',(substr($card, $mad_offset, 2))); + my $cluster_id = unpack('HH', (( $v & 0xff00 ) >> 8) ); + my $full_id = sprintf "%04x",$v; + printf "# sector %-2d MAD@%x %04x [%s]\n%s\n", $sector, $mad_offset, $v + , $function_clusters->{ $cluster_id } + , $mad_id->{$full_id} || "FIXME: add $full_id from MAD_overview.pdf to __DATA__ at end of $0" ; + + if ( $v == 0x0004 ) { + # RLE encoded card holder information + my $data = substr( $card, $pos, 0x30); + my $o = 0; + my $types = { + 0b00 => 'surname', + 0b01 => 'given name', + 0b10 => 'sex', + 0b11 => 'any', + }; + while ( substr($data,$o,1) ne "\x00" ) { + my $len = ord(substr($data,$o,1)); + my $type = ( $len & 0b11000000 ) >> 6; + $len = $len & 0b00111111; + my $dump = substr($data,$o+1,$len-1); + $dump = '0x' . unpack('H*', $dump) if $type == 0b11; # any + printf "%-10s %2d %s\n", $types->{$type}, $len, $dump; + $o += $len + 1; + } + } elsif ( $v == 0x0015 ) { + printf "Card number: %s\n", unpack('h*',substr($card,$pos + 0x04,6)); + } + + } else { + printf "# sector %-2d with %d blocks\n", $sector, $blocks; } + my $trailer_pos = $pos + $blocks * 0x10 - 0x10; + my $c1 = ( ord(substr($card,$trailer_pos+7,1)) & 0xf0 ) >> 4; + my $c2 = ( ord(substr($card,$trailer_pos+8,1)) & 0x0f ); + my $c3 = ( ord(substr($card,$trailer_pos+8,1)) & 0xf0 ) >> 4; - printf "KEY A:%s | %s | B:%s\n" - ,unpack('H*',substr($card,$pos+0x30 ,6)) - ,unpack('H*',substr($card,$pos+0x30+6 ,4)) - ,unpack('H*',substr($card,$pos+0x30+10,6)) + printf "# trailer @%x %016b c1:%08b c2:%08b c3:%08b\n" + , unpack('n',(substr($card,$trailer_pos+7,2))) + , $trailer_pos, $c1, $c2, $c3 ; - if ( $v == 0x0004 ) { - # RLE encoded card holder information - my $data = substr( $card, $pos, 0x30); - my $o = 0; - my $types = { - 0b00 => 'surname', - 0b01 => 'given name', - 0b10 => 'sex', - 0b11 => 'any', - }; - while ( substr($data,$o,1) ne "\x00" ) { - my $len = ord(substr($data,$o,1)); - my $type = ( $len & 0b11000000 ) >> 6; - $len = $len & 0b00111111; - my $dump = substr($data,$o+1,$len-1); - $dump = '0x' . unpack('H*', $dump) if $type == 0b11; # any - printf "%-10s %2d %s\n", $types->{$type}, $len, $dump; - $o += $len + 1; + my $condition = ''; + foreach my $j ( 0 .. $blocks - 1 ) { + my $offset = $pos + $j * 0x10; + my $block = substr($card, $offset, 0x10); + + my $acl_block = + $sector < 32 ? $j : + $j % 5 == 0 ? $j / 5 : + undef; # display condition only once for block group + + if ( defined $acl_block ) { + my $trailer = $j == ( $blocks - 1 ); + my $mask = 1 << $acl_block; + my $cond + = ( ( $c1 & $mask ) * 4 ) + + ( ( $c2 & $mask ) * 2 ) + + ( ( $c3 & $mask ) * 1 ) + ; + $cond >>= $acl_block; + $condition = sprintf ' %03b %s' + , $cond + , $trailer ? $access_condition_trailer->{$cond} + : $access_condition_data->{$cond} + ; + if ( ! $trailer && ( $cond == 0b001 || $cond == 0b011 ) ) { + my $value_block = unpack 'x4Lx8', $block; + my $positive = $value_block & 0x8000_0000; + my $value = $value_block & 0x7fff_ffff; + $value = -$value if ! $positive; + #$condition .= sprintf " = %d 0x%x", $value, $value_block; + $condition .= " = " . $value; + } + } else { + $condition = ''; } - } elsif ( $v == 0x0015 ) { - printf "Card number: %s\n", unpack('h*',substr($card,$pos + 0x04,6)); + + my $hex = unpack('H*',$block); + $hex =~ s/(....)/$1 /g; + + if ( $ENV{SWAP} ) { + my $hex_sw = unpack('h*',$block); + $hex_sw =~ s/(....)/$1 /g; + $hex .= " | $hex_sw"; + } + + printf "%x %03x %s%s\n", $j, $offset, $hex, $condition; } + printf "KEY A:%s | %s GDP: %s | B:%s %s\n" + ,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)) + ,$life_cycle->{substr($card,$trailer_pos+6,3)} || '' + ; + print "\n"; + $pos += $blocks * 0x10; } __DATA__ @@ -184,11 +263,12 @@ E8 computer F0 mail F8-FF miscellaneous applications -0000 sector free -0001 sector defective -0002 sector reserved -0003 DIR continuted -0004 card holder +0000 sector is free +0001 sector is defect, e.g. access keys are destroyed or unknown +0002 sector is reserved +0003 sector contains additional directory info (useful only for future cards) +0004 sector contains card holder information in ASCII format. +0005 sector not applicable (above memory size) 0015 - card administration MIKROELEKTRONIKA spol.s.v.MIKROELEKTRONIKA spol.s.v.o. worldwide 1 01.02.2007 Card publisher info 0016 - card administration Mikroelektronika spol.s.r.o., Kpt.Mikroelektronika spol.s.r.o., Kpt. PoEurope 1 10.10.2007 Issuer information