qqsle4442.txt

IC卡智能卡

#include <intrins.h>
#include <reg52.h>

typedef unsigned char uchar;
typedef unsigned int  uint;

#define RMM_COMM 0x30    //读主存命令字
#define UMM_COMM 0x38    //写主存命令字
#define CVD_COMM 0x33    //校验密码
#define RSM_COMM 0x31    //读密码存储区
#define USM_COMM 0x39    //写密码存储区
#define RPM_COMM 0x34    //读保护存储区
#define WPM_COMM 0x3c    //写保护存储区

#define Pow_On  0        //低电平供电
#define Pow_Off 1        //高电平断电

//******************************************
//定义IC卡接口
sbit CLK=P1^1;           //时钟
sbit OUTDATA=P1^2;       //输出(CPU侧)
sbit INDATA=P1^2;        //输入(CPU侧)
sbit POWER=P1^4;         //电源
sbit RST=P1^0;           //复位
//******************************************


//************************************************************************
//4442卡底层程序的外部函数声明
extern void Rmm(uchar CardAdd,uchar idata *pt,uchar i);  //读IC卡主存
extern void Umm(uchar CardAdd,uchar idata *pt);          //写IC卡主存,每次写一
字节
extern void Rpm(uchar idata *pt);                        //读保护存储器
extern void P_Byte(uchar CardAdd,uchar idata *pt);       //保护一字节,注意待保
护的字节是已经写入过的,地址只能在保护存储区内
extern void Power_On(uchar idata *pt);                   //卡上电,延时约80us,卡
复位,同时读入4个标示字节
extern void Power_Off(void);                             //卡下电,延时约80us
extern bit Verify(uchar idata *pt);                      //校验密码,成功返回1
//******************************************************************



//************************************************************
//功能演示,在实际用的时候把这段注释掉
void main(void)
{
        uchar idata *pt;
    uchar cc;
    bit temp_flag;
        uchar test[12]={1,2,3,4,5,6,7,8,9};
        uchar test1[12];
        pt=&test1[0];

        Power_Off();
        Power_On(pt);    //上电同时读入标示字节

        *pt=0xff;        //第一个密码
        pt++;
        *pt=0xff;        //第二个密码
        pt++;
        *pt=0xff;        //第三个密码
        pt=&test1[0];
        temp_flag=Verify(pt);  //校验密码
        pt=&test1[0];
        Rpm(pt);         //读入保密区字节
        pt=&test[0];
        for (cc=0;cc<10;cc++,pt++)
        Umm(0x40+cc,pt);
        pt=&test1[0];
        Umm(0x40+cc,pt);

        Rmm(0x40,pt,12);
        *pt=0xaa;
        Umm(0x04,pt);
        P_Byte(0x05,pt);

    while (1);
}
//**********************************************

















//******************************************
//延时10微秒（包括调用和返回的时间）,base=12M
//入口：没有入口
//出口：无
static void Delay10us(void)
{
    _nop_();
    _nop_();
    _nop_();
    _nop_();
    _nop_();
    _nop_();
}
//******************************************


//******************************************
//输出一个字节
//入口：一个uchar形变量
//出口：无
static void OutByte(uchar ch)
{
     uchar i;
     for (i=8;i>0;i--)
     {
          OUTDATA=(bit)(ch&0x01);   //强制取为位变量，输出
          _nop_();_nop_();_nop_();_nop_();_nop_();
          CLK=1;
          Delay10us();
          CLK=0;
      ch=ch>>1;                 //右移一位
     }
}
//******************************************


//******************************************
//输入一个字节
//入口：没有入口
//出口：一个uchar形变量
static uchar InByte(void)
{
    uchar i,a;
    a=0;
    INDATA=1;           //置为输出状态
    for (i=8;i>0;i--)
    {
        a=a>>1;
    if((uchar)INDATA)
    a|=0x80;
        CLK=1;
        Delay10us();
        CLK=0;
        Delay10us();
    }
    return(a);
}
//*****************************************


//*****************************************
//结束命令模式
//入口：没有入口
//出口：无
static void Stop_Comm(void)
{
    OUTDATA=0;
    Delay10us();
    CLK=1;
    Delay10us();
    OUTDATA=1;
    Delay10us();
}
//*****************************************


//*****************************************
//开始命令模式
//入口：没有入口
//出口：无
static void Start_Comm(void)
{
    OUTDATA=1;
    _nop_();_nop_();_nop_();_nop_();_nop_();_nop_();     //延时6us
    CLK=1;
    _nop_();_nop_();_nop_();_nop_();_nop_();_nop_();
    OUTDATA=0;
    _nop_();_nop_();_nop_();_nop_();_nop_();_nop_();
    CLK=0;
    _nop_();_nop_();_nop_();
}
//******************************************


//******************************************
//处理模式,开始处理模式后，卡片将输入口拉低，然后等待输入口变成高电平，
//如果等待超过10ms(BASE=12M)，程序退出
//入口：没有入口
//出口：无
static void Proce_Mod(void)
{
    uint i;
    CLK=0;
    Delay10us();
    OUTDATA=1;
    INDATA=0;
    for (i=620;i>0;i--)
    {
        CLK=1;
    Delay10us();
    CLK=0;
    Delay10us();
    if(INDATA)     //输入为高就跳出
    break;
    }
}
//******************************************

