老 base64 for xe8
not recommend ,only for study
procedure TForm1.Button3Click(Sender: TObject);
var
ssi, sso: TStringStream;
abt: TBytes;
s1: string;
begin
ssi := TStringStream.Create(Edit1.Text);
sso := TStringStream.Create((''));
Base64Unit.EncodeStream(ssi, sso); sso.Seek(, soFromBeginning);
SetLength(abt, sso.Size * );
sso.ReadData(abt, sso.Size * ); s1 := TEncoding.Unicode.GetString(abt);
Edit2.Text := s1;
ssi.Free;
sso.Free;
end; procedure TForm1.Button5Click(Sender: TObject);
var
ssi, sso: TStringStream;
abt: TBytes;
s1: string;
begin
ssi := TStringStream.Create(Edit2.Text);
sso := TStringStream.Create((''));
Base64Unit.DecodeStream(ssi, sso); sso.Seek(, soFromBeginning);
SetLength(abt, sso.Size * );
sso.ReadData(abt, sso.Size * ); Edit4.Text := sso.DataString;
ssi.Free;
sso.Free; end;
unit Base64Unit; interface uses
Classes, SysUtils; function Base64Encryption(const Input:String):String;
function Base64Decryption(const Input:String):String; procedure EncodeStream(InStream, OutStream : TStream);
procedure DecodeStream(InStream, OutStream : TStream); implementation const
BASE64Table : array[..] of Char = ( #, #, #, #, #,
#, #, #, #, #, #, #, #, #, #,
#, #, #, #, #, #, #, #, #, #,
#, #, #, #, #, #, #, #, #, #,
#, #, #, #, #, #, #, #, #, #,
#, #, #, #, #, #, #, #, #, #,
#, #, #, #, #, #, #, #, #); const
BASE64DeTable : array[..] of Byte = ($3E, $7F, $7F, $7F, $3F, $,
$, $, $, $, $, $3A, $3B, $3C, $3D, $7F, $7F, $7F, $7F,
$7F, $7F, $7F, $, $, $, $, $, $, $, $, $, $,
$0A, $0B, $0C, $0D, $0E, $0F, $, $, $, $, $, $, $,
$, $, $, $7F, $7F, $7F, $7F, $7F, $7F, $1A, $1B, $1C, $1D,
$1E, $1F, $, $, $, $, $, $, $, $, $, $, $2A,
$2B, $2C, $2D, $2E, $2F, $, $, $, $); //BASE64算法流加密
procedure EncodeStream(InStream, OutStream : TStream);
var
I, O, Count : Integer;
InBuf : array[..] of Byte;
OutBuf : array[..] of Char; //Char
Temp : Byte;
abt:TBytes;
begin
FillChar(OutBuf, Sizeof(OutBuf), #); repeat
Count := InStream.Read(InBuf, SizeOf(InBuf));
if Count = then Break;
I := ;
O := ;
while I <= (Count-) do begin
{ 编码第一个字节 }
Temp := (InBuf[I] shr );
OutBuf[O] := Char(BASE64Table[Temp and $3F]); { 编码第二个字节 }
Temp := (InBuf[I] shl ) or (InBuf[I+] shr );
OutBuf[O+] := Char(BASE64Table[Temp and $3F]); { 编码第三个字节 }
Temp := (InBuf[I+] shl ) or (InBuf[I+] shr );
OutBuf[O+] := Char(BASE64Table[Temp and $3F]); { 编码第四个字节 }
Temp := (InBuf[I+] and $3F);
OutBuf[O+] := Char(BASE64Table[Temp]); Inc(I, );
Inc(O, );
end; if (I <= Count) then begin
Temp := (InBuf[I] shr );
OutBuf[O] := Char(BASE64Table[Temp and $3F]); { 一个奇数字节 }
if I = Count then begin
Temp := (InBuf[I] shl ) and $;
OutBuf[O+] := Char(BASE64Table[Temp and $3F]);
OutBuf[O+] := '=';
{ 两个基数字节 }
end else begin
Temp := ((InBuf[I] shl ) and $) or ((InBuf[I+] shr ) and $0F);
OutBuf[O+] := Char(BASE64Table[Temp and $3F]);
Temp := (InBuf[I+] shl ) and $3C;
OutBuf[O+] := Char(BASE64Table[Temp and $3F]);
end;
{ 增加= }
OutBuf[O+] := '=';
Inc(O, );
end; { 把编码好的块写到流中 }
OutStream.Write(OutBuf, O*); // Modified by for xe8 2015-07-30 15:36:51 o > o*2
until Count < SizeOf(InBuf);
end; //BASE64算法流解密
procedure DecodeStream(InStream, OutStream : TStream);
var
I, O, Count, c1, c2, c3 : Byte;
InBuf : array[..] of Byte;
OutBuf : array[..] of Byte;
begin
repeat
O := ;
I := ; Count := InStream.Read(InBuf, SizeOf(InBuf));
if (Count = ) then
Break; { 解密的数据输入到流中 }
while I < Count do begin
if (InBuf[I] < ) or (InBuf[I] > ) or
(InBuf[I+] < ) or (InBuf[I+] > ) or
(InBuf[I+] < ) or (InBuf[I+] > ) or
(InBuf[I+] < ) or (InBuf[I+] > ) then
raise Exception.Create('Invalid Base64 Character'); c1 := BASE64DeTable[InBuf[I]];
c2 := BASE64DeTable[InBuf[I+]];
c3 := BASE64DeTable[InBuf[I+]];
OutBuf[O] := ((c1 shl ) or (c2 shr ));
Inc(O);
if Char(InBuf[I+]) <> '=' then begin
OutBuf[O] := ((c2 shl ) or (c3 shr ));
Inc(O);
if Char(InBuf[I+]) <> '=' then begin
OutBuf[O] := ((c3 shl ) or BASE64DeTable[InBuf[I+]]);
Inc(O);
end;
end;
Inc(I, );
end;
OutStream.Write(OutBuf, O);
until Count < SizeOf(InBuf);
end; //BASE64算法字符串加密
function Base64Encryption(const Input:String):String;
var
InStream : TMemoryStream;
OutStream : TMemoryStream;
begin
InStream := TMemoryStream.Create;
OutStream := TMemoryStream.Create; InStream.Write(Input[], Length(Input));
InStream.Position := ;
EncodeStream(InStream, OutStream);
OutStream.Position := ;
SetLength(Result, OutStream.Size);
OutStream.Read(Result[], OutStream.Size); InStream.Free;
OutStream.Free;
end; //BASE64算法字符串解密
function Base64Decryption(const Input:String):String;
var
InStream : TMemoryStream;
OutStream : TMemoryStream;
begin
InStream := TMemoryStream.Create;
OutStream := TMemoryStream.Create; InStream.Write(Input[], Length(Input));
InStream.Position := ;
DecodeStream(InStream, OutStream);
OutStream.Position := ;
SetLength(Result, OutStream.Size);
OutStream.Read(Result[], OutStream.Size); InStream.Free;
OutStream.Free;
end; end.
老 base64 for xe8的更多相关文章
- [分享黑科技]纯js突破localstorage存储上线,远程抓取图片,并转码base64保存本地,最终实现整个网站所有静态资源离线到用户手机效果却不依赖浏览器的缓存机制,单页应用最新黑科技
好久没有写博客了,想到2年前答应要放出源代码的也没放出来,最近终于有空先把纯js实现无限空间大小的本地存储的功能开源了,项目地址https://github.com/xueduany/localsto ...
- 使用Qpython3制作老版天翼飞TP路由器拨号脚本
#幻境拨号python版 #by 1414641776 account='xxxxxx@96301' password='xxxxx' # 路由器脚本 def sendToRoute(account, ...
- Python之数据加密与解密及相关操作(hashlib模块、hmac模块、random模块、base64模块、pycrypto模块)
本文内容 数据加密概述 Python中实现数据加密的模块简介 hashlib与hmac模块介绍 random与secrets模块介绍 base64模块介绍 pycrypto模块介绍 总结 参考文档 提 ...
- 前端性能优化--图片处理(Css Sprites 与 base64)
前言: 近期研究着前端性能的优化方面的知识,并以博客记之.之前有相同系列的文章(前端性能优化--图片懒加载(lazyload image)),这次继续是关于图片的处理,css sprites 和 ba ...
- 微信小程序语音识别服务搭建全过程解析(https api开放,支持新接口mp3录音、老接口silk录音)
silk v3(或新录音接口mp3)录音转olami语音识别和语义处理的api服务(ubuntu16.04服务器上实现) 重要的写在前面 重要事项一: 所有相关更新,我优先更新到我个人博客中,其它地方 ...
- 将不确定变为确定~老赵写的CodeTimer是代码性能测试的利器
首先,非常感谢赵老大的CodeTimer,它让我们更好的了解到代码执行的性能,从而可以让我们从性能的角度来考虑问题,有些东西可能我们认为是这样的,但经理测试并非如何,这正应了我之前的那名话:“机器最能 ...
- Python之数据加密与解密及相关操作(hashlib、hmac、random、base64、pycrypto)
本文内容 数据加密概述 Python中实现数据加密的模块简介 hashlib与hmac模块介绍 random与secrets模块介绍 base64模块介绍 pycrypto模块介绍 总结 参考文档 提 ...
- Python常用模块--base64
作用:对一些保密性不强的信息进行加密,变为人类不能直接理解的字符串,但是可以反向解密,是一种‘防君子,不防小人’的措施. 例如:在一些项目中,接口的报文是通过base64加密传输的,所以在进行接口自动 ...
- 使用base64转码的方式上传图片
1.前端html代码 <input style="width:100%" onchange="loadpicture(1)" type="fil ...
随机推荐
- Hook入门
Hook入门 2014-07-24 基本概念 Windows消息机制 Hook(钩子) 运行机制 核心函数 C# hook示例 基本概念[1] Windows消息机制[5] Windows操作系统是建 ...
- 【转】 xcode中常用快捷键图文并茂解释
图文解释XCode常用快捷键的使用 分类: iOS开发经验技巧2012-06-07 10:21 12774人阅读 评论(6) 收藏 举报 xcodecommand工具eclipsedeletego 刚 ...
- [ionic开源项目教程] - 第6讲 过滤器filter的使用
过滤器filter的使用 1.回顾 再熟悉一下tab1.html的代码: <div class="list"> <a ng-repeat="item i ...
- [转] Qt 多线程学习
Qt 多线程学习 转自:http://www.cnblogs.com/IT-BOY/p/3544220.html 最近的项目上用到了关于多线程的知识,自己也比较感兴趣,所以就拿了那本<C++ G ...
- fmri分析工具:spm里的统计学 Introduction to SPM statistics
引言 Introduction 需要特别说明,spm是每一个体素为单位,计算统计量,进行t检验. 1.分别在每个体素上做方差分析; 2.对每个体素的方差分析结果,计算t检验统计量; 3.计算等同于t ...
- 08day2
引爆炸弹 贪心 [问题描述] 有 n 个炸弹,有些炸弹牵了一根单向引线(也就是说引线只有在这一端能被炸弹点燃),只要引爆了这个炸弹,用引线连接的下一个炸弹也会爆炸.每个炸弹还有个得分,当这个炸弹被引爆 ...
- 【C#学习笔记】网页弹出提示框
using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.We ...
- 第三集 欠拟合与过拟合的概念、局部加权回归、logistic回归、感知器算法
课程大纲 欠拟合的概念(非正式):数据中某些非常明显的模式没有成功的被拟合出来.如图所示,更适合这组数据的应该是而不是一条直线. 过拟合的概念(非正式):算法拟合出的结果仅仅反映了所给的特定数据的特质 ...
- Android 开源项目DiskLruCache 详解
有兴趣的同学可以读完这篇文章以后 可以看看这个硬盘缓存和volley 或者是其他 图片缓存框架中使用的硬盘缓存有什么异同点. 讲道理的话,其实硬盘缓存这个模块并不难写,难就难在 你要考虑到百分之0.1 ...
- Android系统在超级终端下必会的命令大全(adb shell命令大全)
. 显示系统中全部Android平台: android list targets . 显示系统中全部AVD(模拟器): android list avd . 创建AVD(模拟器): android c ...