projects
/
perl-Mifare-MAD.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
25e67f6
)
verify write_block
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Wed, 2 Feb 2011 14:49:31 +0000
(15:49 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Wed, 2 Feb 2011 14:49:31 +0000
(15:49 +0100)
nfc-card-dumper.pl
patch
|
blob
|
history
diff --git
a/nfc-card-dumper.pl
b/nfc-card-dumper.pl
index
09be742
..
65943bd
100755
(executable)
--- 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;