大家恐怕还不知道Delphi自带了一个字符串编码解码的单元吧,这个文件就在
c:\program files\borland\delphi6\source\Internet\encddecd.pas
procedure EncodeStream(Input, Output: TStream);
procedure DecodeStream(Input, Output: TStream);
function  EncodeString(const Input: string): string;
function  DecodeString(const Input: string): string;