编程语言

img stiwin

邮件格式编码与解码

发表于2004/10/6 11:39:00  1298人阅读

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;
  }
}

阅读全文
0 0

相关文章推荐

img
取 消
img