Delphi 加密解密

最新推荐文章于 2026-07-05 13:55:24 发布

原创最新推荐文章于 2026-07-05 13:55:24 发布 · 1.8k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

当前文章被以下社区和专栏收录：

本文介绍了一个使用Delphi实现的加密与解密过程示例。通过TDCP_blockcipher组件采用CFB模式对字符串进行加密，并使用Base64进行编码与解码。示例包括了文件读写操作及简单的用户界面交互。

procedure TForm3.FormCreate(Sender: TObject);

var

RegI: String;

F: TextFile;

Cipher: TDCP_blockcipher;

S: string;

begin

AssignFile(F, GetSysDir+'test.txt');

Reset(F);

Readln(F,S);

CloseFile(F);

Cipher:= TDCP_blockcipher(DCP_cast2561);

Cipher.InitStr('Key');

S:= B64Decode(S);

Cipher.DecryptCFB(S[1],S[1],Length(S));

Cipher.Reset;

Cipher.Burn;

ShowMessage(S);

end;

procedure TForm3.cxButton2Click(Sender: TObject);

var

RegI: String;

F: TextFile;

Cipher: TDCP_blockcipher;

S: string;

begin

RegI := 'This is a book.';

Cipher:= TDCP_blockcipher(DCP_cast2561);

Cipher.InitStr('Key');

Cipher.EncryptCFB(RegI[1],RegI[1],Length(RegI));

S := B64Encode(RegI);

Cipher.Reset;

Cipher.Burn;

AssignFile(F, GetSysDir+'test.txt');

Rewrite(F);

Writeln(F,S);

CloseFile(F);

end;

dcpcrypt1.31

function TForm3.EnC(S:string):String;

begin

DCP_cast2561.InitStr('HZQ-1982.1983');

DCP_cast2561.EncryptCFB(S[1],S[1],Length(S));

S := B64Encode(S);

DCP_cast2561.Reset;

DCP_cast2561.Burn;

Result := S;

end;

function TForm3.DeC(S:string):String;

begin

DCP_cast2561.InitStr('HZQ-1982.1983');

S := B64Decode(S);

DCP_cast2561.DecryptCFB(S[1],S[1],Length(S));

DCP_cast2561.Reset;

DCP_cast2561.Burn;

Result := S;

end;

标签

#delphi #加密 #string #function #解密

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

强哥83

关注关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

Delphi RSA加解密(一)

02-23

2939

Delphi RSA加解密支持中文 GBK UTF8

参与评论您还未登录，请先登录后发表或查看评论

delphi简单的文件加密和解密（异或运算）

qq_45083002的博客

12-07

1272

在这个代码中，加密和解密的过程是一样的，因为它们使用了异或运算（xor），而异或运算是可逆的。在加密过程中，将每个字节与密钥的右移8位进行异或运算，得到加密后的字节，并将加密后的缓冲区写入输出文件。在解密过程中，同样对每个字节进行异或运算，使用相同的密钥进行解密，得到原始的字节，并将解密后的缓冲区写入输出文件。需要注意的是，这种简单的异或运算并不是一种强大的加密算法，它只是一个基本的示例。在实际的加密应用中，我们需要使用更加复杂和安全的加密算法，如AES或RSA等。

dcpcrypt-2.0.4.1 (1)_TDCP_twofish_delphi_TDCP_ICE_DCPmisty1_

10-01

delphi dcpcrypt2 updated latest version

2022年5月14号:Json第一课:

qq_56248592的博客

05-14

651

第一点:JSON的定义:JSON(JavaScript Object Notation, JS 对象简谱) 是一种轻量级的数据交换格式。它基于 ECMAScript (欧洲计算机协会制定的js规范)的一个子集，采用完全独立于编程语言的文本格式来存储和表示数据。简洁和清晰的层次结构使得JSON成为理想的数据交换语言。第二点在这之前你要会Ajax的内容.首先回顾Ajax的内容。 Object Notation, JS 对象简.....

delphi php 加解密,AES使用DCrypt在Delphi(10 Seattle)中加密字符串,使用PHP / OpenSSL解密...

