Delphi复制HID、ID门禁卡源码

T5557卡是美国Atmel公司生产的多功能非接触式射频芯片卡，属于125KHz的低频卡，在国内有广大的应用市场，如很多酒店的门禁卡都是使用T5557卡。该芯片共有330bit(比特)的EPROM(分布为10个区块, 每个区块33bit)。0页的块0是被保留用于设置T5557操作模式的参数配置块。第0页第7块可以作用户数据块使用，也可以作为保护全部数据的密码（假如在配置块中启用密码功能的话），防止非法改写数据。第1页的1、2块保存了出厂商信息及唯一出厂ID，只能读取不可更改。T5567、T5577是T5557的升级版。

通过修改T5557卡的参数配置块，可以将t5557卡模拟成ID卡及HID卡，所以被广泛地用于门禁卡的复制。

本示例使用的发卡器：T5557 T5567 T5577低频RFID读写器 EM4100 HID卡复制器酒店门卡-淘宝网 (taobao.com)

一、函数声明

unit declaredll;

interface

//ID卡读卡
function idr_read(pserial:pbyte):byte;stdcall;external 'OUR_IDR.dll';

//HID卡读卡
function hid_read(pserial:pbyte):byte;stdcall;external 'OUR_IDR.dll';

//T5557卡写配置块
function t5557_init(ctrlword:byte;serial:pbyte;key:pbyte;configdata:pbyte;newkey:pbyte):byte;stdcall;external 'OUR_IDR.dll';

//T5557卡读卡
function t5557_read(ctrlword:byte;serial:pbyte;key:pbyte;blockflag:pbyte;readdata:pbyte):byte;stdcall;external 'OUR_IDR.dll';

//T5557卡写卡
function t5557_write(ctrlword:byte;serial:pbyte;key:pbyte;blockflag:pbyte;writedata:pbyte):byte;stdcall;external 'OUR_IDR.dll';

//T5557卡改密码
function t5557_changekey(ctrlword:byte;serial:pbyte;oldkey:pbyte;newkey:pbyte):byte;stdcall;external 'OUR_IDR.dll';

//用T5557卡制作ID卡（也就是EM4100及兼容卡）
function t5557_to4100(ctrlword:byte;serial:pbyte;oldkey:pbyte;newkey:pbyte;myuidbuf:pbyte):byte;stdcall;external 'OUR_IDR.dll';

//用T5557卡制作HID卡
function t5557_tohid(ctrlword:byte;serial:pbyte;oldkey:pbyte;newkey:pbyte;myuidbuf:pbyte):byte;stdcall;external 'OUR_IDR.dll';

//驱动蜂鸣器函数声明
function idr_beep(xms:integer):byte;stdcall;external 'OUR_IDR.dll';
//读出设备序列编号函数声明
function pcdgetdevicenumber(pdevicenumber:pbyte):byte;stdcall;external 'OUR_IDR.dll';

const

   //以下控制字的含义请查看本公司网站提供的动态库说明
    NEEDSERIAL = $01;   //需要只对指定系列号的卡操作
    NEEDKEY = $02;      //需要用密码认证
    LOCKBIT = $04;      //锁定配置块或数据块，仅对   t5557_init，t5557_write ，t5557_changekey函数有效
    KEYENABLE = $08;    //启用本卡的密码功能
    RESETCARD = $10;    //操作成功后重启卡片

implementation

end.

二、读取T5557卡块内数据

procedure TForm1.Button3Click(Sender: TObject);//读卡
var
    j:integer;
    status:byte;//存放返回值
    myctrlword:byte;//控制字
	  oldpicckey:array[0..3] of byte;//密码
    mypiccserial:array[0..5] of byte;//卡序列号
    mypiccdata:array[0..49] of byte;//读卡数据缓冲:卡无线转输分频比、卡内容长度（字节数），及最多返回12个块的数据
    mypiccblockflag:array[0..1] of byte;//指定读哪一块

    strls:string;
    strls1:string;

