DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: chencs1988
今日帖子: 26
在线用户: 11
导航: 论坛 -> 发布代码 斑竹:liumazi,ruralboy  
作者:
男 bluestorm8 (bluestorm) ▲△△△△ -
注册会员
2021/3/9 16:25:17
标题:
一个功能齐全的DES(含3DES)类 浏览:698
加入我的收藏
楼主:  说明:

       DES要求密码长度为8Bytes,初始向量为8Bytes;

      3DES要求密码长度为3*8=24Bytes,初始向量为8Bytes;



      在此程序中,如果密码和初始向量的长度不足则以0补够,超出所需长度的则忽略。

      ECB模式下,不需要提供初始向量



      Uses列表中System.NetEncoding这个单元要较新的Delphi版本才有。

      如果Delphi版本较低,但没有用到base64,可以把此单元、以及涉及此单元的过程和函数移除掉。

      如果一定要用,可以用indy的TIdEncoderMIME和TIdDecoderMIME来代替,具体用法可在网上搜索。

      另外本次修改把base64字符串改为默认不带换行符(#13#10)。源代码也有带换行符的设定,只是被注释掉了,如以下所示:

      //Base64Encoding := TBase64Encoding.Create; //含换行符
此帖子包含附件:bluestorm8_202139162517.rar 大小:60.6K
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲▲ -
普通会员
2021/3/9 16:30:25
1楼: https://sourceforge.net/projects/flyutilsencrypt
----------------------------------------------
(C)(P)Flying Wang
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行42.96875毫秒 RSS