明华sle4442卡操作

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  icdev:=Open_Device(0,9600);  //打开设备
  showmessage(inttostr(icdev));
end;procedure TForm1.Button8Click(Sender: TObject);
var
  st:integer;
begin
  st:=rsc_4442(icdev,3,password);      //读密码
  if st<>0 then
  begin
    showmessage('rsc error');
    exit;
  end
else
  showmessage(password);
end;
初次做这种程序，读卡密码时总是失败，望有经验的朋友指点一下，谢谢

Answer 1

晕了, 如果这么轻易的都被你读出密码了, 那还叫逻辑加密卡吗, 读取密码之前必须调用指令先验证密码, 然后才能读出密码, 一般新的卡片的默认密码是ff ff ff

Answer 2

楼主应该先看看arm反汇编的东西，然后再来研究这些……

Answer 3

为什么我的密码任意写一个，然后调用csc_4442函数，都会成功呢？接下来写的时候就会报错了，一直写不成功。