RS232串口IC卡读写器控制协议

        本读写器支持ISO14443 TYPE A标准的Mifare One系列卡。Mifare One卡的内部存储结构分为16个扇区,从第0区到第15区,每个扇区有独立的密码和权限控制字,可作为独立的电子钱包,每个扇区有4个块,序号为第0块、第1块、第2块、第3块,每块16个字节,第3块是卡的密码和权限控制字专用块,禁止在此存放数据。第0块、第1块、第2块可随意存放数据。但第0区的第0块已被固化了IC卡出厂信息,此块只能读出信息,不可更改。

每张卡都有一个全球统一的4个字节的序列号。许多公司销售的读卡模块只有读取卡序列号的功能,也能用于一般的考勤系统。但这类读卡模块跟本公司的读写器有着本质的不同,本公司的读写器不仅能读序列号,而且还有服务于IC卡所有用途的功能。

波特率参数为:19200,N,8,1

发送帧格式

帧长度(1字节)

帧内容(不超过62个字节)

帧内容的和校验(1字节)

接收帧格式

帧长度(1字节)

帧内容(不超过62个字节)

帧内容的和校验(1字节)

注:帧长度仅指帧内容的字节数

功能:驱动蜂鸣器响   
  帧长度(1B) 帧数据 帧检验(1B)
发送数据 03 0F FF 00

F0

 

功能:读取IC卡序列号   
  帧长度(1B) 帧数据 帧检验(1B)
发送数据 01 F0 F0
寻不到卡返回 01 08 08
寻到卡返回 05 4字节卡号 1字节检验
感应区有两张卡 01 09 09
无法选择卡片 01 0A 0A
       

 

功能:集成读卡,一次性读整个区的第0块、第1块、第2块共3块的信息,并且返回卡序列号   
  帧长度(1B) 帧数据 帧检验(1B)
发送数据 0E 78 17 00 00 00 00 08 AA FF FF FF FF FF FF  CD
寻不到卡返回 01 08 08
寻到卡返回 35 4字节卡号+48字节扇区内数据 1字节检验
感应区有两张以上的卡 01 09 09
无法选择卡片 01 0A 0A
密码装载失败   0B+4字节卡号  
密码认证失败   0C+4字节卡号  

 

功能:集成写卡,可以一次性写整个区的第0块、第1块、第2块信息   
  帧长度(1B) 帧数据 帧检验(1B)
发送数据 3E 69 17 00 00 00 00 08 AA FF FF FF FF FF FF [48字节的写卡数据] CD
寻不到卡返回 01 08 08
感应区有两张以上的卡 01 09 09
无法选择卡片 01 0A 0A
密码装载失败   0B+4字节卡号  
密码认证失败   0C+4字节卡号  

 

RS232串口IC卡读写器控制协议_第1张图片

Delphi7串口控件源码:

打开串口------------------------------------------------------------------------------------------------------------------------------------------------------

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if(BitBtn1.Caption = '打开串口') then
  begin
    try
        Comm1.CommName:='\\.\'+ComboBox1.Text;
        //以下代码一定要复制过去
        Comm1.BaudRate:=strtoint(ComboBox2.text);        //19200;
        Comm1.ByteSize:=_8;
        Comm1.ParityCheck:=False;
        case combobox3.ItemIndex of
             0: Comm1.Parity:=None;
             1: Comm1.Parity:=Odd;
             2: Comm1.Parity:=Even;
             3: Comm1.Parity:=Mark;
        else
                Comm1.Parity:=Space;
        end;
        Comm1.StopBits:=_1;
        Comm1.XoffChar:='#';
        comm1.ReadIntervalTimeout:= StrToInt(RichEdit13.Lines[0]);

        Comm1.StartComm; //打开串口
        BitBtn1.Caption := '关闭串口';

        ComboBox1.Enabled:=False;
    except
        ShowMessage('打开端口失败!');
    end;
  end
  else
  begin
    try
        timer2.Enabled :=false;
        Comm1.StopComm; //关闭串口
        BitBtn1.Caption := '打开串口';
        ComboBox1.Enabled:=True;
    except

    end;
  end;

end;

串口发送指令读卡号-------------------------------------------------------------------------------------------------------------------------

procedure TForm1.BitBtn2Click(Sender: TObject);
var
   sendd:array[0..2]of Byte;   //发送字节缓冲
   SendDataStr:string;
   i:integer;
begin
    if(BitBtn1.Caption <> '关闭串口') then
    begin
       Application.MessageBox('请先打开串口再进行修改在线设备站号的操作!', '警告', MB_OK+MB_ICONSTOP);
       Exit;
    end;

    sendd[0] := $01;
    sendd[1] := $F0;
    sendd[2] := $F0;

    FuncCode:=1;   //驱动读卡序列号
    issendwaitrev1 := True;
    sendwaitrevsize := 0;

    Comm1.WriteCommData(@sendd[0], 3);

    SendDataStr:='串口发送数据:';
    for i:=0 to 2 do
    begin
         SendDataStr:=SendDataStr+inttohex(sendd[i],2)+' ';
    end;

    ListBox1.Items.Add(SendDataStr);
    listbox1.ItemIndex:=listbox1.Count-1;

