谁会解码Base64

[zs8816685]

或知道idbase64encoder怎样使用？

[zs8816685]

像邮件头　"=?GB2312?Q?=BE=FD=BE=FD?=" <[e-mail]>
这样的文本

[lance09]

你上面的就没有办法了

解码出来是

駚踼v?

[cnham]

=?GB2312?Q?
是个固定的格式
如果含有这个表明该邮件头是用QP加密的

你去找个解密的代码来看就知道了怎么解密了
很多文档的
在csdn搜索页面中有很多：www.csdn.net/search.asp

[zs8816685]

以什么关键字找比较好找?

[huhaojie]

原串:=IdDecoderMIME1.DecodeString(编码串);

[zs8816685]

哪里有IdDecoderMIME组件？

[huhaojie]

to:zs8816685 (新兵)
indy mics 页上

[chinawzg]

Base64加密原理

BaseTable = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';



implementation

{$R *.dfm}

function EncodeBase64(Source:string):string;
var
Times, LenSrc, i: Integer;
x1, x2, x3, x4: Char;
xt: Byte;
begin
Result := '';
LenSrc := Length(Source);
if LenSrc mod 3 = 0 then
Times := LenSrc div 3
else
Times := LenSrc div 3 + 1;
for i := 0 to Times - 1 do
begin
if LenSrc >= (3 + i * 3) then
begin
x1 := BaseTable[(ord(Source[1 + i * 3]) shr 2)+1];
xt := (ord(Source[1 + i * 3]) shl 4) and 48;
xt := xt or (ord(Source[2 + i * 3]) shr 4);
x2 := BaseTable[xt + 1];
xt := (Ord(Source[2 + i * 3]) shl 2) and 60;
xt := xt or (Ord(Source[3 + i * 3]) shr 6);
x3 := BaseTable[xt + 1];
xt := (ord(Source[3 + i * 3]) and 63);
x4 := BaseTable[xt + 1];
end
else if LenSrc >= (2 + i * 3) then
begin
x1 := BaseTable[(Ord(Source[1 + i * 3]) shr 2) + 1];
xt := (Ord(Source[1 + i * 3]) shl 4) and 48;
xt := xt or (Ord(Source[2 + i * 3]) shr 4);
x2 := BaseTable[xt + 1];
xt := (Ord(Source[2 + i * 3]) shl 2) and 60;
x3 := BaseTable[xt + 1];
x4 := '=';
end else
begin
x1 := BaseTable[(Ord(Source[1 + i * 3]) shr 2)+1];
xt := (Ord(Source[1 + i * 3]) shl 4) and 48;
x2 := BaseTable[xt + 1];
x3 := '=';
x4 := '=';
end;
Result := Result + x1 + x2 + x3 + x4;
end;
end;