新云软件园:请安心下载,绿色无病毒!

软件提交最近更新热门排行
您现在的位置:首页››软件教程››编程开发››C++ Builder

MIME和BASE64编码/解码程序代码

2006-03-28 09:47作者:佚名来源:本站整理浏览:1325 评论:0

                    首先我要在这里向各位纠正我犯在一个错误:Base64 只是 MIME 的一种编码方案, 我原来所说的 MIME 其实是 MIME 的另一种编码方案 -- Quoted-Printable ,所以我对本文作了一些修正, 并对由此而给大家带来的误导表示歉意。 May.6-01

   最近在研究 POP3 时碰到一个问题,即其中的中文都是经过 MIME 编码了的, 如 MS Outlook Express 是用 Base64 ,而 FoxMail 则用的是 QP , 本来想找几个现成的编码/解码的代码,结果只在 UDDF 中找到一个 Delphi 的 Base64 Decode , 虽然 UDDF 说是 Encode/Decode ,但我是没找到 Encode 的部分,而且写得不好, 只好自已写一个了。

   此代码是一个 BCB 的单元,非常简单,提供了四个函数, 要改成 Delphi 或其它 C/C++ 也很容易,有需要的自已改吧。此代码经过测试,结果正确。

   补充:因为不久前有一位用 VC 的朋友在引用此代码时出碰到一些困难, 是由于 BCB 的 AnsiString 的特殊性造成的,所以我将此代码改写为标准 C 的,本来是应该这样的, 但我习惯了用 AnsiString 所以才写成那样的,不过现在只好改写了。但为了方便 Delphi/BCB 使用,我还是特别加了一些东东,详见程序的注释,目的无非是为了更好用一些,其它语言的请自行参考吧。Mar.31-01

   再补充:为了使这段程序更加实用,我将其整理为几个单元, 分别用于 Delphi 和 C++Builder 。包括对数据流 TMemoryStream 和字符串的处理。可以在本站作品中下载。Aug.14-01

修正:因为不久前一位网友给我发来MAIL说他在用些代码解码邮件附件时出错,我检查后发现我的解码函数只能处理连续字符串,而一般邮件附件都是带回车的字符串,所以我作了一点点修正,见下面的注释。Apr.03-02

   下面是头文件:

//---------------------------------------------------------------------------
//  MIME(QP & Base64) Encode/Decode unit. (H)
//  Copyright (c) 2000, 02 Mental Studio - http://mental.mentsu.com
//  Author : Raptor - raptorz@163.com
//---------------------------------------------------------------------------
#ifndef mimeb64H
#define mimeb64H
//---------------------------------------------------------------------------

#ifdef __cplusplus
extern "C" {
#endif

int QPEncode(     char * const aDest, const unsigned char * aSrc, int aLen );
int QPDecode(     unsigned char * const aDest, const char * aSrc );
int Base64Encode( char * const aDest, const unsigned char * aSrc, int aLen );
int Base64Decode( unsigned char * const aDest, const char * aSrc );

#ifdef __cplusplus
}
#endif
//---------------------------------------------------------------------------
#endif
     

   下面是 C 文件:

