DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: hekai_dut
今日帖子: 0
在线用户: 4
导航: 论坛 -> 发布代码 斑竹:liumazi,ruralboy  
作者:
男 chineseswish (swish) ▲▲▲▲▲ -
普通会员
2014/11/3 13:32:01
标题:
QAES - 跨平台的AES加密支持库(D/C 2007~XE7) 浏览:2935
加入我的收藏
楼主: QAES是QDAC项目的一个成员,用于执行基于AES的加密和解密操作,支持CBC有ECB两种模式,原始算法来自EIAES,并做了一些修改。
QAES兼容2007~XE7版本的Delphi和C++ Builder,运行平台支持Windows\Andriod\iOS\MacOS等Delphi支持的跨平台运行环境。
有问题,欢迎加官网群反馈。
此帖子包含附件:
JPEG 图像
大小:160.0K
----------------------------------------------
QDAC 开源数据库访问组件欢迎大家关注讨论和使用 官网(博客):http://www.qdac.cc ;讨论QQ群:250530692 QLang 多语言组件快速让你的程序走向海外
作者:
男 dinkysoft (天地弦) ★☆☆☆☆ -
盒子活跃会员
2014/11/3 13:35:25
1楼: 群主的贴,必顶
----------------------------------------------
DIOCP官方社区|MyBean官方社区http://www.diocp.org/
作者:
男 suiyunonghen (不得闲) ▲▲▲▲▲ -
普通会员
2014/11/3 13:55:51
2楼: 额,偶尔露露头呼吸一下新鲜空气,裙子贴,看到必顶
----------------------------------------------
逍遥乎八极之外,虚浮世间以乘天风云马
作者:
男 ww1000 (Delphis) ▲▲▲△△ -
注册会员
2014/11/3 14:38:42
3楼: 楼主,你的demo在XE7不能编译?  不支持么?
----------------------------------------------
阳光总在
作者:
男 chineseswish (swish) ▲▲▲▲▲ -
普通会员
2014/11/3 15:03:03
4楼: 不会吧,我的就是XE7呀
----------------------------------------------
QDAC 开源数据库访问组件欢迎大家关注讨论和使用 官网(博客):http://www.qdac.cc ;讨论QQ群:250530692 QLang 多语言组件快速让你的程序走向海外
作者:
男 ww1000 (Delphis) ▲▲▲△△ -
注册会员
2014/11/3 16:24:29
5楼: 3q;我没有安装 QDAC,安装个再试
----------------------------------------------
阳光总在
作者:
男 star5 (星五) ★☆☆☆☆ -
盒子活跃会员
2014/11/3 17:18:23
6楼: 路过,顶一个,用膝盖顶楼主。。。
----------------------------------------------
博客 - http://offeu.com
作者:
男 kenliaoliao (ben) ▲▲▲▲▲ -
普通会员
2014/11/3 17:21:04
7楼: 顶了再说
----------------------------------------------
-
作者:
男 rwlin (LevonSoft) ★☆☆☆☆ -
盒子活跃会员
2014/11/3 18:02:18
8楼: 原来的EIAES 是有点问题,
顶一顶。看一看
----------------------------------------------
-我的 Q  Q:  79627128
作者:
男 jmhyy (jmhyy) ★☆☆☆☆ -
普通会员
2014/11/3 19:05:59
9楼: 顶的就是你的贴。。。
----------------------------------------------
-
作者:
男 comeheres (tomorrow) ▲▲▲△△ -
注册会员
2014/11/3 20:00:16
10楼: 必须支持下
----------------------------------------------
-
作者:
男 daniellu888 (小呂) ▲▲△△△ -
注册会员
2014/11/4 9:37:34
11楼: 顶一下
----------------------------------------------
-
作者:
男 lsoft (lso) ★☆☆☆☆ -
盒子活跃会员
2014/11/4 9:44:20
12楼: 一直在用lockbox,不过楼主的Qjson,qXml,现在正在用。
----------------------------------------------
-
作者:
男 dolang (dolang) ▲▲▲▲▲ -
普通会员
2014/11/4 9:53:01
13楼: 楼主,有没有测试过跟其它语言的加密是否同步的?比如说跟JAVA的AES加密后是否一样的字符串?
----------------------------------------------
-
作者:
男 newsxy (呼呼) ★☆☆☆☆ -
盒子活跃会员
2014/11/4 14:34:37
14楼: 楼主,顶你。
----------------------------------------------
-
作者:
男 tonyt (tonyt) ▲▲△△△ -
注册会员
2014/11/4 20:03:38
15楼: 楼主牛人,支持!
怎么下载?
----------------------------------------------
分享研究Delphi Android开发过程中的点点滴滴,一起努力促进Delphi的Android开发繁荣
作者:
男 chineseswish (swish) ▲▲▲▲▲ -
普通会员
2014/11/5 13:12:11
16楼: to 15楼
=======
上官网www.qdac.cc下载
----------------------------------------------
QDAC 开源数据库访问组件欢迎大家关注讨论和使用 官网(博客):http://www.qdac.cc ;讨论QQ群:250530692 QLang 多语言组件快速让你的程序走向海外
作者:
男 fan_hongtao ( ) ★☆☆☆☆ -
盒子活跃会员
2014/11/5 13:12:39
16楼: 8楼的朋友,原来的EIAES 是有点问题,是什么问题?
----------------------------------------------
-
作者:
男 chineseswish (swish) ▲▲▲▲▲ -
普通会员
2014/11/26 17:03:34
17楼: 2014.11.26
  ==========
  * 修正了解密字符串时,由于自动检测内容编码错误,造成解密内容与原始字符串不一致的问题(志文2014报告)
