邮件格式编码与解码

int EncodeQuoted(const unsigned char* pSrc, char* pDst, int nSrcLen, int nMaxLineLen)

{

int nDstLen; // 输出的字符计数

int nLineLen; // 输出的行长度计数

nDstLen = 0;

nLineLen = 0;

for (int i = 0; i < nSrcLen; i++, pSrc++)

{

// ASCII 33-60, 62-126原样输出，其余的需编码

if ((*pSrc >= '!') && (*pSrc <= '~') && (*pSrc != '='))

{

*pDst++ = (char)*pSrc;

nDstLen++;

nLineLen++;

}

else

{

sprintf(pDst, "=%02X", *pSrc);

pDst += 3;

nDstLen += 3;

nLineLen += 3;

}

// 输出换行？

if (nLineLen >= nMaxLineLen - 3)

{

sprintf(pDst, "=\r\n");

pDst += 3;

nDstLen += 3;

nLineLen = 0;

}

}

// 输出加个结束符

*pDst = '\0';

return nDstLen;

}

Quoted-Printable解码很简单，将编码过程反过来就行了。

int DecodeQuoted(const char* pSrc, unsigned char* pDst, int nSrcLen)

{

int nDstLen; // 输出的字符计数

int i;

i = 0;

nDstLen = 0;

while (i < nSrcLen)

{

if (strncmp(pSrc, "=\r\n", 3) == 0) // 软回车，跳过

{

pSrc += 3;

i += 3;

}

else

{

if (*pSrc == '=') // 是编码字节

{

sscanf(pSrc, "=%02X", pDst);

pDst++;

pSrc += 3;

i += 3;

}

else // 非编码字节

{

*pDst++ = (unsigned char)*pSrc++;

i++;

}

nDstLen++;

}

}

// 输出加个结束符

*pDst = '\0';

return nDstLen;

}

//---------------------------------------------------------------------------

//用HZ进行编码

void __fastcall EncodeHZ(void)

{

unsigned int x=0,i=0;

unsigned char hz;

while((hz=*FInputText++)!='\0')

{

if(hz>=161)

{

if(!x)

{

*(FOutputText+i)='~';

i++;

*(FOutputText+i)='{';

i++;

x=1;

}

else x=1;

*(FOutputText+i)=(char)(hz-128);

i++;

}

else

{

if(x)

{

*(FOutputText+i)='~';

i++;

*(FOutputText+i)='}';

i++;

x=0;

}

else x=0;

*(FOutputText+i)=hz;

i++;

}

}

if(x)

{

*(FOutputText+i)='~';

i++;

*(FOutputText+i)='}';

i++;

x=0;

}

*(FOutputText+i)='\0';

FOutput=(AnsiString)FOutputText;

}

//---------------------------------------------------------------------------

//对HZ进行解码

void __fastcall DecodeHZ(void)

{

unsigned i=0;

unsigned char hz;

while((hz=*FInputText++)!='\0')

{

loop2:

if(hz==126)

if((hz=*FInputText++)!='\0')

if(hz==123)

while((hz=*FInputText++)!='\0')

{

loop3:

if(hz==126)

{

if((hz=*FInputText++)!='\0')

if(hz==125) goto loop;

else {*(FOutputText+i)=(char)254;i++;goto loop3;}

}

else {*(FOutputText+i)=(char)(hz+128);i++;}

}

else {*(FOutputText+i)='~';i++;goto loop2;}

else {*(FOutputText+i)='~';i++;goto end;}

else {*(FOutputText+i)=hz;i++;}

loop:;

}

end:;

*(FOutputText+i)='\0';

FOutput=(AnsiString)FOutputText;

}

//---------------------------------------------------------------------------

//用QP进行编码

void __fastcall EncodeQP(void)

{

unsigned char first,second,sour;

unsigned int i=0;

while((sour=*FInputText++)!='\0')

{

if(sour==61)

{

*(FOutputText+i)='=';

i++;

*(FOutputText+i)='3';

i++;

*(FOutputText+i)='D';

i++;

}

else

{

if(sour>127)

{

first=sour>>4;

second=sour&15;

if(first>9) first+=55;

else first+=48;

if(second>9) second+=55;

else second+=48;

*(FOutputText+i)='=';

i++;

*(FOutputText+i)=first;

i++;

*(FOutputText+i)=second;

i++;

}

else {*(FOutputText+i)=sour;i++;}

}

}

*(FOutputText+i)='\0';

FOutput=(AnsiString)FOutputText;

}