//---------------------------------------------------------------------------
//  MIME(QP & Base64) Encode/Decode unit. (C)
//  Copyright (c) 2000, 01 Mental Studio - http://mental.mentsu.com
//  Author : Raptor - raptorz@163.com
//---------------------------------------------------------------------------
//
//  如要用于 Delphi ,请用如下命令编译本单元,产生 mimeb64.obj 文件:
//  bcc32 -c -pr -O2 -C -K -N- -k- -d -3 -r- mimeb64.c
//  各参数意义分别为:
//  -c  编译为 obj 文件
//  -pr 产生 Pascal 的 fastcall 调用方式
//  -O2 优化选项为2
//  -C  允许嵌套注释
//  -K  默认使用无符号字符
//  -N- 不对栈溢出作检查
//  -k- 不使用标准栈框架
//  -d  合并重复的字符串
//  -3  使用 386 指令
//  -r- 未知^_^
//
//  为方便使用,在 BCB 中可编写下面这个函数:
/*
//  aOp : 0(QPEncode) 1(QPDecode) 2(Base64Encode) 3(Base64Decode)
AnsiString MimeQPBase64( AnsiString aSrc, int aOp )
{
   int n;
   TMemoryStream * buf;
   AnsiString s = "";

   buf = new TMemoryStream( );
   try
   {
\tn = aSrc.Length( );
\tif ( aOp == 0 )
\t{  //  QPEncode
\t    buf->Size = n * 3 + 1;
\t    QPEncode( ( char * )( buf->Memory ), ( unsigned char * )( aSrc.c_str( ) ), n );
\t}
\telse if ( aOp == 2 )
\t{  //  Base64Encode
\t    buf->Size = n * 4 / 3 + 1;
\t    Base64Encode( ( char * )( buf->Memory ), ( unsigned char * )( aSrc.c_str( ) ), n );
\t}
\telse
\t{
\t    buf->Size = n + 1;
\t    if ( aOp == 1 )  //  QPDecode
\t\tn = QPDecode( ( unsigned char * )( buf->Memory ), aSrc.c_str( ) );
\t    else\t     //  Base64Decode
\t\tn = Base64Decode( ( unsigned char * )( buf->Memory ), aSrc.c_str( ) );
\t    ( ( char * )( buf->Memory ) )[n] = 0;
\t}
\ts = AnsiString( ( char * )( buf->Memory ) );
   }
   __finally
   {
\tdelete buf;
   }
   return s;
}
*/
//  在 Delphi 中则要编写下面这个单元:
/*
Unit Mime;

Interface

Function MimeQPBase64( aSrc : String; aOp : Integer ) : String;

Implementation

{$L mimeb64.obj}

Function QPEncode(     aDest : PChar; aSrc : PByte; aLen : Integer ) : Integer; External;
Function QPDecode(     aDest : PByte; aSrc : PChar\t\t ) : Integer; External;
Function Base64Encode( aDest : PChar; aSrc : PByte; aLen : Integer ) : Integer; External;
Function Base64Decode( aDest : PByte; aSrc : PChar\t\t ) : Integer; External;

//  因为DELPHI不包含string.h中的函数,所以要写这么个函数
Function _strlen( aStr : PChar ) : Integer; cdecl;
Begin
   Result := Length( aStr );
End;

//  aOp : 0(MimeEncode) 1(MimeDecode) 2(Base64Encode) 3(Base64Decode)
Function MimeQPBase64( aSrc : String; aOp : Integer ) : String;
Var
   n   : Integer;
   buf : TMemoryStream;
Begin
   Result := ';
   buf := TMemoryStream.Create;
   Try
\tn := Length( aSrc );
\tIf ( aOp = 0 ) Then
\tBegin  //  QPEncode
\t    buf.Size := n * 3 + 1;
\t    QPEncode( PChar( buf.Memory ), PByte( PChar( aSrc ) ), n );
\tEnd
\tElse If ( aOp = 2 ) Then
\tBegin  //  Base64Encode
\t    buf.Size := n * 4 DIV 3 + 1;
\t    Base64Encode( PChar( buf.Memory ), PByte( PChar( aSrc ) ), n );
\tEnd
\tElse
\tBegin
\t    buf.Size := n + 1;
\t    If ( aOp = 1 ) Then  //  QPDecode
\t\tn := QPDecode( PByte( buf.Memory ), PChar( aSrc ) )
\t    Else\t\t //  Base64Decode
\t\tn := Base64Decode( PByte( buf.Memory ), PChar( aSrc ) );
\t    PByteArray( buf.Memory )[n] := 0;
\tEnd;
\tResult := PChar( buf.Memory );
   Finally
\tbuf.Free;
   End;
End;
*/
//  之后便可以使用MimeQPBase64这个函数了。注意:编译时要保证 mimeb64.obj 在搜索路径中。
//  其它语言直接使用这四个函数即可。
//

