老 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 ...
随机推荐
- plsql programming 04 条件和顺序控制
1. 条件语句 if salary > 40000 or salary is NULL then give_bonus(employee_id, 500); end if; if conditi ...
- 使用Less color函数创建专业网站配色方案
Less提供了很多实用的函数专门用于定义和操作色彩.本文将介绍如何使用这些函数来 帮助你控制色彩,创造合适的色彩搭配,并且保持网站的一致性和专业性 color spinning spin()函数允许我 ...
- PHP全栈工程师学习大纲
一.高性能网站开发功力提升 时间 标题 内容概要 2015-12-28 开学典礼以及工程师成长路线图 工程师成长的发展路径图.三个阶段,在各个阶段需要提升自己的地方,从技术上也讲了一些提高分析代码的工 ...
- Windows系统下Memcached缓存系列二:CouchbaseClient(c#客户端)的详细试用,单例模式
在上一篇文章里面 ( Windows系统下Memcached缓存系列一:Couchbase(服务器端)和CouchbaseClient(c#客户端)的安装教程 ),我们介绍了服务器端的安装和客户端的安 ...
- C语言之内存覆盖
在实现memcpy函数的时候,我们说过要考虑内存覆盖的问题,到底什么是内存覆盖呢,他的出现对程序到底有什么影响呢?我们又要如何去解决这种问题的发生? 首先先看一般人经常实现的memcpy函数: #in ...
- cURL: PHP并发处理方式
function classic_curl($urls, $delay) { $queue = curl_multi_init(); $map = array(); foreach ($urls as ...
- ORACLE RAC集群硬件资源管理与单节点的区别
硬件资源是由OS kernel管理的,应用软件是不能直接访问硬件的,必须通过OS kernel提供的API接口间接访问,OS kernel 除了要完成用户的请求,还通过进程调度等机制来控制多进程对资源 ...
- Windows Server 2003 激活码及激活方法
Windows Server 2003 简体中文企业版,真正免激活. CD-KEY:JB88F-WT2Q3-DPXTT-Y8GHG-7YYQY 安装序列号:JCGMJ-TC669-KCBG7-HB8X ...
- jQuery学习备忘
jQuery对象转换成DOM对象 var #cr = $("#cr"); //jQuery对象 var cr = $cf[0]; //DOM对象 alert(cr.checked) ...
- 看看JavaScript中void(0)的含义
JavaScript中void是一个操作符,该操作符指定要计算一个表达式但是不返回值. void 操作符用法格式如下:1. javascript:void (expression)2. javascr ...