begin

  myctrlword := $00; //NEEDSERIAL：需要只对指定系列号的卡操作,NEEDKEY：需要用密码认证,LOCKBIT：锁定块，KEYENABLE：启用本卡的密码功能

  if CheckBox2.Checked then
  begin//本次操作需要密码验证
    oldpicckey[0] :=  StrToInt('$' + midstr(Edit5.Text,1,2));
    oldpicckey[1] :=  StrToInt('$' + midstr(Edit5.Text,3,2));
    oldpicckey[2] :=  StrToInt('$' + midstr(Edit5.Text,5,2));
    oldpicckey[3] :=  StrToInt('$' + midstr(Edit5.Text,7,2));
    myctrlword := myctrlword + NEEDKEY;
  end;

  if CheckBox3.Checked then
  begin//仅操作指定卡号的卡

    if(Length(Edit8.Text) < 12) then
    begin
      ShowMessage('卡号长度不足');
      Edit8.SetFocus;
      Exit;
    end;

    myctrlword := myctrlword + NEEDSERIAL;
    //仅操作指定卡号的卡，6个字节卡号如下
    mypiccserial[0] :=  StrToInt('$' + midstr(Edit8.Text,1,2));
    mypiccserial[1] :=  StrToInt('$' + midstr(Edit8.Text,3,2));
    mypiccserial[2] :=  StrToInt('$' + midstr(Edit8.Text,5,2));
    mypiccserial[3] :=  StrToInt('$' + midstr(Edit8.Text,7,2));
    mypiccserial[4] :=  StrToInt('$' + midstr(Edit8.Text,9,2));
    mypiccserial[5] :=  StrToInt('$' + midstr(Edit8.Text,11,2));

  end;

  //操作块标志
  //第0页的块
  mypiccblockflag[0] := 0;
  if chkP0B0.Checked then
  begin
    mypiccblockflag[0] := mypiccblockflag[0] + 1;

  end;

  if chkP0B1.Checked then
  begin
    mypiccblockflag[0] := mypiccblockflag[0] + 2;

  end;

  if chkP0B2.Checked then
  begin
    mypiccblockflag[0] := mypiccblockflag[0] + 4;

  end;

  if chkP0B3.Checked then
  begin
    mypiccblockflag[0] := mypiccblockflag[0] + 8;

  end;

  if chkP0B4.Checked then
  begin
    mypiccblockflag[0] := mypiccblockflag[0] + 16;

  end;

  if chkP0B5.Checked then
  begin
    mypiccblockflag[0] := mypiccblockflag[0] + 32;

  end;

  if chkP0B6.Checked then
  begin
    mypiccblockflag[0] := mypiccblockflag[0] + 64;

  end;

  if chkP0B7.Checked then
  begin
    mypiccblockflag[0] := mypiccblockflag[0] + 128;

  end;

  //第1页
  mypiccblockflag[1] := 0;
  if chkP1B1.Checked then
  begin
    mypiccblockflag[1] := mypiccblockflag[1] + 2;

  end;

  if chkP1B2.Checked then
  begin
    mypiccblockflag[1] := mypiccblockflag[1] + 4;

  end;

  if chkP1B3.Checked then
  begin
    mypiccblockflag[1] := mypiccblockflag[1] + 8;

  end;

  if chkP1B4.Checked then
  begin
    mypiccblockflag[1] := mypiccblockflag[1] + 16;

  end;

  status := t5557_read(myctrlword,@mypiccserial,@oldpicckey,@mypiccblockflag,@mypiccdata);

  case status of
      0:
        begin

          strls := '卡无线转输分频比[';
          strls := strls + IntToStr(mypiccdata[0]);

          strls := strls + '],卡号[';

          strls1 := '';
          for j := 0 to 5 do
          begin
            strls1 := strls1 + IntToHex(mypiccserial[j],2);
          end;

          strls := strls + strls1;

          strls := strls + '],卡数据[';

          strls1 := '';
          for j := 0 to mypiccdata[1] - 1 do
          begin
            strls1 := strls1 + IntToHex(mypiccdata[2+j],2);
          end;

          strls := strls + strls1;

          strls := strls + ']';

          Memo2.Text := strls;

          ShowMessage('读卡成功');
        end;
      8: ShowMessage('请将卡放在感应区');

      2: ShowMessage('本卡尚未开启密码功能，函数myctrlword中无需加入NEEDKEY');
      3: ShowMessage('需要密码才能读卡，函数myctrlword要加入NEEDKEY');
      5: ShowMessage('密码错误！');
      23: ShowMessage('机器没连上，或驱动程序未安装!');
  else ShowMessage('错误代码：' + IntToStr(status));

  end;

end;

三、写数据到T5557卡内

procedure TForm1.Button1Click(Sender: TObject);//写卡
var
    i,j:integer;
    status:byte;//存放返回值
    myctrlword:byte;//控制字
	  oldpicckey:array[0..3] of byte;//密码
    mypiccserial:array[0..5] of byte;//卡序列号
    mypiccdata:array[0..47] of byte;//写入数据缓冲:最多返回12个块的数据
    mypiccblockflag:array[0..1] of byte;//指定写哪一块

    strls:string;
    strls1:string;