//---------------------------------------------------------------------------

//对QP进行解码

void __fastcall DecodeQP(void)

{

unsigned char first,second,sour;

unsigned int i=0;

while((sour=*FInputText++)!='\0')

{

if(sour==61)

{

if((first=*FInputText++)=='\0') {*(FOutputText+i)=sour;i++;break;}

else if((first<48)||((first>57)&&(first<65))||(first>70))

{

*(FOutputText+i)=sour;

i++;

*(FOutputText+i)=first;

i++;

continue;

}

else if((second=*FInputText++)=='\0')

{

*(FOutputText+i)=sour;

i++;

*(FOutputText+i)=first;

i++;

break;

}

else if((second<48)||((second>57)&&(second<65))||(second>70))

{

*(FOutputText+i)=sour;

i++;

*(FOutputText+i)=first;

i++;

*(FOutputText+i)=second;

i++;

continue;

}

if(first>=65) first-=55;

else first-=48;

if(second>=65) second-=55;

else second-=48;

sour=NULL;

sour=first<<4;

sour|=second;

}

*(FOutputText+i)=sour;

i++;

}

*(FOutputText+i)='\0';

FOutput=(AnsiString)FOutputText;

}

//---------------------------------------------------------------------------

//用Base64进行编码

void __fastcall EncodeBase64(void)

{

unsigned char *sour,*obje,*inputtext;

unsigned int i,j=0,m=57,n=57;

inputtext=FInputText;

sour=new char[57];

obje=new char[76];

while(m==57)

{

m=strlen(inputtext);

if(m<57)

{

if(m==0) break;

n=m;

strncpy(sour,inputtext,m);

if(n%3) n=n-n%3+3;

for(i=m;i<n;i++)

*(sour+i)=NULL;

}

else

{

m=57;

strncpy(sour,inputtext,m);

}

inputtext+=m;

for(i=0;i<n/3;i++)

Base64(sour+i*3,obje+i*4);

strncpy(FOutputText+j,obje,n/3+m); //n/3*4-(n-m)

j+=n/3+m;

for(i=0;i<(n-m);i++,j++)

*(FOutputText+j)='=';

*(FOutputText+j++)='\n';

}

*(FOutputText+j)='\0';

FOutput=(AnsiString)FOutputText;

delete []sour;

delete []obje;

}

//---------------------------------------------------------------------------

void __fastcall Base64(unsigned char chasc[3],unsigned char chuue[4])

/*

chasc：未编码的二进制代码

chuue：编码过的Base64代码

*/

{

unsigned int i,k=2;

unsigned char t=NULL;

for(i=0;i<3;i++)

{

*(chuue+i)=*(chasc+i)>>k;

*(chuue+i)|=t;

t=*(chasc+i)<<(8-k);

t>>=2;

k+=2;

}

*(chuue+3)=*(chasc+2)&63;

for(i=0;i<4;i++)

if((*(chuue+i)>=0)&&(*(chuue+i)<=25)) *(chuue+i)+=65;

else if((*(chuue+i)>=26)&&(*(chuue+i)<=51)) *(chuue+i)+=71;

else if((*(chuue+i)>=52)&&(*(chuue+i)<=61)) *(chuue+i)-=4;

else if(*(chuue+i)==62) *(chuue+i)=43;

else if(*(chuue+i)==63) *(chuue+i)=47;

}

//---------------------------------------------------------------------------

//对Base64解码

void __fastcall DecodeBase64(void)

{

unsigned char *sour,*obje,*inputtext;

unsigned int i,j=0,m=57,n=76;

sour=new char[76];

obje=new char[57];

inputtext=FInputText;

while(m==57)

{

while(*inputtext=='\r'||*inputtext=='\n')

inputtext++;

m=strlen(inputtext);

if(m<76)

{

if(m==0) break;

n=m;

}

m=n/4*3;

strncpy(sour,inputtext,n);

inputtext+=n;

for(i=0;i<n/4;i++)

unBase64(sour+i*4,obje+i*3);

strncpy(FOutputText+j,obje,m);

j+=m;

}

*(FOutputText+j)='\0';

FOutput=(AnsiString)FOutputText;

delete []sour;

delete []obje;

}

//---------------------------------------------------------------------------

/*Base64解码*/

void __fastcall unBase64(unsigned char chuue[4],unsigned char chasc[3])

