MIME和BASE64编码/解码程序代码
2008-03-08 12:37:03 来源:WEB开发网核心提示:首先我要在这里向各位纠正我犯在一个错误:Base64 只是 MIME 的一种编码方案, 我原来所说的 MIME 其实是 MIME 的另一种编码方案 -- Quoted-PRintable ,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 := Leng
更多精彩
赞助商链接