begin

  myctrlword := $00; //NEEDSERIAL：需要只对指定系列号的卡操作,NEEDKEY：需要用密码认证,LOCKBIT：锁定块，KEYENABLE：启用本卡的密码功能

  if CheckBox2.Checked then
  begin//本次操作需要密码验证
    oldpicckey[0] :=  StrToInt('$' + midstr(Edit5.Text,1,2));
    oldpicckey[1] :=  StrToInt('$' + midstr(Edit5.Text,3,2));
    oldpicckey[2] :=  StrToInt('$' + midstr(Edit5.Text,5,2));
    oldpicckey[3] :=  StrToInt('$' + midstr(Edit5.Text,7,2));
    myctrlword := myctrlword + NEEDKEY;
  end;

  if CheckBox3.Checked then
  begin//仅操作指定卡号的卡

    if(Length(Edit8.Text) < 12) then
    begin
      ShowMessage('卡号长度不足');
      Edit8.SetFocus;
      Exit;
    end;

    myctrlword := myctrlword + NEEDSERIAL;
    //仅操作指定卡号的卡，6个字节卡号如下
    mypiccserial[0] :=  StrToInt('$' + midstr(Edit8.Text,1,2));
    mypiccserial[1] :=  StrToInt('$' + midstr(Edit8.Text,3,2));
    mypiccserial[2] :=  StrToInt('$' + midstr(Edit8.Text,5,2));
    mypiccserial[3] :=  StrToInt('$' + midstr(Edit8.Text,7,2));
    mypiccserial[4] :=  StrToInt('$' + midstr(Edit8.Text,9,2));
    mypiccserial[5] :=  StrToInt('$' + midstr(Edit8.Text,11,2));

  end;

  //操作块标志
  j := 0;
  //第0页的块
  mypiccblockflag[0] := 0;
  if chkP0B0.Checked then
  begin
    mypiccblockflag[0] := mypiccblockflag[0] + 1;
    Inc(j);
  end;

  if chkP0B1.Checked then
  begin
    mypiccblockflag[0] := mypiccblockflag[0] + 2;
    Inc(j);
  end;

  if chkP0B2.Checked then
  begin
    mypiccblockflag[0] := mypiccblockflag[0] + 4;
    Inc(j);
  end;

  if chkP0B3.Checked then
  begin
    mypiccblockflag[0] := mypiccblockflag[0] + 8;
    Inc(j);
  end;

  if chkP0B4.Checked then
  begin
    mypiccblockflag[0] := mypiccblockflag[0] + 16;
    Inc(j);
  end;

  if chkP0B5.Checked then
  begin
    mypiccblockflag[0] := mypiccblockflag[0] + 32;
    Inc(j);
  end;

  if chkP0B6.Checked then
  begin
    mypiccblockflag[0] := mypiccblockflag[0] + 64;
    Inc(j);
  end;

  if chkP0B7.Checked then
  begin
    mypiccblockflag[0] := mypiccblockflag[0] + 128;
    Inc(j);
  end;

  //第1页
  mypiccblockflag[1] := 0;
  if chkP1B1.Checked then
  begin
    mypiccblockflag[1] := mypiccblockflag[1] + 2;
    Inc(j);
  end;

  if chkP1B2.Checked then
  begin
    mypiccblockflag[1] := mypiccblockflag[1] + 4;
    Inc(j);
  end;

  if chkP1B3.Checked then
  begin
    mypiccblockflag[1] := mypiccblockflag[1] + 8;
    Inc(j);
  end;

  if chkP1B4.Checked then
  begin
    mypiccblockflag[1] := mypiccblockflag[1] + 16;
    Inc(j);
  end;

  if j = 0 then
  begin
    ShowMessage('请选择需要写入的块!');
    Exit;
  end;

  //写卡数据准备
  strls := Memo1.Text;
  i := Length(strls);
  i := i div 2;

  if i < (j * 4) then
  begin
    ShowMessage('数据长度不足，请补足数据!');
    Memo1.SelStart := Length(Memo1.Text);
    Memo1.SetFocus;
    Exit;
  end;

  for i := 0 to (j * 4 - 1) do
  begin
    mypiccdata[i] := StrToInt('$' + MidStr(strls,i*2+1,2));    //22232425 26272829
  end;

  status := t5557_write(myctrlword,@mypiccserial,@oldpicckey,@mypiccblockflag,@mypiccdata);

  case status of
      0:
        begin
          strls := '卡号[';

          strls1 := '';
          for i := 0 to 5 do
          begin
            strls1 := strls1 + IntToHex(mypiccserial[i],2);
          end;

          strls := strls + strls1;

          strls := strls + ']';

          Memo2.Text := strls;

          ShowMessage('写卡成功');
        end;
      8: ShowMessage('请将卡放在感应区');
      2: ShowMessage('本卡尚未开启密码功能，函数myctrlword中无需加入NEEDKEY');
      3: ShowMessage('需要密码才能写卡，函数myctrlword要加入NEEDKEY');
      5: ShowMessage('密码错误！');
      23: ShowMessage('机器没连上，或驱动程序未安装!');
  else ShowMessage('错误代码：' + IntToStr(status));;

  end;

end;

四、将T5557卡配置成ID卡、HID卡

procedure TForm1.Button7Click(Sender: TObject);//单次制卡(收费功能)
var
  i,j:Integer;
  cardnumber:int64;
  myuidbuf:array[0..6] of byte;//ID卡序列号

  status:byte;//存放返回值
  myctrlword:byte;//控制字
  oldpicckey:array[0..3] of byte;//密码
  mypiccserial:array[0..5] of byte;//卡序列号
  newpicckey:array[0..3] of byte;//新密码

  strls:string;
  strls1:string;