end;

串口接收指令后并返回信息------------------------------------------------------------------------------------------------------------

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var

i,para:integer;
answ:integer;
GetdataStr:string;
SendDataStr:string;
cardhao:Longword;
strls1:string;
CRC:byte;
sendd:array[0..7]of Byte;   //发送字节缓冲

begin
  GetdataStr:='串口接收数据:';
  if issendwaitrev1 then
  begin//在有发送指令等待返回
    issendwaitrev1 := False;
    sendwaitrevsize := BufferLength;
    move(Buffer^,pchar(@(sendwaitData[0]))^,BufferLength);

    for i:=0 to  BufferLength-1  do
    begin
        GetdataStr:=GetdataStr+inttohex(sendwaitData[i],2)+' ';
        if i=32 then
        begin
              ListBox1.Items.Add(GetdataStr);
              listbox1.ItemIndex:=listbox1.Count-1;
              GetdataStr:='             ' ;
        end;
    end;
    if  length(trim(GetdataStr))>0 then
    begin
        ListBox1.Items.Add(GetdataStr);
        listbox1.ItemIndex:=listbox1.Count-1;
    end;

    crc:=0;
    for i:=1 to BufferLength-1 do
    begin
       crc:=crc xor sendwaitData[i];
    end;

    if crc=0 then
    begin
    case FuncCode of
         1,2,3,4:
         begin
             if (sendwaitData[0]=1)  then
             begin
                  case sendwaitData[1] of
                        1:
                        edit3.Text :='密码认证成功,卡片序列号已知,但读取扇区内容失败!';
                        2:
                        edit3.Text :='第0块读出,但第1、2块没读出,仅扇区内容前16个字节的数据有效!';
                        3:
                        edit3.Text :='第0、1块读出,但第2块没读出,仅扇区内容前32个字节的数据有效!';
                        8:
                        edit3.Text :='未寻到卡!';
                        9:
                        edit3.Text :='两张以上卡片同时在感应区,发生冲突!';
                        10:
                        edit3.Text :='无法选择激活卡片!';
                        11:
                        edit3.Text :='密码装载失败,卡片序列号已知!';
                        12:
                        edit3.Text :='密码认证失败,卡片序列号已知!';
                  end;
             end
             else
             begin
                 if (sendwaitData[0]=5) then
                 begin
                     cardhao := sendwaitData[5] + sendwaitData[4]*256 + sendwaitData[3]*256*256 + sendwaitData[2]*256*256*256;
                     case sendwaitData[1] of
                        0:
                        begin
                              if FuncCode=2 then  strls1:='读卡成功 ' else if  FuncCode=3 then  strls1:='写卡成功 ' else if  FuncCode=4 then strls1:='更改密码成功 ' ;
                        end;
                        1:
                        strls1:='密码认证成功,卡片序列号已知,但读取扇区内容失败!';
                        2:
                        strls1:='第0块读出,但第1、2块没读出,仅扇区内容前16个字节的数据有效!';
                        3:
                        strls1:='第0、1块读出,但第2块没读出,仅扇区内容前32个字节的数据有效!';
                        8:
                        strls1:='未寻到卡!';
                        9:
                        strls1:='两张以上卡片同时在感应区,发生冲突!';
                        10:
                        strls1:='无法选择激活卡片!';
                        11:
                        strls1:='密码装载失败,卡片序列号已知!';
                        12:
                        strls1:='密码认证失败,卡片序列号已知!';
                     end;
                     strls1:=strls1+'物理卡号:'+inttohex(sendwaitData[2],2)+'-'+inttohex(sendwaitData[3],2)+'-'+inttohex(sendwaitData[4],2)+'-'+inttohex(sendwaitData[5],2);
                     strls1:=strls1+' 换算成十位卡号:'+ RightStr('000000000' + IntToStr(cardhao),10);
                     edit3.Text :=strls1;
                 end
                 else
                 begin
                     if (sendwaitData[0]=53) then
                     begin
                         cardhao := sendwaitData[5] + sendwaitData[4]*256 + sendwaitData[3]*256*256 + sendwaitData[2]*256*256*256;
                         strls1:='物理卡号:'+inttohex(sendwaitData[2],2)+'-'+inttohex(sendwaitData[3],2)+'-'+inttohex(sendwaitData[4],2)+'-'+inttohex(sendwaitData[5],2);
                         strls1:=strls1+' 换算成十位卡号:'+ RightStr('000000000' + IntToStr(cardhao),10);
                         edit3.Text :=strls1;

                         GetdataStr:='';
                         for i:=6 to BufferLength-2 do
                         begin
                             GetdataStr:=GetdataStr+inttohex(sendwaitData[i],2)+' ';
                         end;
                         RichEdit3.Text :=GetdataStr;
                     end;
                 end;
             end;
         end;
     end;
   end;
   end;
end;

 

你可能感兴趣的:(18002295132,QQ:954486673,串口通信,单片机)