只要有标准的DES加密和解密算法，类似ANSI-X99MAC算法和PBOC3DES算法就很好实现。他们都是用DES算法再经过一层算法实现的。实现原理看图就能看明白。3DES算法实现就更简单了。就是DES算法再加解密一次。

/*
**************************************************************************************************************
*
* 函数原型：void CurCalc_3DES_Encrypt( U08 *inkey, U08 *indata, U08 *outdata )
*
* 函数功能：3DES加密
*
* 函数输入：inkey		16字节密码
*			indata		8字节需要加密的数据
*                
* 函数输出：outdata		8字节加密结果输出
*
* 函数返回：无
*   
**************************************************************************************************************
*/
void CurCalc_3DES_Encrypt( U08 *inkey, U08 *indata, U08 *outdata )
{
	U08 LKey[8];
	U08 RKey[8];
	U08 TmpDest[8];

	MyCopy( LKey, inkey,   8 );
	MyCopy( RKey, inkey+8, 8 );

	CurCalc_DES_Encrypt( LKey, indata,  outdata );			//加
	CurCalc_DES_Decrypt( RKey, outdata, TmpDest );			//解
	CurCalc_DES_Encrypt( LKey, TmpDest, outdata );			//加
}

/*
**************************************************************************************************************
*
* 函数原型：void CurCalc_3DES_Decrypt( U08 *inkey, U08 *indata, U08 *outdata )
*
* 函数功能：3DES解密
*
* 函数输入：inkey		8字节密码
*			indata		8字节需要解密的数据
*                
* 函数输出：outdata		8字节解密结果输出
*
* 函数返回：无
*   
**************************************************************************************************************
*/
void CurCalc_3DES_Decrypt( U08 *inkey, U08 *indata, U08 *outdata )
{
	U08 LKey[8];
	U08 RKey[8];
	U08 TmpDest[8];

	MyCopy( LKey, inkey,   8 );
	MyCopy( RKey, inkey+8, 8 );

	CurCalc_DES_Decrypt( LKey, indata,  outdata );			//解
	CurCalc_DES_Encrypt( RKey, outdata, TmpDest );			//加
	CurCalc_DES_Decrypt( LKey, TmpDest, outdata );			//解
}

/*******************************************************
* 名称:获取报文MAC值
* 功能:报文MAC算法
* 入口:
* *buf ,要计算的数据缓冲区;buf_size,计算数据的长度
* *key ,密钥(8B)
* 出口:mac_buf,计算出来的MAC值(8B)
ansi x9.9 MAC算法

********************************************************/
void Ansi99X_Get_MAC( U08 *buf, U32 buf_size, U08 *key, U08 *mac_buf )
{
    U08 val[8],xor[8];
    U08 block[512];
    U16 x,n;
    U16 i,j=0;
    //准备工作
	memcpy( block, buf, buf_size ); //将输入数据赋值给临时变量block
	x = buf_size / 8; //计算有多少个完整的块
	n = buf_size % 8; //计算最后一个块有几个字节
	if( n != 0 )	 //y非0,则在其后补上0x00...
	{
	    memset( &block[x*8+n], 0x00, 8-n );
	    x += 1; //将补上的这一块加上去
	}
	//开始运算
	memset( val, 0x00, 8 );
	for( i = 0; i < x; i++ )	 //有多少块循环多少次
	{
	    DataXOR(val,&block[j], 8,xor);
	    CurCalc_DES_Encrypt(key,xor,val);//DES加密
	    j += 8;	 //用于取下一块的数据
	}
	memcpy(mac_buf,val, 8 );
}

/*
*************************************************************************************************
*  异或		   
*************************************************************************************************
*/
void DataXOR( U08 *source, U08 *dest, U32 size, U08 *out )
{
   int i;
   for( i = 0; i < size; i++ )
   { out[i] = dest[i] ^ source[i]; }
}

/**************************************************
* PBOC-3DES MAC计算
**************************************************/
void PBOC_3DES_MAC( U08 *buf, U32 buf_size, U08 *key, U08 *mac_buf )
{
    U08 val[8],xor[8];
	U08 keyL[8],keyR[8];
    U08 block[512];
    U16 x,n;
    U16 i;
	memcpy(keyL,key,8);
    memcpy(keyR,&key[8],8);
    //准备工作
	memcpy( block, buf, buf_size ); //将输入数据赋值给临时变量block
	x = buf_size / 8; //计算有多少个完整的块
	n = buf_size % 8; //计算最后一个块有几个字节
	if( n != 0 )	 //y非0,则在其后补上0x00...
	{
	    memset( &block[x*8+n], 0x00, 8-n );
		block[x*8+n]=0x80;	
	}
	else
	{
		memset( &block[x*8], 0x00, 8 );//如果最后一块长度是8个字节，则最后加80 00。。
	    block[x*8]=0x80;
	}
	//开始运算
	memset( val, 0x00, 8 );//初始向量
	memcpy( val, UPPAN,8 );
	DataXOr(val,&block[0], 8,xor);
	for( i = 1; i < x+1; i++ )	 //有多少块循环多少次
	{ 
		CurCalc_DES_Encrypt(keyL,xor,val);//DES加密
		DataXOr(val,&block[i*8], 8,xor);
	    // j += 8;	 //用于取下一块的数据
	}
	CurCalc_DES_Encrypt(keyL,xor,val);
	CurCalc_DES_Decrypt(keyR,val,xor);
	CurCalc_DES_Encrypt(keyL,xor,val);
	memcpy(mac_buf,val, 8 );
}

MAC的计算：

3DES算法计算MAC

ANSI-X99MAC算法和PBOC的3DES MAC算法