begin

  //输入检查
  //卡号
  try
    if RadioButton3.Checked then
    begin//ID卡
      if ComboBox5.ItemIndex = 1 then
      begin//输入10位十进制码
        if Length(Edit1.Text) < 10 then
        begin
          ShowMessage('卡号输入长度不足，必须为10位十进制数值');
          Edit1.SelStart := Length(Edit1.Text);
          Edit1.SetFocus;
          Exit;
        end;

        cardnumber:= StrToInt64(Edit1.Text);

        if(cardnumber < 0) then
        begin
          ShowMessage('卡号的值不能为负数');
          Edit1.SelStart := Length(Edit1.Text);
          Edit1.SetFocus;
          Exit;
        end;

        if(cardnumber > 4294967295) then
        begin
          ShowMessage('卡号的值不能超过4294967295');
          Edit1.SelStart := Length(Edit1.Text);
          Edit1.SetFocus;
          Exit;
        end;

        myuidbuf[4] := cardnumber;
        cardnumber := cardnumber div 256;
        myuidbuf[3] := cardnumber;
        cardnumber := cardnumber div 256;
        myuidbuf[2] := cardnumber;

      end
      else if ComboBox5.ItemIndex = 2 then
      begin//输入韦根34码

        if Length(Edit1.Text) < 10 then
        begin
          ShowMessage('卡号输入长度不足，必须为10位十进制数值');
          Edit1.SelStart := Length(Edit1.Text);
          Edit1.SetFocus;
          Exit;
        end;

        cardnumber:= StrToInt64(Edit1.Text);

        if(cardnumber < 0) then
        begin
          ShowMessage('卡号的值不能为负数');
          Edit1.SelectAll;
          Edit1.SetFocus;
          Exit;
        end;

        cardnumber:= StrToInt64(midstr(Edit1.Text,1,5));
        if(cardnumber > 65535) then
        begin
          ShowMessage('WG34卡号的前5位字符的值不能超过65535');
          Edit1.SelStart := 1;
          Edit1.SelLength := 5;
          Edit1.SetFocus;
          Exit;
        end;

        myuidbuf[2] := cardnumber;

        cardnumber:= StrToInt64(midstr(Edit1.Text,6,5));
        if(cardnumber > 65535) then
        begin
          ShowMessage('WG34卡号的后5位字符的值不能超过65535');
          Edit1.SelStart := 6;
          Edit1.SelLength := 5;
          Edit1.SetFocus;
          Exit;
        end;

        myuidbuf[4] := cardnumber;
        myuidbuf[3] := (cardnumber div 256);

      end
      else if ComboBox5.ItemIndex = 3 then
      begin//输入韦根26码
        if Length(Edit1.Text) < 8 then
        begin
          ShowMessage('卡号输入长度不足，必须为8位十进制数值');
          Edit1.SelStart := Length(Edit1.Text);
          Edit1.SetFocus;
          Exit;
        end;

        cardnumber:= StrToInt64(Edit1.Text);

        if(cardnumber < 0) then
        begin
          ShowMessage('卡号的值不能为负数');
          Edit1.SelectAll;
          Edit1.SetFocus;
          Exit;
        end;

        cardnumber:= StrToInt64(midstr(Edit1.Text,1,3));
        if(cardnumber > 255) then
        begin
          ShowMessage('WG26卡号的前3位字符的值不能超过255');
          Edit1.SelStart := 1;
          Edit1.SelLength := 3;
          Edit1.SetFocus;
          Exit;
        end;

        myuidbuf[2] := cardnumber;

        cardnumber:= StrToInt64(midstr(Edit1.Text,4,5));
        if(cardnumber > 65535) then
        begin
          ShowMessage('WG26卡号的后5位字符的值不能超过65535');
          Edit1.SelStart := 4;
          Edit1.SelLength := 5;
          Edit1.SetFocus;
          Exit;
        end;

        myuidbuf[4] := cardnumber;
        myuidbuf[3] := (cardnumber div 256);
      end
      else
      begin//输入10位十六进制码
        if Length(Edit1.Text) < 10 then
        begin
          ShowMessage('卡号输入长度不足，必须为10位十六进制数值');
          Edit1.SelStart := Length(Edit1.Text);
          Edit1.SetFocus;
          Exit;
        end;

        cardnumber := StrToInt64('$'+Edit1.Text);

        myuidbuf[4] := cardnumber;
        cardnumber := cardnumber div 256;
        myuidbuf[3] := cardnumber;
        cardnumber := cardnumber div 256;
        myuidbuf[2] := cardnumber;

      end;
    end
    else
    begin//HID卡
      if (ComboBox5.ItemIndex = 1) then
      begin//输入10位十进制码
        if Length(Edit1.Text) < 10 then
        begin
          ShowMessage('卡号输入长度不足，必须为10位十进制数值');
          Edit1.SelStart := Length(Edit1.Text);
          Edit1.SetFocus;
          Exit;
        end;

        cardnumber:= StrToInt64(Edit1.Text);

        if(cardnumber < 0) then
        begin
          ShowMessage('卡号的值不能为负数');
          Edit1.SelStart := Length(Edit1.Text);
          Edit1.SetFocus;
          Exit;
        end;

        if(cardnumber > 4294967295) then
        begin
          ShowMessage('卡号的值不能超过4294967295');
          Edit1.SelStart := Length(Edit1.Text);
          Edit1.SetFocus;
          Exit;
        end;

        myuidbuf[6] := cardnumber;
        cardnumber := cardnumber div 256;
        myuidbuf[5] := cardnumber;
        cardnumber := cardnumber div 256;
        myuidbuf[4] := cardnumber;
        cardnumber := cardnumber div 256;
        myuidbuf[3] := cardnumber;

      end
      else if ComboBox5.ItemIndex = 2 then
      begin//输入韦根34码
        if Length(Edit1.Text) < 10 then
        begin
          ShowMessage('卡号输入长度不足，必须为10位十进制数值');
          Edit1.SelStart := Length(Edit1.Text);
          Edit1.SetFocus;
          Exit;
        end;

        cardnumber:= StrToInt64(Edit1.Text);

        if(cardnumber < 0) then
        begin
          ShowMessage('卡号的值不能为负数');
          Edit1.SelectAll;
          Edit1.SetFocus;
          Exit;
        end;

        cardnumber:= StrToInt64(midstr(Edit1.Text,1,5));
        if(cardnumber > 65535) then
        begin
          ShowMessage('WG34卡号的前5位字符的值不能超过65535');
          Edit1.SelStart := 1;
          Edit1.SelLength := 5;
          Edit1.SetFocus;
          Exit;
        end;

        myuidbuf[4] := cardnumber;
        myuidbuf[3] := (cardnumber div 256);

        cardnumber:= StrToInt64(midstr(Edit1.Text,6,5));
        if(cardnumber > 65535) then
        begin
          ShowMessage('WG34卡号的后5位字符的值不能超过65535');
          Edit1.SelStart := 6;
          Edit1.SelLength := 5;
          Edit1.SetFocus;
          Exit;
        end;

        myuidbuf[6] := cardnumber;
        myuidbuf[5] := (cardnumber div 256);


      end
      else if ComboBox5.ItemIndex = 3 then
      begin//输入韦根26码
        if Length(Edit1.Text) < 8 then
        begin
          ShowMessage('卡号输入长度不足，必须为8位十进制数值');
          Edit1.SelStart := Length(Edit1.Text);
          Edit1.SetFocus;
          Exit;
        end;

        cardnumber:= StrToInt64(Edit1.Text);

        if(cardnumber < 0) then
        begin
          ShowMessage('卡号的值不能为负数');
          Edit1.SelectAll;
          Edit1.SetFocus;
          Exit;
        end;

        cardnumber:= StrToInt64(midstr(Edit1.Text,1,3));
        if(cardnumber > 255) then
        begin
          ShowMessage('WG26卡号的前3位字符的值不能超过255');
          Edit1.SelStart := 1;
          Edit1.SelLength := 3;
          Edit1.SetFocus;
          Exit;
        end;

        myuidbuf[4] := cardnumber;

        cardnumber:= StrToInt64(midstr(Edit1.Text,4,5));
        if(cardnumber > 65535) then
        begin
          ShowMessage('WG26卡号的后5位字符的值不能超过65535');
          Edit1.SelStart := 4;
          Edit1.SelLength := 5;
          Edit1.SetFocus;
          Exit;
        end;

        myuidbuf[6] := cardnumber;
        myuidbuf[5] := (cardnumber div 256);


      end
      else if ComboBox5.ItemIndex = 4 then
      begin//输入4.3H6D码
        if Length(Edit1.Text) < 6 then
        begin
          ShowMessage('卡号输入长度不足，必须为6位十进制数值');
          Edit1.SelStart := Length(Edit1.Text);
          Edit1.SetFocus;
          Exit;
        end;

        cardnumber:= StrToInt64(Edit1.Text);

        myuidbuf[6] := cardnumber;
        cardnumber := cardnumber div 256;
        myuidbuf[5] := cardnumber;
        cardnumber := cardnumber div 256;
        myuidbuf[4] := cardnumber mod 8;//只取低3个位

      end
      else if ComboBox5.ItemIndex = 5 then
      begin//输入4H5D码
        if Length(Edit1.Text) < 5 then
        begin
          ShowMessage('卡号输入长度不足，必须为5位十进制数值');
          Edit1.SelStart := Length(Edit1.Text);
          Edit1.SetFocus;
          Exit;
        end;

        cardnumber:= StrToInt64(Edit1.Text);

        if(cardnumber < 0) then
        begin
          ShowMessage('卡号的值不能为负数');
          Edit1.SelectAll;
          Edit1.SetFocus;
          Exit;
        end;

        myuidbuf[6] := cardnumber;
        cardnumber := cardnumber div 256;
        myuidbuf[5] := cardnumber;


      end
      else
      begin//输入12位十六进制码
        if Length(Edit1.Text) < 11 then
        begin
          ShowMessage('卡号输入长度不足，必须为11位十六进制数值');
          Edit1.SelStart := Length(Edit1.Text);
          Edit1.SetFocus;
          Exit;
        end;

        cardnumber := StrToInt64('$'+Edit1.Text);

        myuidbuf[6] := cardnumber;
        cardnumber := cardnumber div 256;
        myuidbuf[5] := cardnumber;
        cardnumber := cardnumber div 256;
        myuidbuf[4] := cardnumber;
        cardnumber := cardnumber div 256;
        myuidbuf[3] := cardnumber;
        cardnumber := cardnumber div 256;
        myuidbuf[2] := cardnumber;
        cardnumber := cardnumber div 256;
        myuidbuf[1] := cardnumber;


      end;

      if ComboBox2.ItemIndex = 0 then
      begin//H10301(韦根26)
        myuidbuf[0] := 26 - 2;//有效位bit
      end
      else if ComboBox2.ItemIndex = 1 then
      begin//H10302(韦根37)
        myuidbuf[0] := 37 - 2;//有效位bit
      end
      else if ComboBox2.ItemIndex = 2 then
      begin//H10304(韦根37)
        myuidbuf[0] := 37 - 2;//有效位bit
      end
      else if ComboBox2.ItemIndex = 3 then
      begin//企业1000格式(韦根35)
        myuidbuf[0] := 35 - 2;//有效位bit
      end
      else
      begin
        myuidbuf[0] := ComboBox2.ItemIndex + 4;//韦根10有效位bit为8位
      end;

    end;
  except
    ShowMessage('卡号输入错误，必须为没有负数的数字');
    Edit1.SelectAll;
    Edit1.SetFocus;
    Exit;

  end;

  if RadioButton3.Checked then
  begin//ID卡
    try
      //版本号
      if Length(Edit10.Text) = 0 then
      begin
        ShowMessage('请先输入版本号，为0至15的数值');
        Edit10.SetFocus;
        Exit;
      end;

      if ComboBox5.ItemIndex = 0 then
      begin
        i := StrToInt('$'+ Edit10.Text);
      end
      else
      begin
        i := StrToInt(Edit10.Text);
      end;

      if i < 0 then
      begin
        ShowMessage('版本号不能为 负数');
        Edit10.SelectAll;
        Edit10.SetFocus;
        Exit;
      end;
      if i > 15 then
      begin
        ShowMessage('版本号不能大于 15 ');
        Edit10.SelectAll;
        Edit10.SetFocus;
        Exit;
      end;
    except
      ShowMessage('版本号输入错误，必须为数字');
      Edit10.SelectAll;
      Edit10.SetFocus;
      Exit;
    end;

    //客户代码
    try
      if Length(Edit11.Text) = 0 then
      begin
        ShowMessage('请先输入客户代码，为0至15的数值');
        Edit11.SetFocus;
        Exit;
      end;

      if ComboBox5.ItemIndex = 0 then
      begin
        j := StrToInt('$'+ Edit11.Text);
      end
      else
      begin
        j := StrToInt(Edit11.Text);
      end;


       if j < 0 then
      begin
        ShowMessage('客户代码不能为负数 ');
        Edit11.SelectAll;
        Edit11.SetFocus;
        Exit;
      end;
      if j > 15 then
      begin
        ShowMessage('客户代码不能大于 15 ');
        Edit11.SelectAll;
        Edit11.SetFocus;
        Exit;
      end;


    except
      ShowMessage('客户代码输入错误，必须为数字');
      Edit11.SelectAll;
      Edit11.SetFocus;
      Exit;
    end;

    myuidbuf[0] := i * 16 + j;

  end;

  if RadioButton3.Checked then
  begin//ID卡
    //前缀码
    try

      if ComboBox5.ItemIndex = 0 then
      begin
        if Length(Edit13.Text) = 0 then
        begin
          ShowMessage('请先输入前缀码，为十六进制00至FF的数值');
          Edit13.SetFocus;
          Exit;
        end;

        i := StrToInt('$'+ Edit13.Text);
      end
      else
      begin
        if Length(Edit13.Text) = 0 then
        begin
          ShowMessage('请先输入前缀码，为0至255的数值');
          Edit13.SetFocus;
          Exit;
        end;
        i := StrToInt(Edit13.Text);
      end;

      if i < 0 then
      begin
        ShowMessage('前缀码不能为负数 ');
        Edit13.SelectAll;
        Edit13.SetFocus;
        Exit;
      end;
      if i > 255 then
      begin
        ShowMessage('前缀码不能大于 255 ');
        Edit13.SelectAll;
        Edit13.SetFocus;
        Exit;
      end;
    except
      ShowMessage('前缀码输入错误，必须为数字');
      Edit13.SelectAll;
      Edit13.SetFocus;
      Exit;
    end;

    myuidbuf[1] := i;

  end
  else
  begin//HID卡
    if (ComboBox5.ItemIndex > 0) then
    begin
      //前缀码
      try
        if Length(Edit13.Text) = 0 then
        begin
          ShowMessage('请先输入前缀码，为十进制数值');
          Edit13.SetFocus;
          Exit;
        end;

        cardnumber := StrToInt64(Edit13.Text);

        if cardnumber < 0 then
        begin
          ShowMessage('前缀码不能为负数 ');
          Edit13.SelectAll;
          Edit13.SetFocus;
          Exit;
        end;


        if (ComboBox5.ItemIndex = 1) or (ComboBox5.ItemIndex = 2) then
        begin//输入10位十进制码 或 输入韦根34码
          myuidbuf[2] := cardnumber;
          cardnumber := cardnumber div 256;
          myuidbuf[1] := cardnumber;

        end
        else if ComboBox5.ItemIndex = 3 then
        begin//输入韦根26码

          myuidbuf[3] := cardnumber;
          cardnumber := cardnumber div 256;
          myuidbuf[2] := cardnumber;
          cardnumber := cardnumber div 256;
          myuidbuf[1] := cardnumber;

        end
        else if ComboBox5.ItemIndex = 4 then
        begin//输入4.3H6D码

          myuidbuf[4] := myuidbuf[4] + ((cardnumber mod 32) * 8);//只取高5个位
          cardnumber := cardnumber div 32;
          myuidbuf[3] := cardnumber;
          cardnumber := cardnumber div 256;
          myuidbuf[2] := cardnumber;
          cardnumber := cardnumber div 256;
          myuidbuf[1] := cardnumber;

        end
        else if ComboBox5.ItemIndex = 5 then
        begin//输入4H5D码

          myuidbuf[4] := cardnumber;
          cardnumber := cardnumber div 256;
          myuidbuf[3] := cardnumber;
          cardnumber := cardnumber div 256;
          myuidbuf[2] := cardnumber;
          cardnumber := cardnumber div 256;
          myuidbuf[1] := cardnumber;

        end;


      except
        ShowMessage('前缀码输入错误，必须为数字');
        Edit13.SelectAll;
        Edit13.SetFocus;
        Exit;
      end;
    end;
  end;



  myctrlword := $00; //NEEDSERIAL：需要只对指定系列号的卡操作,NEEDKEY：需要用密码认证,LOCKBIT：锁定块，KEYENABLE：启用本卡的密码功能

  if CheckBox2.Checked then
  begin//本次操作需要密码验证
    oldpicckey[0] :=  StrToInt('$' + midstr(Edit5.Text,1,2));
    oldpicckey[1] :=  StrToInt('$' + midstr(Edit5.Text,3,2));
    oldpicckey[2] :=  StrToInt('$' + midstr(Edit5.Text,5,2));
    oldpicckey[3] :=  StrToInt('$' + midstr(Edit5.Text,7,2));
    myctrlword := myctrlword + NEEDKEY;
  end;

  if CheckBox3.Checked then
  begin//仅操作指定卡号的卡

    if(Length(Edit8.Text) < 12) then
    begin
      ShowMessage('卡号长度不足');
      Edit8.SetFocus;
      Exit;
    end;
    myctrlword := myctrlword + NEEDSERIAL;
    //仅操作指定卡号的卡，6个字节卡号如下
    mypiccserial[0] :=  StrToInt('$' + midstr(Edit8.Text,1,2));
    mypiccserial[1] :=  StrToInt('$' + midstr(Edit8.Text,3,2));
    mypiccserial[2] :=  StrToInt('$' + midstr(Edit8.Text,5,2));
    mypiccserial[3] :=  StrToInt('$' + midstr(Edit8.Text,7,2));
    mypiccserial[4] :=  StrToInt('$' + midstr(Edit8.Text,9,2));
    mypiccserial[5] :=  StrToInt('$' + midstr(Edit8.Text,11,2));

  end;

  if CheckBox14.Checked then
  begin//修改卡号保护密码
    newpicckey[0] :=  StrToInt('$' + midstr(Edit14.Text,1,2));
    newpicckey[1] :=  StrToInt('$' + midstr(Edit14.Text,3,2));
    newpicckey[2] :=  StrToInt('$' + midstr(Edit14.Text,5,2));
    newpicckey[3] :=  StrToInt('$' + midstr(Edit14.Text,7,2));
    myctrlword := myctrlword + KEYENABLE;

  end
  else
  begin
    newpicckey[0] :=  $00;
    newpicckey[1] :=  $00;
    newpicckey[2] :=  $00;
    newpicckey[3] :=  $00;
  end;

  myctrlword := myctrlword + RESETCARD;//操作后重启卡片，否则在制卡后，需要拿开卡片重放才能成功读ID卡

  if RadioButton3.Checked then
  begin//ID卡
    status := t5557_to4100(myctrlword,@mypiccserial,@oldpicckey,@newpicckey,@myuidbuf);
  end
  else
  begin//HID卡
    status := t5557_tohid(myctrlword,@mypiccserial,@oldpicckey,@newpicckey,@myuidbuf);
  end;

  case status of
      0:
        begin
          strls := '卡号[';

          strls1 := '';
          for i := 0 to 5 do
          begin
            strls1 := strls1 + IntToHex(mypiccserial[i],2);
          end;

          strls := strls + strls1;

          strls := strls + ']';

          Memo2.Text := strls;

          ShowMessage('写卡成功');
        end;
      8: ShowMessage('卡不在感应区或密码不正确');
      2: ShowMessage('本卡尚未开启密码功能，函数myctrlword中无需加入NEEDKEY');
      3: ShowMessage('需要密码才能制卡，函数myctrlword要加入NEEDKEY');
      5: ShowMessage('密码错误！');
      23: ShowMessage('机器没连上，或驱动程序未安装!');
  else ShowMessage('错误代码：' + IntToStr(status));;

  end;

