Base64 Encode and Decode - BCB[转]

  1      // Base 64 encoder / decoder
  2
  3
  4      //---------------------------------------------------------------------------
  5
  6       
  7
  8 AnsiString __fastcall TForm1::Base64Encode(AnsiString slToEnc)
  9
 10      {
 11
 12        //The Base64 Table
 13
 14        const char Base64Table[64]=
 15
 16          "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
 17
 18        char * buftoenc = slToEnc.c_str();
 19
 20        int bufsize = slToEnc.Length() + 1;
 21
 22        char * encbuf = new char[slToEnc.Length() * 5];
 23
 24        encbuf[0] = '\0';  int ilStrLen = -1;
 25
 26        int i=0; int b64byte[5];
 27
 28        unsigned char *buftemp;
 29
 30        AnsiString slRetVal = EmptyStr;
 31
 32       
 33
 34       
 35
 36        buftemp=(unsigned char *)malloc(bufsize+2);
 37
 38        strcpy(buftemp,buftoenc);
 39
 40        if (fmod(bufsize,3)==1)
 41
 42        {
 43
 44          buftemp[bufsize]='\0';
 45
 46          buftemp[bufsize+1]='\0';
 47
 48        }
 49
 50        if (fmod(bufsize,3)==2)buftemp[bufsize]='\0';
 51
 52        while (i<bufsize)
 53
 54        {
 55
 56          b64byte[0]=buftemp[i]>>2;
 57
 58          b64byte[1]=((buftemp[i]&3)<<4)|(buftemp[i+1]>>4);
 59
 60          b64byte[2]=((buftemp[i+1]&0x0F)<<2)|(buftemp[i+2]>>6);
 61
 62          b64byte[3]=buftemp[i+2]&0x3F;
 63
 64          encbuf[i+(i/3)]=Base64Table[b64byte[0]];
 65
 66          encbuf[i+(i/3)+1]=Base64Table[b64byte[1]];
 67
 68          encbuf[i+(i/3)+2]=Base64Table[b64byte[2]];
 69
 70          encbuf[i+(i/3)+3]=Base64Table[b64byte[3]];
 71
 72          i+=3;
 73
 74        }
 75
 76        free(buftemp);
 77
 78       
 79
 80       
 81
 82        if (fmod(bufsize,3)==0) ilStrLen = bufsize*8/6;
 83
 84        else if (fmod(bufsize,3)==1) ilStrLen = ((bufsize+2)*8/6)-2;
 85
 86        else if (fmod(bufsize,3)==2) ilStrLen = ((bufsize+1)*8/6)-1;
 87
 88        else ilStrLen = -1;
 89
 90        if(ilStrLen> 0) slRetVal = AnsiString(encbuf).SubString(1, ilStrLen);
 91
 92        if(encbuf != NULL) { delete encbuf; encbuf = NULL; }
 93
 94       
 95
 96        return slRetVal;
 97
 98      }
 99
       

       

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


      AnsiString __fastcall TForm1::Base64Decode(AnsiString slToDec)

      {

        //Base64 Table

        const char Base64Table[64]=

          "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";

        char * buftodec = slToDec.c_str();

        int bufsize = slToDec.Length() + 1;

        char * decbuf = new char[slToDec.Length() * 5];

        decbuf[0] = '\0';  int ilStrLen = -1;

        AnsiString slRetVal = EmptyStr;

       

        int i=0; unsigned char binbyte[4];

        int cpos[5]; unsigned char *buftemp;



        buftemp=(unsigned char *)malloc(bufsize);

        strcpy(buftemp,buftodec);

        if (fmod(bufsize,4)==1)

        {

          buftemp[bufsize]='\0';

          buftemp[bufsize+1]='\0';

          buftemp[bufsize+2]='\0';

        }

        if (fmod(bufsize,4)==2)

        {

          buftemp[bufsize]='\0';

          buftemp[bufsize+1]='\0';

        }

        if (fmod(bufsize,4)==3)buftemp[bufsize]='\0';

        while (i<bufsize)

        {

          cpos[0]=strchr(Base64Table,buftemp[i])-Base64Table;

          cpos[1]=strchr(Base64Table,buftemp[i+1])-Base64Table;

          cpos[2]=strchr(Base64Table,buftemp[i+2])-Base64Table;

          cpos[3]=strchr(Base64Table,buftemp[i+3])-Base64Table;

          binbyte[0]=((cpos[0]<<2)|(cpos[1]>>4));

          binbyte[1]=((cpos[1]<<4)|(cpos[2]>>2));

          binbyte[2]=(((cpos[2]&0x03)<<6)|(cpos[3]&0x3f));

          decbuf[i-(i/4)]=binbyte[0];

          decbuf[i-(i/4)+1]=binbyte[1];

          decbuf[i-(i/4)+2]=binbyte[2];

          i+=4;

        }

        free(buftemp);

        if (fmod(bufsize,4)==0) ilStrLen = bufsize*6/8;

        else if (fmod(bufsize,4)==1) ilStrLen = ((bufsize+3)*6/8)-3;

        else if (fmod(bufsize,4)==2) ilStrLen = ((bufsize+2)*6/8)-2;

        else if (fmod(bufsize,4)==3) ilStrLen = ((bufsize+1)*6/8)-1;

        else ilStrLen = -1;

        if(ilStrLen> 0) slRetVal = AnsiString(decbuf).SubString(1, ilStrLen);

        if(decbuf != NULL) { delete decbuf; decbuf = NULL; }

        return slRetVal;

      }