快速业务通道

C++ Builder控件版

作者 佚名技术 来源 程序设计 浏览 发布时间 2012-06-30
eak;
    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 TGbBig::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 TGbBig::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 TGbBig::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 TGbBig::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) br

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多
9453.htm" title="iBATIS 3内的新特性:将iBATIS用作应用程序内的一种持久框架 - 编程入门网" target="_blank">iBATIS 3内的新特性:将iBATIS用作应用程序内的一种持久框架 - 编程入门网
  • Photoshop绘制高光水晶质感水晶苹果
  • Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

    地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

    电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

    《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号