----------------------------------------------
QDAC 开源数据库访问组件欢迎大家关注讨论和使用 官网(博客):http://www.qdac.cc ;讨论QQ群:250530692 QLang 多语言组件快速让你的程序走向海外
作者:
男 chineseswish (swish) ▲▲▲▲▲ -
普通会员
2014/12/10 21:19:55
18楼: 2014.12.10
==========
* 修正了单个汉字解密时,由于自动检测编码失败而出现乱码的问题
----------------------------------------------
QDAC 开源数据库访问组件欢迎大家关注讨论和使用 官网(博客):http://www.qdac.cc ;讨论QQ群:250530692 QLang 多语言组件快速让你的程序走向海外
作者:
男 tuesdays (Tuesday) ▲▲△△△ -
注册会员
2014/12/10 22:45:42
19楼: [dcc32 警告] qjson.pas(4362): W1036 Variable 'ASubTypeInfo' might not have been initialized

给楼主的.
----------------------------------------------
delphi界我写php最强, php界我写delphi最强. 
写自己的代码, 让别人去运行吧.
作者:
男 ughost (UGhost) ▲▲▲▲▲ -
普通会员
2015/1/7 17:03:47
20楼: 使用下面zip函数为何不能反解压呢?不使用AES时候没问题.

function ZipAes(const Input: string;const sKey: string): string;
var
  InputStream,OutputStream:TStringStream;
  AES: TQAES;
  ABytes: TBytes;
begin
  InputStream:=TStringStream.Create(Input);
  try
    OutputStream:=TStringStream.Create('');
   try
       Zip(InputStream,OutputStream,True);
   
       OutputStream.Position:=0;   
       Result:=OutputStream.DataString;

       AES.AsECB(sKey).Encrypt(Result,ABytes);
 
       Result:=qstring.BinToHex(ABytes);
   finally
       OutputStream.Free;
   end;
  finally
     InputStream.Free;
  end;
end;
function UnZipAes(const Input: string;const sKey: string): string;
var
 InputStream,OutputStream:TStringStream;
 AES: TQAES;
 ABytes: TBytes;
begin
  qstring.HexToBin(Input, ABytes);

  InputStream:=TStringStream.Create(AES.AsECB(sKey).Decrypt(ABytes ));
  try
    OutputStream:=TStringStream.Create('');
    try


      OutputStream.Size:=0;
      InputStream.Position:=0;
      Zip(InputStream,OutputStream,False);
      Result:=OutputStream.DataString;
    finally
      OutputStream.Free;
    end;
  finally
    InputStream.Free;
  end;
end;
procedure Zip(Input,Output:TStream;Compress:Boolean);   
const
 MAXBUFSIZE=1024 * 16;  //16 KB
var
 CS:TCompressionStream;
 DS:TDecompressionStream;
 Buf:array[0..MAXBUFSIZE-1] of Byte;
 BufSize:Integer;
begin
  if Assigned(Input) and Assigned(Output) then
 begin
  if Compress then
  begin
   CS:=TCompressionStream.Create(clDefault,Output);
   try
    CS.CopyFrom(Input,0); //从开始处复制
   finally
    CS.Free;
   end;
  end else
  begin
   DS:=TDecompressionStream.Create(Input);
   try
    BufSize:=DS.Read(Buf,MAXBUFSIZE);
    while BufSize>0 do
    begin
     Output.Write(Buf,BufSize);
     BufSize:=DS.Read(Buf,MAXBUFSIZE);
    end;
   finally
    DS.Free;
   end;
  end;
 end;
end;
----------------------------------------------
-
作者:
男 chineseswish (swish) ▲▲▲▲▲ -
普通会员
2015/1/8 16:54:09
21楼: 2015.1.8
  =========
  * 修正了KeyFromBytes函数处理192/256位密钥时出错的问题(阿呆报告)

更新详情请访问官网:http://blog.qdac.cc/?p=1707
----------------------------------------------
QDAC 开源数据库访问组件欢迎大家关注讨论和使用 官网(博客):http://www.qdac.cc ;讨论QQ群:250530692 QLang 多语言组件快速让你的程序走向海外
作者:
男 chenmfly (flym) ▲▲▲▲▲ -
普通会员
2015/1/8 21:39:55
22楼: 厉害必须支持
----------------------------------------------
-
作者:
男 singingsongs (singingsongs) ▲▲▲▲▲ -
普通会员
2015/3/23 10:01:59
23楼: 试试看
----------------------------------------------
-
作者:
男 chineseswish (swish) ▲▲▲▲▲ -
普通会员
2015/5/14 13:47:45
24楼: 2015.5.14
  =========
  * 移除了在XE8等系统下提示 inline 未展开的问题
  * 修正了新增的条件编译选项在 XE 下无法编译的问题(感谢麦子仲肥报告)
----------------------------------------------
QDAC 开源数据库访问组件欢迎大家关注讨论和使用 官网(博客):http://www.qdac.cc ;讨论QQ群:250530692 QLang 多语言组件快速让你的程序走向海外
作者:
男 gg_mm_123 (呵呵呵呵) ▲▲▲▲△ -
注册会员
2016/11/2 0:56:25
25楼: 代码在哪里呢?看不到
----------------------------------------------
-
作者:
男 letianwuji (乐天无极) ▲▲▲△△ -
注册会员
2017/11/6 17:42:27
26楼: 试试文件加密看看
----------------------------------------------
相信自己,若自己都不相信,那还有谁可信。
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行47.11914毫秒 RSS