//******************************************
//发送命令
//入口：a＝命令字,b＝地址,c数据
//出口：无
static void SendComm(uchar a,uchar b,uchar c)
{
    Start_Comm();     //开始发送命令
    OutByte(a);          //发命令字
    OutByte(b);          //发地址
    OutByte(c);          //发数据
    Stop_Comm();      //结束发送命令
}

//******************************************

//******************************************
//卡复位,用于结束读模式
//入口:无
//出口:无
static void RstCard(void)
{
    uchar temp;
    RST=1;
    Delay10us();
    CLK=1;
    Delay10us();
    Delay10us();
    CLK=0;
    Delay10us();
    RST=0;
    Delay10us();                //发出复位时序
    temp=InByte();
    temp=InByte();
    temp=InByte();
    temp=InByte();              //空读4次
}
//******************************************


//******************************************
//连续输入i(=<255)个字节,存放到以pt开头的内部单元中,
//必须在某一读数据命令模式之后使用
//入口：pt＝起始地址,i＝数据个数
//出口:无
static void Read_Mod(uchar idata *pt,uchar i)
{
    CLK=0;
    Delay10us();
    do
    {
    *pt=InByte();    //读入一个字节
        pt++;            //指针加一
    }
    while(--i);          //计数器减一,判断
}
//******************************************



//******************************************
//写IC卡主存,每次写一字节
//入口:IC卡地址,指向数据区的指针
//出口:无
extern void Umm(uchar CardAdd,uchar idata *pt)
{
    SendComm(UMM_COMM,CardAdd,*pt);     //写主存的命令字,地址,数据
    Proce_Mod();
}
//******************************************



//******************************************
//读ic卡主存
//入口:卡地址,指向内部RAM的指针,数量
//出口:无
extern void Rmm(uchar cardAdd,uchar idata *pt,uchar i)
{
    SendComm(RMM_COMM,cardAdd,0);
    Read_Mod(pt,i);
        RstCard();
}
//******************************************



//******************************************
//读保护存储器
//入口:指向直接寻址数据区的指针
//出口:无
extern void Rpm(uchar idata *pt)
{
    SendComm(RPM_COMM,1,1);       //读保护存储器的命令字,后两个参数忽略
        Read_Mod(pt,4);               //读出
}
//******************************************


//******************************************
//保护一字节,注意待保护的字节是已经写入过的,地址只能在保护存储区内
//入口:IC卡地址,指向直接寻址数据区的指针
//出口:无
extern void P_Byte(uchar CardAdd,uchar idata *pt)
{
    SendComm(WPM_COMM,CardAdd,*pt); //写主存的命令字,地址,数据
    Proce_Mod();
}
//******************************************



//******************************************
//卡上电,延时约80us,卡复位,同时读入4个标示字节
//入口:入口:指向存放标示的内部直接寻址RAM地址
//出口:无
extern void Power_On(uchar idata *pt)
{
    uchar i=40;
    POWER=Pow_On;
    INDATA=1;
    OUTDATA=1;
    while(--i)
    ;           //延时80us
    RST=1;
    Delay10us();
    CLK=1;
    Delay10us();
    Delay10us();
    CLK=0;
    Delay10us();
    RST=0;
    Delay10us();         //复位
    i=4;
    do
    {
     *pt=InByte();
    pt++;
    }
    while(--i);     //读入4个标记字节
}
//******************************************


//******************************************
//卡下电,延时约80us
//入口:无
//出口:无
extern void Power_Off(void)
{
    POWER=Pow_Off;
    CLK=0;
    OUTDATA=0;
    INDATA=1;
    RST=0;
}
//******************************************



//******************************************
//校验密码
//入口:指向存放密码的内部直接寻址RAM地址
//出口:成功返回1,失败返回0,卡片已锁也返回0
extern bit Verify(uchar idata *pt)
{
     uchar idata temp[4];                    //暂存4字节的保密区内容
     uchar *tpt;
     uchar i;
     tpt=&temp[0];
     SendComm(RSM_COMM,1,1);                //读保密存储区的命令字,第
2,3个参数在此命令中被忽略
     Read_Mod(tpt,4);                       //读出
     if((temp[0]&0x07)!=0)                  //第一字节是重试计数器,如
果重试计数器为0,直接退出
     {
    if((temp[0]&0x07)==0x07)
           i=0x06;
        else if((temp[0]&0x07)==0x06)
              i=0x04;
          else if((temp[0]&0x07)==0x04)
                   i=0x00;                //将其中一位为1的改为0
        SendComm(USM_COMM,0,i);            //重写计数器
        Proce_Mod();                            //处理
    for (i=1;i<4;i++,pt++)             //校对3字节的密码
    {
             SendComm(CVD_COMM,i,*pt);         //发出校对命令
             Proce_Mod();                      //处理
        }
        SendComm(USM_COMM,0,0xff);              //擦除计数器
        Proce_Mod();                            //处理
        SendComm(RSM_COMM,1,1);                 //读保密存储区的命令字,第2,3
个参数在此命令中被忽略
        tpt=&temp;                              //写到数组
    Read_Mod(tpt,4);                        //读出计数器的内容
        if((temp[0]&0x07)==0x07)                //如果没有被成功擦除,表明校对
失败
             return(1);
     }
     return(0);
}
//******************************************








 

 
点击这里回复这篇贴子>>
_____________________________________________________________________________
Copyright?，C51BBS论坛 2000-2002