在linux下编译 在32位以及64位系统需进行改变，主要是long型在32位gcc上为32bit 而在64位gcc 下为64bit 进行修改即可运行。一下为在64bit centos 下进行
python版本只是对c语言版本进行了简单封装实现。
/***********************************************************************************************/
/******************************/
/***2014年12月22日**************/
#include </usr/include/python2.7/Python.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <malloc.h>
/**
* 基本的8bytes数据块加密
* param unsigned long v[2] 8bytes data
* param const unsigned long k[4 16bytes key
* return unsigned long v[2] 8bytes data
* unsigned long rounds 加密轮数可选16或32
*/
void inner_encrypt(unsigned int v[2],const unsigned int k[4],unsigned int rounds){
register unsigned int
y=v[0],z=v[1],sum=0,delta=0x9E3779B9,
a=k[0],b=k[1],c=k[2],d=k[3];
while(rounds-->0){
sum+=delta;
y+=((z<<4)+a)^(z+sum)^((z>>5)+b);
z+=((y<<4)+c)^(y+sum)^((y>>5)+d);
}
v[0]=y;
v[1]=z;
}
/**
* 基本的8bytes数据块解密
* param unsigned long v[2] 8bytes data
* param const unsigned long k[4 16bytes key
* return unsigned long v[2] 8bytes data
* unsigned long rounds 加密轮数可选16或32
*/
void inner_decrypt(unsigned int v[2],const unsigned int k[4],unsigned int rounds){
register unsigned int
y=v[0],z=v[1],delta=0x9E3779B9,
a=k[0],b=k[1],c=k[2],d=k[3],sum;
if(rounds==32)
sum=0xc6ef3720;
else if(rounds==16)
sum=0xe3779b90;
else return;
while(rounds-->0){
z-=((y<<4)+c)^(y+sum)^((y>>5)+d);
y-=((z<<4)+a)^(z+sum)^((z>>5)+b);
sum-=delta;
}
v[0]=y;
v[1]=z;
}
/**add the flag to encrypted content
* char* unflag: the encrypted content without flag
* int len:the len of the encrypted content
*/
char *flag(char *unflag,int len)
{
char flag[9]="}}}}}}}}";
char *flag_out=(char*)malloc(len+8);
memcpy(flag_out,flag,8);
memcpy(flag_out+8,unflag,len);
free(unflag);
return flag_out;
}
/**remove the flagwords from the content
* char* flag content contains flag
* int len: length of the content
*/
char *unflag(const char *flag,int len)
{
char *unflag=(char*)malloc(len-8);
memcpy(unflag,flag+8,len-9);
free((void*)flag);
return unflag;
}
/**transform byte to hexString
* encrypted content
* length of the content the value is the length of the encrypted
*/
char* byte2hex(char* encrypt,int len){
int i=0;
int j;
char* out=(char*)malloc((2*len+1)*sizeof(char));
for(j=0;i<len;i++,j+=2)
{
char tempchar1='0'+((encrypt[i]&0xf0) >> 4);
char tempchar2='0'+((encrypt[i]&0x0f));
if(tempchar1 > '9')
switch(tempchar1-'9'){
case 1: tempchar1='A'; break;
case 2: tempchar1='B'; break;
case 3: tempchar1='C'; break;
case 4: tempchar1='D'; break;
case 5: tempchar1='E'; break;
case 6: tempchar1='F'; break;
}
if(tempchar2 > '9')
switch(tempchar2-'9'){
case 1: tempchar2='A'; break;
case 2: tempchar2='B'; break;
case 3: tempchar2='C'; break;
case 4: tempchar2='D'; break;
case 5: tempchar2='E'; break;
case 6: tempchar2='F'; break;
}
out[j]=tempchar1;
out[j+1]=tempchar2;
}
out[2*len]='\0';
free(encrypt);
return out;
}
/**recover hex to byte(char*)
*hex: hexString
*out:to stores the result
*/
void hex2byte(char* hex, char out[]){
int i=0;
int j=0;
int temps=0;
int temps1=0;
for(;i<strlen(hex)/2;i++,j+=2){
if(hex[j]<'0'||hex[j]>'9'){
switch (hex[j]){
case 'A': temps=10;break;
case 'B': temps=11;break;
case 'C': temps=12;break;
case 'D': temps=13;break;
case 'E': temps=14;break;
case 'F': temps=15;break;
}
}
else temps=hex[j]-'0';
if(hex[j+1]<'0'||hex[j+1]>'9'){
switch(hex[j+1]){
case 'A': temps1=10;break;
case 'B': temps1=11;break;
case 'C': temps1=12;break;
case 'D': temps1=13;break;
case 'E': temps1=14;break;
case 'F': temps1=15;break;
}
}
else temps1=hex[j+1]-'0';
out[i]=(char)((temps&0x0000000f)<<4)|(temps1&0x0000000f);
}
}
/**密钥设定函数 选取16位byte型作为前8byte加密密钥 从原始字符串中第n位开始取8byte 若不满8byte 补零 之后8byte补位 为127-n-i
* @param key 原始输入的密钥字符串
* @return 返回加解密密钥
*/
void validateKey(const char* key,unsigned int k[4]){
int n=6;
char tempkey[17];
if (strlen(key)-n+1<8){
int i,j;
for(i=n-1,j=0;i<strlen(key);i++,j++)
{
tempkey[j] = key [i];
}
for(;j<8;j++)
tempkey[j]=0;
for(;j<16;j++)
tempkey[j]=127-n-j;
k[0]=((tempkey[0]&0x000000FF)<<24)|
((tempkey[1]&0x000000FF)<<16)|
((tempkey[2]&0x000000FF)<<8)|
( tempkey[3]&0x000000FF);
k[1]=((tempkey[4]&0x000000FF)<<24)|
((tempkey[5]&0x000000FF)<<16)|
((tempkey[6]&0x000000FF)<<8)|
( tempkey[7]&0x000000FF);
k[2]=((tempkey[8]&0x000000FF)<<24)|
((tempkey[9]&0x000000FF)<<16)|
((tempkey[10]&0x000000FF)<<8)|
( tempkey[11]&0x000000FF);
k[3]=((tempkey[12]&0x000000FF)<<24)|
((tempkey[13]&0x000000FF)<<16)|
((tempkey[14]&0x000000FF)<<8)|
( tempkey[15]&0x000000FF);
}
else {
int i,j;
for(i=n-1,j=0;i<n+8;i++,j++)
tempkey[j]= key[i];
for(j=8;j<16;j++)
tempkey[j]= 127-n-j;
k[0]=((tempkey[0]&0x000000FF)<<24)|
((tempkey[1]&0x000000FF)<<16)|
((tempkey[2]&0x000000FF)<<8)|
( tempkey[3]&0x000000FF);
k[1]=((tempkey[4]&0x000000FF)<<24)|
((tempkey[5]&0x000000FF)<<16)|
((tempkey[6]&0x000000FF)<<8)|
( tempkey[7]&0x000000FF);
k[2]=((tempkey[8]&0x000000FF)<<24)|
((tempkey[9]&0x000000FF)<<16)|
((tempkey[10]&0x000000FF)<<8)|
( tempkey[11]&0x000000FF);
k[3]=((tempkey[12]&0x000000FF)<<24)|
((tempkey[13]&0x000000FF)<<16)|
((tempkey[14]&0x000000FF)<<8)|
( tempkey[15]&0x000000FF);
}
}
/**
* 校验密钥,如果不足16字节则末尾填充字节0补足16字节,如果大于16字节则丢弃末尾多余的字节
* param const char*
* return int k[4] 长度为4的四字节类型数组
*/
/*void validateKey(const char* key,unsigned long k[4]){
char tmp[16];
int i=0;
int klen=strlen(key);
if(klen<16){
for(;i<klen;i++){
tmp[i]=key[i];
}
for(;i<16;i++){
tmp[i]='\0';
}
}
else{
for(;i<16;i++){
tmp[i]=key[i];
}
}
k[0]=((tmp[0]&0x000000FF)<<24)|
((tmp[1]&0x000000FF)<<16)|
((tmp[2]&0x000000FF)<<8)|
( tmp[3]&0x000000FF);
k[1]=((tmp[4]&0x000000FF)<<24)|
((tmp[5]&0x000000FF)<<16)|
((tmp[6]&0x000000FF)<<8)|
( tmp[7]&0x000000FF);
k[2]=((tmp[8]&0x000000FF)<<24)|
((tmp[9]&0x000000FF)<<16)|
((tmp[10]&0x000000FF)<<8)|
( tmp[11]&0x000000FF);
k[3]=((tmp[12]&0x000000FF)<<24)|
((tmp[13]&0x000000FF)<<16)|
((tmp[14]&0x000000FF)<<8)|
( tmp[15]&0x000000FF);
}*/
/**
* 任意字节块的加密
* param const char* content 任意长度
* param const char* key 密钥
* return char* out 加密后内容字节长度必为8的整数倍
* unsigned long rounds 加密轮数可选16或32
*/
char* t_encrypt(const char* content,const char* key,unsigned int rounds){
int clen=strlen(content);
//printf("en_clen=%d\n",clen);
int csize;
if(clen%8!=0)
csize=clen+8-clen%8;
else
csize=clen;
//printf("csize:%d\n",csize);
char* out=(char*)malloc(csize+1);
int klen=strlen(key);
int mol=clen%8;
int size=clen;
int times=0;
int i=0,ii=0;
unsigned int v[2];
unsigned int k[4];
if(clen==0||klen==0){//若出现返回为空的状况可能造成内存泄漏
free(out);
return NULL;
}
if(mol!=0){
size=size+8-mol;
}
validateKey(key,k);
times=size-8;
//int line=0;
for(;i<times;i+=8){
//ii=i;
v[0]=((content[i]&0x000000FF)<<24)|((content[i+1]&0x000000FF)<<16)|((content[i+2]&0x000000FF)<<8)|(content[i+3]&0x000000FF);
v[1]=((content[i+4]&0x000000FF)<<24)|((content[i+5]&0x000000FF)<<16)|((content[i+6]&0x000000FF)<<8)|(content[i+7]&0x000000FF);
inner_encrypt(v,k,rounds);
//ii=i;
out[i] =(char)(v[0]>>24);
out[i+1]=(char)(v[0]>>16);
out[i+2]=(char)(v[0]>>8);
out[i+3]=(char)(v[0]);
out[i+4]=(char)(v[1]>>24);
out[i+5]=(char)(v[1]>>16);
out[i+6]=(char)(v[1]>>8);
out[i+7]=(char)(v[1]);
}
ii=i;
if(mol!=0){
for(;i<clen;i++){
out[i]=content[i];
}
for(;i<size;i++){
out[i]='\0';
}
i=ii;
v[0]=((out[i]&0x000000FF)<<24)|((out[i+1]&0x000000FF)<<16)|((out[i+2]&0x000000FF)<<8)|( out[i+3]&0x000000FF);
v[1]=((out[i+4]&0x000000FF)<<24)|((out[i+5]&0x000000FF)<<16)|((out[i+6]&0x000000FF)<<8)|(out[i+7]&0x000000FF);
inner_encrypt(v,k,rounds);
//ii=i;
out[i] =(char)(v[0]>>24);
out[i+1]=(char)(v[0]>>16);
out[i+2]=(char)(v[0]>>8);
out[i+3]=(char)(v[0]);
out[i+4]=(char)(v[1]>>24);
out[i+5]=(char)(v[1]>>16);
out[i+6]=(char)(v[1]>>8);
out[i+7]=(char)(v[1]);
}
else{
v[0]=((content[i]&0x000000FF)<<24)|((content[i+1]&0x000000FF)<<16)|((content[i+2]&0x000000FF)<<8)|(content[i+3]&0x000000FF);
v[1]=((content[i+4]&0x000000FF)<<24)|((content[i+5]&0x000000FF)<<16)|((content[i+6]&0x000000FF)<<8)|(content[i+7]&0x000000FF);
inner_encrypt(v,k,rounds);
//ii=i;
out[i] =(char)(v[0]>>24);
out[i+1]=(char)(v[0]>>16);
out[i+2]=(char)(v[0]>>8);
out[i+3]=(char)(v[0]);
out[i+4]=(char)(v[1]>>24);
out[i+5]=(char)(v[1]>>16);
out[i+6]=(char)(v[1]>>8);
out[i+7]=(char)(v[1]);
}
out[csize]='\0';
return flag(out,csize+1);
}
/**
* 任意字节块的解密
* param const char* content 任意长度
* param const char* key 密钥
* return char* out 解密后内容字节
* unsigned long rounds 加密轮数可选16或32
*/
char* t_decrypt(const char* encrypt,const char* key,int clen,unsigned int rounds){
char flag[9]="}}}}}}}}";
if(!strncmp(flag,encrypt,8)){
//int clen= malloc_usable_size((void*)encrypt)-3;
//printf("clen:%d\n",clen);
char *content=unflag(encrypt,clen);
int csize=clen-8;
//printf("csize:%d\n",csize);
char* out=(char*)malloc(csize);
int klen=strlen(key);
int i=0;
//ii=0;
unsigned int v[2];
unsigned int k[4];
if(clen==0||klen==0){
free(out);//返回为空可能造成内存泄漏
free(content);
return NULL;
}
validateKey(key,k);
for(;i<csize-1;i+=8){
//ii=i;
v[0]=((content[i]&0x000000FF)<<24)|((content[i+1]&0x000000FF)<<16)|((content[i+2]&0x000000FF)<<8)|(content[i+3]&0x000000FF);
v[1]=((content[i+4]&0x000000FF)<<24)|((content[i+5]&0x000000FF)<<16)|((content[i+6]&0x000000FF)<<8)|(content[i+7]&0x000000FF);
inner_decrypt(v,k,rounds);
//ii=i;
out[i] =(char)(v[0]>>24);
out[i+1]=(char)(v[0]>>16);
out[i+2]=(char)(v[0]>>8);
out[i+3]=(char)(v[0]);
out[i+4]=(char)(v[1]>>24);
out[i+5]=(char)(v[1]>>16);
out[i+6]=(char)(v[1]>>8);
out[i+7]=(char)(v[1]);
}
out[csize-1]='\0';
free(content);
return out;
}
else {
return NULL;
}
}
char* tea_encry(const char* content,const char* key,unsigned int rounds){
int len=strlen(content);
int clen=0;
if(strlen(content)%8==0)
clen=len+8;
else
clen = len-len%8+16;
char* en = t_encrypt(content,key,rounds);
if(en!=NULL)
return byte2hex(en,clen);
else
return NULL;
}
char* tea_decry( char* encrypt,const char* key,unsigned int rounds){
char* out=(char*)malloc((strlen(encrypt)/2+1)*sizeof(char));
hex2byte(encrypt,out);
const char* out1=out;
return t_decrypt(out1,key,strlen(encrypt)/2+1,rounds);
}
PyObject* wrap_encrypt(PyObject* self, PyObject* args)
{
const char *content,*key;
unsigned int rounds;
char * encrypted;
if (! PyArg_ParseTuple(args, "ssi",&content,&key,&rounds))
return NULL;
encrypted = tea_encry(content,key,rounds);
return Py_BuildValue("s",encrypted);
}
PyObject* wrap_decrypt(PyObject* self, PyObject* args)
{
char *encrypt;
const char*key;
unsigned int rounds;
char *content;
if (! PyArg_ParseTuple(args, "ssi",&encrypt,&key,&rounds))
return NULL;
content = tea_decry(encrypt,key,rounds);
return Py_BuildValue("s", content);
}
static PyMethodDef teapyMethods[] =
{
{"teapy_decrypt", wrap_decrypt, METH_VARARGS, "Decrypt with tea!"},{"teapy_encrypt", wrap_encrypt, METH_VARARGS, "Encrypt with tea!"},
{NULL, NULL}
};
void initteapy()
{
PyObject* m;
m = Py_InitModule("teapy", teapyMethods);
}
/*
int main(){
const char* key="chdevicecloud";
const char* str1 = "{ \"system\": \"13700000000\", \"token\": \"sjk12ks1kl\", \"pkgName\": \"com.ipp.xx.xx\", \"devType\": \"0\", \"familyId\": 12 }, \"device\": { \"id\": 123 } } }";
printf("发送报文:%s\n", str1);
char* str_encry = tea_encry(str1, key, 16);
printf("发送报文加密:%s\n", str_encry);
char* str_decy = tea_decry(str_encry, key, 16);
printf("发送报文解密:%s\n",str_decy );
const char* str2 = "{ \"system\": { \"ipp\": \"2.0\", \"ver\": \"1.0\", \"lang\": \"en\", \"key\": \"1k8VKDqpOMndSxtDhrExYtTAsV\" }, \"request\": { \"user\": { \"userName\": \"13700000000\", \"token\": \"sjk12ks1kl\", \"pkgName\": \"com.ipp.xx.xx\", \"devType\": \"0\", \"familyId\": 1101 }, \"room\": { \"name\": \"卧室\" } } }";
printf("发送报文:%s\n", str2);
char* str_encry1 = tea_encry(str2, key, 16);
printf("发送报文加密:%s\n", str_encry1);
char * str_de = tea_decry(str_encry1, key, 16);
printf("发送报文解密:%s\n",str_de);
free(str_encry);
free(str_decy);
free(str_encry1);
free(str_de);
return 0;
}
*/
