Home › ELEKTOR FORUMS › Truly Miscellaneous › MIFARE Magic doesn't recognize Mifare 1k...

ELEKTOR FORUMS

Please log in to post a reply or subscribe / unsubscribe to topics

Topic: MIFARE Magic doesn't recognize Mifare 1k card (Unknown IC Type)

Author Post

digitales

6 posts

Popping In
Popping In

Read post 01-02-2007 20:14

I'm trying to use Mifare 1k cards with MIFARE Magic,
it retrieves the UID but Card Type is Unknown IC Type.
ATQA is 04 00 and SAK 136.

Mifare_UTIL_Functions.bas contains following lines
Public Const ATQA_Philips_Mifare_1K = &H400
Public Const SAK_Philips_Mifare_1K = &H8
Should i try to change those and rebuild?

Another question can I use MIFARE Magic to read data from Mifare 1k cards or do I need to create custom app for that?

digitales

6 posts

Popping In
Popping In

Read post 03-02-2007 15:41

http://www.nxp.com/acrobat_download/other/identification/M130810.pdf
in page seven there is fig3 Card Activation which states that
if SAK bit 4 = 1 and SAK bit 5 = 0 then Mifare 1k card
I'm not very familiar with Visul Basic or how to do bitwise with that.

However, I changed line 82 to of MifareUTILFunctions to
ElseIf ((iATQA = ATQA_Philips_Mifare_1K) And ((SAK And SAK_Philips_Mifare_1K) = SAK_Philips_Mifare_1K)) Then
MIFARE_TypeIdentification = Mifare_1K

Now the correct Card Type is shown.

Read or Write attempts give Error: 0x1 No Card present
Any suggestions how to fix that?

digitales

6 posts

Popping In
Popping In

Read post 12-02-2007 16:16

Or do I need to use authentication with (blank) Mifare 1k cards? I tried to do authentication with the following function but result was 0x1 as always

Public Const MIFARE_AUTHENTICATION = &H60
Public Function MifareAuthentication() As Long
Dim bytRcvBuffer(20) As Byte
Dim bytSndBuffer(16) As Byte
Dim bytRecStatus As Byte
Dim lngStatus As Long
Dim lngRecLen As Long

'key
bytSndBuffer(0) = &HA0
bytSndBuffer(1) = &HA1
bytSndBuffer(2) = &HA2
bytSndBuffer(3) = &HA3
bytSndBuffer(4) = &HA4
bytSndBuffer(5) = &HA5

'uid
bytSndBuffer(6) = &HF1
bytSndBuffer(7) = &H7D
bytSndBuffer(8) = &H92
bytSndBuffer(9) = &H94

'address
bytSndBuffer(10) = &H8
lngRecLen = 0

lngStatus = PCReaderCmdExchange(MIFARE_AUTHENTICATION, bytSndBuffer, 11, bytRcvBuffer, 0, lngRecLen)
MifareAuthentication = lngStatus
End Function

reamanda

1 post

Popping In
Popping In

Read post 26-03-2010 07:50

do you want to buy mifare cards, 1K/4K
we're a Chinese card factory produce smart cards. also 1/4 K mifare card .
Our price is just competitive.
we can supply the free sample without freight fee.

Please log in to post a reply or subscribe / unsubscribe to topics

Subscribe now

Subscribe to our free
E-weekly Newsletter!

Enter your Email address:

Follow Elektor

      

Act now!

FAQ

Before submitting questions, review our FAQ section!

Bestseller

Microprocessor Design using Verilog HDL

This book is a practical guide to processor design in the real world. It presents the Verilog HDL in an easily digestible fashion and serves as a thorough introduction about reducing a computer architecture and instruction set to practice. 

Package Deals

Elektor Bundles

Check our Package Deals and save money! Discounts up to 19% now available!

Price Slashed

Elektor OSPV

This Open Source People Vehicle is perfect for factory halls, warehouses, hospitals, colleges, schools etc.

Elektor PCBs at 25% OFF