weixin_39626131的博客

03-10

657

使用DCrypt在Delphi中使用此代码：Uses DCPcrypt2, DCPblockciphers, DCPrijndael, DCPbase64;procedure TForm1.Button1Click(Sender: TObject);var Cipher : TDCP_rijndael;ss, k, Data, Key, IV : Ansistring;constKeySize =...

【Delphi】支付宝RSA签名之Delphi实现

qq_18932003的博客

11-24

614

Delphi有个很大的问题就是，厂商的不作为(没有封装标准的Cipher类库)，让大家自己造轮子。今天的轮子就是RSA签名，由于Delphi没有封装Cipher类库，所以只的自己写了。因为要在Firemokey中实现RSA算法，用于手机端，心里有二个方案： 1. 实现RSA算法 2. 通过Java封装一个实现了RSA的包，通过Delphi来调用当然结果通过了1实现，参考了网...

【闪耀DTCC】助力DTCC2016！白金合作伙伴瀚高软件确定加盟！

04-21

227

一年一度的数据盛宴来啦！DTCC 2016中国数据库技术大会将于5月12日-14日在北京国际会议中心盛大召开！山东瀚高基础软件股份有限公司作为DTCC大会的白金合作伙伴，确认将助力大会，...

NKN双周报 2020年5月1日至2020年5月15日

NKNORG的博客

05-28

1047

图源：NKN Bull 看点 nMobile新Beta版本的社区测试已上线未来智能家居 NKN与以应用为中心的虚拟网络移动聊天应用调查问卷抽奖结果出炉 nLearning文章推送主网技术开发更新主网最新统计数据（截止至2020年5月19日）：遍布34个国家与地区覆盖173个电信运营商/云服务提供商包含13,058个全节点主网最新稳定版本为v1.1.7-beta （https://github.com/nknorg/nkn/releases） nMobil...

2018年5月工作计划（每日22:00定时更新）

YongzeJin的博客

05-03

580

5月工作计划5月3日（星期四）上午计划：高斯和专利撰写完成状态：35%下午计划：同上完成状态：60%晚上计划：开会，撰写专利完成状态：80%5月4日（星期五）上午高斯和专利撰写；图片处理完成状态：87%下午计划：同上，牵引模型讨论完成状态：90%晚上计划：同上完成状态：95%，等待老师审查通过，制作ICIEA海报5月5日（星期六）上午论文实验仿真，修改论文完成状态：修改下...

n8n工作流排行榜5月榜单

sscc001的博客

05-29

1035

delphi 文件加密解密（支持大文件）

09-25

CSDN也有相同的资源，不过缺少关键性代码，而这份是完整源码，在D7下可直接使用，经过测试1G大小内的文件皆可加密。 Delphi实现CryptAPI加密文件、解密文件的示例源码，选择需要加密加密的文件，设置密码，可轻松实现加密，同时程序还实现解密。

2025年5月14日十二生肖今日运势

weixin_49016051的博客

05-13

287

小运播报：2025年5月14日，星期三，农历四月十七（乙巳年辛巳月癸未日），法定工作日。红榜生肖：马、兔、猪需要注意：狗、鼠、牛喜神方位：东南方财神方位：正南方宜：宴会、开业、交易、签约、出货、进人口忌：置业、纳财幸运数字：3、6幸运颜色：绿色、灰色、翠色属马人展现自我的绝佳时刻。倘若你脑海中有新颖想法或优质建议，别犹豫，赶紧大胆提出来，极有可能获得众人的一致认可，满满的成就感会随之而来。而且今日贵人相助的力量十分强大，很适合组织或参与聚会，不妨约上家人朋友一同享用晚餐，共享欢乐时光。属兔人好运连连，思

2026年5月14日更新：ChatGPT 移动端远程访问 Codex 与文件库扩展

07-05

1万+

