X-Git-Url: http://git.rot13.org/?p=perl-Mifare-MAD.git;a=blobdiff_plain;f=nfc-card-dumper.pl;h=65943bd6179333a0b48c82d2bb4a89960a60ca94;hp=09be74238b5303a63db54c8f668e58c5bfc0f29c;hb=2ccc554c0096aefd005b7a014bca658abdcfb77b;hpb=25e67f6fb1e89a920b38b629de2695c7402d90a9

diff --git a/nfc-card-dumper.pl b/nfc-card-dumper.pl
index 09be742..65943bd 100755
--- a/nfc-card-dumper.pl
+++ b/nfc-card-dumper.pl
@@ -87,8 +87,11 @@ if ($r->init()) {
 		print STDERR "writing $uid block ";
 		foreach my $block ( 0 .. $tag->blocks ) {
 			my $offset = 0x10 * $block;
-			$tag->write_block( $block, substr($card,$offset,0x10) );
+			my $data = substr($card,$offset,0x10);
+			$tag->write_block( $block, $data );
 			print STDERR "$block ";
+			my $verify = $tag->read_block( $block );
+			print STDERR $verify eq $data ? "OK " : "ERROR ";
 		}
 		print STDERR "done\n";
 		unlink $card_key_file;