delphi的加密与解密

2016-08-22 10:24:01来源:http://kaixinbuliao.blog.51cto.com/2567365/1717686作者:鹅倌人点击


EncdDecd 单元: EncodeString、DecodeString、EncodeBase64、DecodeBase64


usesEncdDecd;conststr='万一的Delphi博客';
procedureTForm1.Button1Click(Sender:TObject);
var
strEncode,strDecode:string;
begin
strEncode:=EncodeString(str);
strDecode:=DecodeString(strEncode);
ShowMessageFmt('%s'#10#13'%s',[strEncode,strDecode]);
end;

procedureTForm1.Button2Click(Sender:TObject);
var
strEncode,strDecode:string;
begin
strEncode:=EncodeBase64(BytesOf(str),Length(BytesOf(str)));
strDecode:=StringOf(DecodeBase64(strEncode));
ShowMessageFmt('%s'#10#13'%s',[strEncode,strDecode]);
end;

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台