if ($r->init()) {
printf ("Reader: %s\n", $r->name);
my $tag = $r->connect(IM_ISO14443A_106);
if ($r->init()) {
printf ("Reader: %s\n", $r->name);
my $tag = $r->connect(IM_ISO14443A_106);
my $md5 = md5_hex($card);
if ( glob "cards/$uid.$md5.*" ) {
warn "SKIPPING, same dump allready exits\n";
my $md5 = md5_hex($card);
if ( glob "cards/$uid.$md5.*" ) {
warn "SKIPPING, same dump allready exits\n";
symlink $out_file, "cards/$uid.key" || die "cards/$uid.key: $!";
warn "using keys as default for card $uid\n";
}
symlink $out_file, "cards/$uid.key" || die "cards/$uid.key: $!";
warn "using keys as default for card $uid\n";
}