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

MIME和BASE64编码/解码程序代码
首先我要在这里向各位纠正我犯在一个错误：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
    {
        n = aSrc.Length( );
        if ( aOp == 0 )
        {  //  QPEncode
            buf->Size = n * 3 + 1;
            QPEncode( ( char * )( buf->Memory ), ( unsigned char * )( aSrc.c_str( ) ), n );
        }
        else if ( aOp == 2 )
        {  //  Base64Encode
            buf->Size = n * 4 / 3 + 1;
            Base64Encode( ( char * )( buf->Memory ), ( unsigned char * )( aSrc.c_str( ) ), n );
        }
        else
        {
            buf->Size = n + 1;
            if ( aOp == 1 )  //  QPDecode
                n = QPDecode( ( unsigned char * )( buf->Memory ), aSrc.c_str( ) );
            else             //  Base64Decode
                n = Base64Decode( ( unsigned char * )( buf->Memory ), aSrc.c_str( ) );
            ( ( char * )( buf->Memory ) )[n] = 0;
        }
        s = AnsiString( ( char * )( buf->Memory ) );
    }
    __finally
    {
        delete 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                 ) : Integer; External;
Function Base64Encode( aDest : PChar; aSrc : PByte; aLen : Integer ) : Integer; External;
Function Base64Decode( aDest : PByte; aSrc : PChar                 ) : 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
        n := Length( aSrc );
        If ( aOp = 0 ) Then
        Begin  //  QPEncode
            buf.Size := n * 3 + 1;
            QPEncode( PChar( buf.Memory ), PByte( PChar( aSrc ) ), n );
        End
        Else If ( aOp = 2 ) Then
        Begin  //  Base64Encode
            buf.Size := n * 4 DIV 3 + 1;
            Base64Encode( PChar( buf.Memory ), PByte( PChar( aSrc ) ), n );
        End
        Else
        Begin
            buf.Size := n + 1;
            If ( aOp = 1 ) Then  //  QPDecode
                n := QPDecode( PByte( buf.Memory ), PChar( aSrc ) )
            Else                 //  Base64Decode
                n := Base64Decode( P