end;

五、T5557卡初始化

01、初始配置块取值：00 08 80 E8，表示AOR请求应答模式=0、PWD密码有效=0、MAXBLK自动发送最大块=7，无需密码可读卡，自动发送0页的1-7块；
02、配置块取值：00 08 82 F8，表示AOR应答模式=1、PWD密码有效=1，卡片为密码保护模式，需要认证密码才能读、写卡；
03、配置块取值：00 08 80 F8，表示AOR应答模式=0、PWD密码有效=1，读卡（自动发送）不需要密码，写卡要带密码操作。

procedure TForm1.Button6Click(Sender: TObject); //设定卡配置
var

status:byte;//存放返回值
myctrlword:byte;//控制字
oldpicckey:array[0..3] of byte;//密码
mypiccserial:array[0..5] of byte;//卡序列号
mypiccdata:array[0..3] of byte;//卡数据缓冲
newpicckey:array[0..3] of byte;//新密码

begin

myctrlword := $00; //NEEDSERIAL：需要只对指定系列号的卡操作,NEEDKEY：需要用密码认证,LOCKBIT：锁定块，KEYENABLE：启用本卡的密码功能

if CheckBox2.Checked then
begin//本次操作需要密码验证
oldpicckey[0] := StrToInt('$' + midstr(Edit5.Text,1,2));
oldpicckey[1] := StrToInt('$' + midstr(Edit5.Text,3,2));
oldpicckey[2] := StrToInt('$' + midstr(Edit5.Text,5,2));
oldpicckey[3] := StrToInt('$' + midstr(Edit5.Text,7,2));
myctrlword := myctrlword + NEEDKEY;