#include
#include "mimeb64.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
//---------------------------------------------------------------------------
//  4bit binary to char 0-F
char Hex2Chr( unsigned char n )
{
   n &= 0xF;
   if ( n < 10 )
\treturn ( char )( n + '0' );
   else
\treturn ( char )( n - 10 + 'A' );
}
//---------------------------------------------------------------------------
//  char 0-F to 4bit binary
unsigned char Chr2Hex( char c )
{
   if ( c >= 'a' && c <= 'z' )  //  it's toupper
\tc = c - 'a' + 'A';
   if ( c >= '0' && c <= '9' )
\treturn ( int )( c - '0' );
   else if ( c >= 'A' && c <= 'F' )
\treturn ( int )( c - 'A' + 10 );
   else
\treturn -1;
}
//---------------------------------------------------------------------------
//  Base64 code table
//  0-63 : A-Z(25) a-z(51), 0-9(61), +(62), /(63)
char  Base2Chr( unsigned char n )
{
   n &= 0x3F;
   if ( n < 26 )
\treturn ( char )( n + 'A' );
   else if ( n < 52 )
\treturn ( char )( n - 26 + 'a' );
   else if ( n < 62 )
\treturn ( char )( n - 52 + '0' );
   else if ( n == 62 )
\treturn '+';
   else
\treturn '/';
}
//---------------------------------------------------------------------------
unsigned char Chr2Base( char c )
{
   if ( c >= 'A' && c <= 'Z' )
\treturn ( unsigned char )( c - 'A' );
   else if ( c >= 'a' && c <= 'z' )
\treturn ( unsigned char )( c - 'a' + 26 );
   else if ( c >= '0' && c <= '9' )
\treturn ( unsigned char )( c - '0' + 52 );
   else if ( c == '+' )
\treturn 62;
   else if ( c == '/' )
\treturn 63;
   else
\treturn 64;  //  无效字符
}
//---------------------------------------------------------------------------
//  aLen 为 aSrc 的大小, aDest 所指的缓冲区必须至少为 aLen 的 3 倍!!!
//  返回 aDest 的长度
int QPEncode( char * const aDest, const unsigned char * aSrc, int aLen )
{
   char * p = aDest;
   int    i = 0;

   while ( i++ < aLen )
   {
\t*p++ = '=';
\t*p++ = Hex2Chr( *aSrc >> 4 );
\t*p++ = Hex2Chr( *aSrc++ );
   }
   *p = 0;  //  aDest is an ASCIIZ string
   return ( p - aDest );  //  exclude the end of zero
}
//---------------------------------------------------------------------------
//  aDest 所指的缓冲区必须至少为 aSrc 长度的 1/3 !!!
//  返回 aDest 的长度
int QPDecode( unsigned char * const aDest, const char * aSrc )
{
   unsigned char * p = aDest;
   int\t     n = strlen( aSrc );
   unsigned char   ch, cl;

   while ( *aSrc )  //  aSrc is an ASCIIZ string
   {
\tif ( ( *aSrc == '=' ) && ( n - 2 > 0 ) )
\t{
\t    ch = Chr2Hex( aSrc[1] );
\t    cl = Chr2Hex( aSrc[2] );
\t    if ( ( ch == ( unsigned char )-1 ) || ( cl == ( unsigned char )-1 ) )
\t\t*p++ = *aSrc++;
\t    else
\t    {
\t\t*p++ = ( ch << 4 ) | cl;
\t\taSrc += 3;
\t    }
\t}
\telse
\t    *p++ = *aSrc++;
   }
   return ( p - aDest );
}
//---------------------------------------------------------------------------
//  aLen 为 aSrc 的长度, aDest 所指的缓冲区必须至少为 aLen 的 1.33 倍!!!
//  返回 aDest 的长度
int Base64Encode( char * const aDest, const unsigned char * aSrc, int aLen )
{
   char\t* p = aDest;
   int\t   i;
   unsigned char t;

   for ( i = 0; i < aLen; i++ )
   {
\tswitch ( i % 3 )
\t{
\tcase 0 :
\t    *p++ = Base2Chr( *aSrc >> 2 );
\t    t = ( *aSrc++ << 4 ) & 0x3F;
\t    break;
\tcase 1 :
\t    *p++ = Base2Chr( t | ( *aSrc >> 4 ) );
\t    t = ( *aSrc++ << 2 ) & 0x3F;
\t    break;
\tcase 2 :
\t    *p++ = Base2Chr( t | ( *aSrc >> 6 ) );
\t    *p++ = Base2Chr( *aSrc++ );
\t    break;
\t}
   }
   if ( aLen % 3 != 0 )
   {
\t*p++ = Base2Chr( t );
\tif ( aLen % 3 == 1 )
\t    *p++ = '=';
\t*p++ = '=';
   }
   *p = 0;  //  aDest is an ASCIIZ string
   return ( p - aDest );  //  exclude the end of zero
}
//---------------------------------------------------------------------------
//  aDest 所指的缓冲区必须至少为 aSrc 长度的 0.75 倍!!!
//  返回 aDest 的长度
int Base64Decode( unsigned char * const aDest, const char * aSrc )
{
   unsigned char * p = aDest;
   int\t     i, n = strlen( aSrc );
   unsigned char   c, t;

   for ( i = 0; i < n; i++ )
   {
\tif ( *aSrc == '=' )
\t    break;
\tdo {
\t    if ( *aSrc )
                  c = Chr2Base( *aSrc++ );
\t    else
\t        c = 65;  //  字符串结束
\t} while ( c == 64 );  //  跳过无效字符,如回车等
\tif ( c == 65 )
\t    break;
\tswitch ( i % 4 )
\t{
\tcase 0 :
\t    t = c << 2;
\t    break;
\tcase 1 :
\t    *p++ = ( unsigned char )( t | ( c >> 4 ) );
\t    t = ( unsigned char )( c << 4 );
\t    break;
\tcase 2 :
\t    *p++ = ( unsigned char )( t | ( c >> 2 ) );
\t    t = ( unsigned char )( c << 6 );
\t    break;
\tcase 3 :
\t    *p++ = ( unsigned char )( t | c );
\t    break;
\t}
   }
   return ( p - aDest );
}
//---------------------------------------------------------------------------

猛禽 Jul.5-2k
Mar.31-01 Updated
Apr.03-02 Updated
Tags:责任编辑:cvery
顶一下(64)
90.14%
    1. K-Lite解码器K-Lite解码器

      K-Lite解码器下载专题提供:K-Lite,K-Lite解码器,K-Lite解码器下载,K-Lite解码器包等免费下载!

    1. 解码器大全解码器大全

      解码器大全提供了解码器哪个好用以及最新最全面的完美解码,终极解码器免费下载.

    文章评论 新云下载QQ群:① 7551827使用手机微信搜索 微信号:xinyunshouyou 关注我们 有更多惊喜!!

    请自觉遵守互联网相关政策法规,评论内容只代表网友观点,与本站立场无关!
      验证码:     登录   注册
    网友评论