Base64编码delphi算法!
来源:互联网 发布:儿童画画视频教程软件 编辑:程序博客网 时间:2024/04/29 12:04
Base64编码delphi算法!学习Base64编码算法时写的
procedure TForm1.Button1Click(Sender: TObject);
var
_1byte,_2byte:array of byte;
strlen,i,j,jj:integer;
str:string;
const
basetable='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
begin
str:='abcabcde';
//str:='abcabc';
strlen:=length(str);
setlength(_1byte,strlen);
if strlen mod 3 >0 then setlength(_2byte,((strlen div 3) * 4 + strlen mod 3)+1)
else setlength(_2byte,(strlen div 3)*4+(strlen mod 3)+0);
for i:=0 to strlen-1 do
begin
_1byte[i]:=ord(str[i+1]);
end;
j:=0;
jj:=0;
for i:=0 to (strlen div 3)-1 do
begin
j:=i*3;
_2byte[jj]:=_1byte[j] shr(2); //a->A;
inc(jj);
_2byte[jj]:=byte(_1byte[j] shl(6)) shr(2) + _1byte[j+1] shr(4); //a&b->B
inc(jj);
_2byte[jj]:=byte(_1byte[j+1] shl(4)) shr(2)+_1byte[j+2]shr(6); //b&c->C
inc(jj);
_2byte[jj]:=byte(_1byte[j+2] shl(2))shr(2);
inc(jj);
end;
j:=(strlen div 3)*3;
case (strlen mod 3) of
1:
begin
_2byte[jj]:=_1byte[j] shr(2); //a->A;
inc(jj);
_2byte[jj]:=byte(_1byte[j] shl(6)) shr(2); //a&b->B
end;
2:
begin
_2byte[jj]:=_1byte[j] shr(2); //a->A;
inc(jj);
_2byte[jj]:=byte(_1byte[j] shl(6)) shr(2) + _1byte[j+1] shr(4); //a&b->B
inc(jj);
_2byte[jj]:=byte(_1byte[j+1] shl(4)) shr(2); //b2->C
end;
end;
//按照编码显示!
str:='';
for i:=0 to high(_2byte) do
begin
str:=str+copy(basetable,_2byte[i]+1,1);
end;
showmessage(str);
end;
- Base64编码delphi算法!
- Base64编码/解码Delphi源码
- Base64编码/解码Delphi源码
- Base64编码/解码Delphi源码
- Base64编码算法
- Base64编码算法
- Base64编码算法
- Base64编码算法
- BASE64编码解码算法
- Base64编码解码算法
- Android Base64编码算法
- Base64算法 编码
- delphi base64编码函数EncodeString的问题
- Delphi 下的Base64编码和解码
- 试着写 Base64 编码算法 [原]
- Base64编码算法实现-1
- Base64编码算法实现-2
- Base64 编码介绍、Base64编码转换原理、算法
- windows消息大全(一)
- 教你编写网络通讯程序源代码之“端口扫描器”VB篇 (四)
- windows消息大全(二)
- 一个VB.NET写的简单图片缩放处理组件源代码,支持添加半透明效果小图标
- Base64编码算法
- Base64编码delphi算法!
- 为delphi补充函数!
- 露大腿女孩与千手观音
- struts中用BaseAction继承DispatchAction,方面spring中service的调用
- 翁联辉:国企经理到馄饨店老板[南方周末]
- 一个FLASH的开源项目
- IIS和ASPNET的安装问题
- 高清晰卫星图片:东京、法兰克福机场、华盛顿机场、金字塔、凯旋门
- Sql Server的sql注入攻击