X-Git-Url: http://git.rot13.org/?p=perl-Mifare-MAD.git;a=blobdiff_plain;f=nfc-card-dumper.pl;h=ffdecc960c2af39f5d65facd059e51848665372d;hp=33b17cd662862b1952f4bb498480f51791ab9d96;hb=d1fb53c418af9be9c98f53f4bc77e760adfcf313;hpb=0686bc57aa60b48d394819cbf6ab66b4af97f7ba

diff --git a/nfc-card-dumper.pl b/nfc-card-dumper.pl
index 33b17cd..ffdecc9 100755
--- a/nfc-card-dumper.pl
+++ b/nfc-card-dumper.pl
@@ -54,6 +54,10 @@ if ($r->init()) {
 			# disconnect from reader so we can run mfoc
 			RFID::Libnfc::nfc_disconnect($r->{_pdi});
 
+			print "Dump this card with mfoc? [y] ";
+			my $yes = <STDIN>; chomp $yes;
+			exit unless $yes =~ m/y/i || $yes eq '';
+
 			my $file = "cards/$uid.keys";
 			unlink $file;
 			warn "# finding keys for card $uid with: mfoc -O $file\n";