首先我要在這裡向各位糾正我犯在一個錯誤：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 - [email protected]
//---------------------------------------------------------------------------
#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 - [email protected]
//---------------------------------------------------------------------------
//
// 如要用於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( PByte( buf.Memory ), PChar( aSrc ) );
PByteArray( buf.Memory )[n] := 0;
End;
Result := PChar( buf.Memory );
Finally
buf.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 )
return ( char )( n + '0' );
else
return ( char )( n - 10 + 'A' );
}
//---------------------------------------------------------------------------
// char 0-F to 4bit binary
unsigned char Chr2Hex( char c )
{
if ( c >= 'a' && c <= 'z' ) // it's toupper
c = c - 'a' + 'A';
if ( c >= '0' && c <= '9' )
return ( int )( c - '0' );
else if ( c >= 'A' && c <= 'F' )
return ( int )( c - 'A' + 10 );
else
return -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 )
return ( char )( n + 'A' );
else if ( n < 52 )
return ( char )( n - 26 + 'a' );
else if ( n < 62 )
return ( char )( n - 52 + '0' );
else if ( n == 62 )
return '+';
else
return '/';
}
//---------------------------------------------------------------------------
unsigned char Chr2Base( char c )
{
if ( c >= 'A' && c <= 'Z' )
return ( unsigned char )( c - 'A' );
else if ( c >= 'a' && c <= 'z' )
return ( unsigned char )( c - 'a' + 26 );
else if ( c >= '0' && c <= '9' )
return ( unsigned char )( c - '0' + 52 );
else if ( c == '+' )
return 62;
else if ( c == '/' )
return 63;
else
return 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 )
{
*p++ = '=';
*p++ = Hex2Chr( *aSrc >> 4 );
*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 n = strlen( aSrc );
unsigned char ch, cl;
while ( *aSrc ) // aSrc is an ASCIIZ string
{
if ( ( *aSrc == '=' ) && ( n - 2 > 0 ) )
{
ch = Chr2Hex( aSrc[1] );
cl = Chr2Hex( aSrc[2] );
if ( ( ch == ( unsigned char )-1 ) || ( cl == ( unsigned char )-1 ) )
*p++ = *aSrc++;
else
{
*p++ = ( ch << 4 ) | cl;
aSrc += 3;
}
}
else
*p++ = *aSrc++;
}
return ( p - aDest );
}
//---------------------------------------------------------------------------
// aLen 為 aSrc的長度，aDest 所指的緩沖區必須至少為 aLen的 1.33 倍！！！
// 返回 aDest的長度
int Base64Encode( char * const aDest, const unsigned char * aSrc, int aLen )
{
char * p = aDest;
int i;
unsigned char t;
for ( i = 0; i < aLen; i++ )
{
switch ( i % 3 )
{
case 0 :
*p++ = Base2Chr( *aSrc >> 2 );
t = ( *aSrc++ << 4 ) & 0x3F;
break;
case 1 :
*p++ = Base2Chr( t | ( *aSrc >> 4 ) );
t = ( *aSrc++ << 2 ) & 0x3F;
break;
case 2 :
*p++ = Base2Chr( t | ( *aSrc >> 6 ) );
*p++ = Base2Chr( *aSrc++ );
break;
}
}
if ( aLen % 3 != 0 )
{
*p++ = Base2Chr( t );
if ( aLen % 3 == 1 )
*p++ = '=';
*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 i, n = strlen( aSrc );
unsigned char c, t;
for ( i = 0; i < n; i++ )
{
if ( *aSrc == '=' )
break;
do {
if ( *aSrc )
c = Chr2Base( *aSrc++ );
else
c = 65; // 字符串結束
} while ( c == 64 ); // 跳過無效字符，如回車等
if ( c == 65 )
break;
switch ( i % 4 )
{
case 0 :
t = c << 2;
break;
case 1 :
*p++ = ( unsigned char )( t | ( c >> 4 ) );
t = ( unsigned char )( c << 4 );
break;
case 2 :
*p++ = ( unsigned char )( t | ( c >> 2 ) );
t = ( unsigned char )( c << 6 );
break;
case 3 :
*p++ = ( unsigned char )( t | c );
break;
}
}
return ( p - aDest );
}
//---------------------------------------------------------------------------