end
else
begin
newpicckey[0] := $00;
newpicckey[1] := $00;
newpicckey[2] := $00;
newpicckey[3] := $00;
end;

if CheckBox1.Checked then
begin//启用密码功能
newpicckey[0] := StrToInt('$' + midstr(Edit3.Text,1,2));
newpicckey[1] := StrToInt('$' + midstr(Edit3.Text,3,2));
newpicckey[2] := StrToInt('$' + midstr(Edit3.Text,5,2));
newpicckey[3] := StrToInt('$' + midstr(Edit3.Text,7,2));
myctrlword := myctrlword + KEYENABLE;

end
else
begin
newpicckey[0] := $00;
newpicckey[1] := $00;
newpicckey[2] := $00;
newpicckey[3] := $00;
end;

//配置值：
mypiccdata[0] := StrToInt('$' + midstr(Edit6.Text,1,2));

mypiccdata[1] := StrToInt('$' + midstr(Edit6.Text,3,2));

mypiccdata[2] := StrToInt('$' + midstr(Edit6.Text,5,2));

mypiccdata[3] := StrToInt('$' + midstr(Edit6.Text,7,2));

status := t5557_init(myctrlword,@mypiccserial,@oldpicckey,@mypiccdata,@newpicckey);

case status of
0: ShowMessage('操作成功');
8: ShowMessage('卡不在感应区或密码不正确');
1: ShowMessage('写入配置的值不正确，请重新写入');
2: ShowMessage('本卡尚未开启密码功能，函数myctrlword中无需加入NEEDKEY');
3: ShowMessage('需要密码才能重新设定，函数myctrlword要加入NEEDKEY');
5: ShowMessage('密码错误！');
23: ShowMessage('机器没连上，或驱动程序未安装!');
else ShowMessage('错误代码：' + IntToStr(status));;

end;