/*

chuue：未解码的Base64代码

chasc：解码过的二进制代码

*/

{

int i,k=2;

unsigned char t=NULL;

for(i=0;i<4;i++)

if((*(chuue+i)>=65)&&(*(chuue+i)<=90)) *(chuue+i)-=65;

else if((*(chuue+i)>=97)&&(*(chuue+i)<=122)) *(chuue+i)-=71;

else if((*(chuue+i)>=48)&&(*(chuue+i)<=57)) *(chuue+i)+=4;

else if(*(chuue+i)==43) *(chuue+i)=62;

else if(*(chuue+i)==47) *(chuue+i)=63;

else if(*(chuue+i)==61) *(chuue+i)=0;

for(i=0;i<3;i++)

{

*(chasc+i)=*(chuue+i)<<k;

k+=2;

t=*(chuue+i+1)>>8-k;

*(chasc+i)|=t;

}

}

//---------------------------------------------------------------------------

//用UUenCode进行编码

void __fastcall EncodeUue(void)

{

unsigned char *sour,*obje,*inputtext;

unsigned int i,j=0,m=45,n=45,num;

inputtext=FInputText;

sour=new char[45];

obje=new char[60];

while(m==45)

{

m=strlen(inputtext);

if(m<45)

{

if(m==0) break;

n=m;

strncpy(sour,inputtext,m);

if(n%3) n=n-n%3+3;

for(i=m;i<n;i++)

*(sour+i)=NULL;

}

else

{

m=45;

strncpy(sour,inputtext,m);

}

inputtext+=m;

for(i=0;i<n/3;i++)

Uue(sour+i*3,obje+i*4);

*(FOutputText+j++)=m+32;

strncpy(FOutputText+j,obje,n/3*4);

j+=n/3*4;

*(FOutputText+j++)='\n';

}

*(FOutputText+j++)='`';

*(FOutputText+j++)='\n';

*(FOutputText+j)='\0';

FOutput=(AnsiString)FOutputText;

delete []sour;

delete []obje;

}

//---------------------------------------------------------------------------

/*Uuencode编码*/

void __fastcall Uue(unsigned char chasc[3],unsigned char chuue[4])

/*

chasc：未编码的二进制代码

chuue：编码过的Uue代码

*/

{

int i,k=2;

unsigned char t=NULL;

for(i=0;i<3;i++)

{

*(chuue+i)=*(chasc+i)>>k;

*(chuue+i)|=t;

if(*(chuue+i)==NULL) *(chuue+i)+=96;

else *(chuue+i)+=32;

t=*(chasc+i)<<(8-k);

t>>=2;

k+=2;

}

*(chuue+3)=*(chasc+2)&63;

if(*(chuue+3)==NULL) *(chuue+3)+=96;

else *(chuue+3)+=32;

}

//---------------------------------------------------------------------------

//对UUenCode解码

void __fastcall DecodeUue(void)

{

unsigned char *sour,*obje,*inputtext;

unsigned int i,j=0,m=45,n;

sour=new char[60];

obje=new char[45];

inputtext=FInputText;

while(m==45)

{

while(*inputtext=='\r'||*inputtext=='\n')

inputtext++;

if((m=*inputtext)!=96||m=='\0')

{

n=m-32;

m=n;

inputtext++;

}

else break;

if(n<45)

{

if(n%3) n=(n-n%3+3)/3*4;

else n=n/3*4;

}

else

n=n/3*4;

strncpy(sour,inputtext,n);

inputtext+=n;

for(i=0;i<n/4;i++)

unUue(sour+i*4,obje+i*3);

strncpy(FOutputText+j,obje,m);

j+=m;

}

*(FOutputText+j)='\0';

FOutput=(AnsiString)FOutputText;

delete []sour;

delete []obje;

}

//---------------------------------------------------------------------------

/*Uuencode解码*/

void __fastcall unUue(unsigned char chuue[4],unsigned char chasc[3])

/*

chuue：未解码的Uue代码

chasc：解码过的二进制代码

*/

{

int i,k=2;

unsigned char t=NULL;

if(*chuue==96) *chuue=NULL;

else *chuue-=32;

for(i=0;i<3;i++)

{

*(chasc+i)=*(chuue+i)<<k;

k+=2;

if(*(chuue+i+1)==96) *(chuue+i+1)=NULL;

else *(chuue+i+1)-=32;

t=*(chuue+i+1)>>8-k;

*(chasc+i)|=t;

}

}