摘要： 2026年5月14日，OpenAI为ChatGPT推出两项重要更新：移动端远程访问Codex：用户可通过手机应用连接正在主机运行的Codex任务，实时查看终端输出、代码差异等上下文，支持任务审批、方向调整等操作，尤其适合需长时间运行且需人工干预的技术任务（如脚本调试、日志分析）。文件库功能扩展：免费及Go套餐用户可使用文件库管理上传或生成的文件（如文档、表格、图片），支持跨会话复用，并新增存储管理功能（不同套餐容量不同）。此次更新强化了移动场景下的任务延续性与文件复用效率，为开发者、运维人员等

每日新闻掌握【2025年5月14日星期三】

06-04

526

科创会（NIICON）第八论坛即将在5月14日召开

xhwuli的专栏

05-10

按照科技部等六部委《关于推动产业技术创新战略联盟构建的指导意见》的工作要求，决定于2021年5月13日至14日在北京国际会议中心召开∶"第一届国际互联网产业科技创新大会暨互联网创新产品展览会"(英文简称∶“NIICON”中文简称∶“科创会”)。　　会议时间：2021年5月13日(星期四)-14日(星期五) 　　会议地点：北京国际会议中心(北京市朝阳区北辰东路8号院3号楼) 　　组织机构　　指导单位：国家六部委：科技部、发改委、工信部、财政部、教育部、国资委、辽宁省科学技术厅　　主办单位：国家

谷歌开发者账号：企业号和个人号的区别与优劣势对比

m0_72996522的博客

12-29

5628

根据近期谷歌开发者账号的热点和测试情况，与大家探讨一下企业号和个人号的区别和优劣势对比，以及后续可能的发展方向。个人号问题分析由于过去个人号的滥用行为，谷歌采取了多项风险控制措施，这些措施包括了对注册地区进行限制，导致频繁出现二次验证的情况，以及其它的资料审核的风控。在9-10月期间，谷歌封禁了大量个人账号，虽然有些地区（如香港）在二次验证上有一定的豁免，但总体而言，个人账号的风控并未解除。尤其在5月份和9月份，许多开发者向谷歌提交了个人账号注册模型，他们几乎尝试了所有的方法，这给谷歌提供了非常多的违规样本

[5月14号] 51CTO编辑部外传

weixin_33857230的博客

05-14

130

[5月14号] 51CTO编辑部外传小雨三环送别革命我与棉棉认识三年有余，前两合作，一年同事，三年下来，我对她的评价一直是：她是个很简单的姑娘，她能吃苦，人善良，好沟通。你有什么事，交给她一准儿不用有顾忌。这姑娘让你觉得她就是你家邻居张大妈的女儿。人很单纯，是老杨的爱将。2009年5月8日，因不可抗拒的事宜，棉棉离开了编辑部。那天中午，编辑部所有同仁...

2024年5月14号PMP每日三题含答案

yshxjoy的专栏

05-14

430

许多不同意见意味着冲突，成功的冲突管理可提高生产力，改进工作关系。将冲突作为问题记录下来，寻找解决方案并监督落实。缺乏技能，对其进行培训，建设团队的工具。A.确保项目会议提供重要的信息，包括正面和负面的信息，可用于讨论。C.安排该主题专家参与沟通课程来提高其技能，有助于积极的支持团队。B.与该主题专家会面，以获得重要信息，然后传达给团队的其他成员。D.寻找能够更好地将其想法传达给团队的另一位经验丰富的资源。C.启动一个新的范围定义，并与所有项目干系人进行协商。B.更新问题日志并监督该冲突的解决方案。

php 月份查询生日_5月生日的会员，你的生日礼品已到达，请及时领取~

weixin_39917485的博客

12-15

105

又又又到了每个月给大家送礼物的时间了5月生日的朋友们让我看看你们在哪里你的生日福利已到达请赶紧过来领取吧~【5月会员生日礼】领取群体：5月生日且入会后有过消费的钻石卡、金卡、贵宾卡会员领取时间：5月14-17日领取地点：1F总服务台查询方式：官方微信—会员尊享—礼品券【钻石卡会员-价值299元养生壶】“一壶在手天下我有”的热门小家电—养生壶院长也给你们安排上啦~无论是在办公室还是在家里...