//---------------------------------------------------------------------------

//用XXenCode进行编码

void __fastcall EncodeXxe(void)

{

unsigned char *sour,*obje,*inputtext;

unsigned int i,j=0,m=45,n=45;

char set[]="+-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";

inputtext=FInputText;

sour=new char[45];

obje=new char[60];

while(m==45)

{

m=strlen(inputtext);

if(m<45)

{

if(m==0) break;

n=m;

strncpy(sour,inputtext,m);

if(n%3) n=n-n%3+3;

for(i=m;i<n;i++)

*(sour+i)=NULL;

}

else

{

m=45;

strncpy(sour,inputtext,m);

}

inputtext+=m;

for(i=0;i<n/3;i++)

Xxe(sour+i*3,obje+i*4);

*(FOutputText+j++)=set[m&63];

strncpy(FOutputText+j,obje,n/3*4);

j+=n/3*4;

*(FOutputText+j++)='\n';

}

*(FOutputText+j++)='+';

*(FOutputText+j++)='\n';

*(FOutputText+j)='\0';

FOutput=(AnsiString)FOutputText;

delete []sour;

delete []obje;

}

//---------------------------------------------------------------------------

/*Xxencode编码*/

void __fastcall Xxe(unsigned char chasc[3],unsigned char chxxe[4])

/*

chasc：未编码的二进制代码

chxxe：编码过的Xxe代码

*/

{

int i;

char set[]="+-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";

chxxe[0]=chasc[0]>>2;

chxxe[1]=(chasc[0]<<4)&48|(chasc[1]>>4)&15;

chxxe[2]=(chasc[1]<<2)&60|(chasc[2]>>6)&3;

chxxe[3]=chasc[2]&63;

for(i=0;i<4;i++) chxxe[i]=set[chxxe[i]]; /*查表*/

}

/*需注意的是，Xxencode文件正文部分中每一行的第一个字母是：从源文件中实际 读取的字符数的ASCII值取后六位后用set[]查表得到的。*/

//---------------------------------------------------------------------------

//对XXenCode解码

void __fastcall DecodeXxe(void)

{

unsigned char *sour,*obje,*inputtext;

unsigned int i,j=0,m=45,n;

sour=new char[60];

obje=new char[45];

inputtext=FInputText;

while(m==45)

{

while(*inputtext=='\r'||*inputtext=='\n')

inputtext++;

if((m=*inputtext)!='+'||m=='\0')

{

n=set(m);

m=n;

inputtext++;

}

else break;

if(n<45)

{

if(n%3) n=(n-n%3+3)/3*4;

else n=n/3*4;

}

else n=n/3*4;

strncpy(sour,inputtext,n);

inputtext+=n;

for(i=0;i<n/4;i++)

unXxe(sour+i*4,obje+i*3);

strncpy(FOutputText+j,obje,m);

j+=m;

}

*(FOutputText+j)='\0';

FOutput=(AnsiString)FOutputText;

delete []sour;

delete []obje;

}

//---------------------------------------------------------------------------

/*Xxencode解码*/

unsigned char __fastcall set(unsigned char ch) /*查表函数*/

{

if(ch==43) ch=0;

else if(ch==45) ch=1;

else if(ch>=48&&ch<=57) ch-=46;

else if(ch>=65&&ch<=90) ch-=53;

else if(ch>=97&&ch<=122) ch-=59;

return ch;

}

//---------------------------------------------------------------------------

void __fastcall unXxe(unsigned char chxxe[4],unsigned char chasc[3])

/*

chxxe：未解码的Xxe代码

chasc：解码过的二进制代码

*/

{

int k=2 ,i;

unsigned char t;

t=NULL;

*chxxe=set(*chxxe);

for(i=0;i<3;i++)

{

*(chxxe+i+1)=set(*(chxxe+i+1));

*(chasc+i)=*(chxxe+i)<<k;

k+=2;

t=*(chxxe+i+1)>>8-k;

*(chasc+i)|=t;

}

}

• ·Spring简介
• ·转贴：Delphi Office 组件集常见
• ·Google的潜在大敌Vivisimo
• ·关于WebWork2中的中文问题 选择
• ·独孤九剑与软件开发
• ·探秘“哈马斯”
• ·P2P c/s重写
• ·中国Linux的杰出人物
• ·充分利用 .NET 框架的 PropertyG
• ·BCB 包含头文件报错