求Delphi版标准3DES算法源码？ -CSDN论坛

求Delphi版标准3DES算法源码？

Delphi > 语言基础/算法/系统设计

收藏回复

[问题点数：50分，结帖人duduxia]

⋅求火星文转换器源代码（或火星文字库）！ ⋅求Delphi版标准3DES算法源码？ ⋅窗体BorderStyle设置为bsNone后,以前在任务栏上隐藏应用程序的方法失效了！求解决方案。 更多帖子 关注私信空间博客 duduxia 等级 本版专家分：509 结帖率 100%: 在网上搜集DES的代码，即DES.pas，现在不知道怎么去实现3DES？
3DES
明文：123
密匙：123
密文：196B8739B17BBFF5

//3DES(加密) = DES(key1, 加密) DES(key2, 解密)  DES(key3, 加密)
//3DES(解密) = DES(key3, 解密) DES(key2, 加密)  DES(key1, 解密)
function AnsiEncryStr_3DES(Str, Key: AnsiString): AnsiString;
var
  Src,sKey  : AnsiString;
begin
  Result:='';
  Src:=Str;
  sKey:=Key;
  if Length(sKey)<24 then
     while Length(sKey)<24 do
      sKey :=sKey + AnsiChar(0);

  Result:=AnsiEncryStr(Src,   AnsiCopy(sKey,1,8));
  Result:=AnsiDecryStr(Result,AnsiCopy(sKey,9,8));
  Result:=AnsiEncryStr(Result,AnsiCopy(sKey,17,8));
end;

//XXX后8位无数据
procedure Make3Key(inKey: array of Byte; var outKey: array of TKeyByte);
const
  bitDisplace: array [0..23] of Byte =(
   1,1,2,2, 2,2,2,2, 1,2,2,2, 2,2,2,1,
   0,0,0,0, 0,0,0,0);

先求Make3Key的bitDisplace的24位表！
DES.PAS已有。

即3DES标准算法完整代码。

2009-05-15 06:38:34

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅求火星文转换器源代码（或火星文字库）！ ⋅求Delphi版标准3DES算法源码？ ⋅窗体BorderStyle设置为bsNone后,以前在任务栏上隐藏应用程序的方法失效了！求解决方案。 更多帖子 关注私信空间博客 duduxia 等级 本版专家分：509: 不好意思，多开了一个，以上请求删除！

2009-05-15 06:45:02

点赞只看TA 引用举报 #1得分 0

⋅求老马的联系方式，站短，谢谢 ⋅【打包工具分享】InnoSetup5.4增加对被打包的程序文件进行签名 ⋅Delphi嵌入式汇编版高性能Base64编码算法，欢迎拍砖&PK 更多帖子 关注私信空间博客 僵哥 等级 本版专家分：74099 勋章 进士 2008年总版技术专家分年内排行榜第九 红花 2009年1月 C++ Builder大版内专家分月排行榜第一 2008年12月 Delphi大版内专家分月排行榜第一 2008年11月 Delphi大版内专家分月排行榜第一 2008年10月 Delphi大版内专家分月排行榜第一 2008年6月 Delphi大版内专家分月排行榜第一 2008年1月 Delphi大版内专家分月排行榜第一 2005年7月 C++ Builder大版内专家分月排行榜第一 黄花 2009年1月 Delphi大版内专家分月排行榜第二 2008年12月 C++ Builder大版内专家分月排行榜第二 2008年7月 Delphi大版内专家分月排行榜第二 2005年7月 Delphi大版内专家分月排行榜第二 蓝花 2009年5月 Delphi大版内专家分月排行榜第三 2009年4月 Delphi大版内专家分月排行榜第三 2009年3月 Delphi大版内专家分月排行榜第三 2009年2月 C++ Builder大版内专家分月排行榜第三 2009年2月 Delphi大版内专家分月排行榜第三 2008年11月 C++ Builder大版内专家分月排行榜第三 2008年8月 C++ Builder大版内专家分月排行榜第三 2008年7月 C++ Builder大版内专家分月排行榜第三 2008年6月 C++ Builder大版内专家分月排行榜第三 2008年5月 Delphi大版内专家分月排行榜第三 2005年8月 C++ Builder大版内专家分月排行榜第三: http://topic.csdn.net/u/20071127/10/89632a17-b11f-4a5c-9628-6204cabfffb9.html

2009-05-15 08:50:31

点赞只看TA 引用举报 #2得分 10

⋅求火星文转换器源代码（或火星文字库）！ ⋅求Delphi版标准3DES算法源码？ ⋅窗体BorderStyle设置为bsNone后,以前在任务栏上隐藏应用程序的方法失效了！求解决方案。 更多帖子 关注私信空间博客 duduxia 等级 本版专家分：509: 引用 2 楼 unsigned 的回复:
http://topic.csdn.net/u/20071127/10/89632a17-b11f-4a5c-9628-6204cabfffb9.html

以上已经看过了。
测试结果不对。
3DES
明文：123
密匙：123
密文：196B8739B17BBFF5

3DES不同与DES的关键函数好像是
procedure Make3Key(inKey: array of Byte; var outKey: array of TKeyByte);
bitDisplace: array [0..23] of Byte =(
1,1,2,2, 2,2,2,2, 1,2,2,2, 2,2,2,1,

而DES函数是
procedure Make3Key(inKey: array of Byte; var outKey: array of TKeyByte);
bitDisplace: array [0..15] of Byte =(
1,1,2,2, 2,2,2,2, 1,2,2,2, 2,2,2,1)

2009-05-15 09:05:20

点赞只看TA 引用举报 #3得分 0

⋅CSDN站内服务怎么联系啊 ⋅help & manual生成chm文件乱码 ⋅求一简单Sql语句 更多帖子 关注私信空间博客 xiaowei_001 等级 本版专家分：2384: http://topic.csdn.net/u/20071127/10/89632a17-b11f-4a5c-9628-6204cabfffb9.html

2009-05-15 13:58:35

点赞只看TA 引用举报 #4得分 10

⋅求火星文转换器源代码（或火星文字库）！ ⋅求Delphi版标准3DES算法源码？ ⋅窗体BorderStyle设置为bsNone后,以前在任务栏上隐藏应用程序的方法失效了！求解决方案。 更多帖子 关注私信空间博客 duduxia 等级 本版专家分：509: 自己顶一下。

2009-05-20 02:23:38

点赞只看TA 引用举报 #5得分 0

⋅TComponentList的Add既然有毒！ ⋅如何调用保护成员？ 更多帖子 关注私信空间博客 hjcrf 等级 本版专家分：70: 用这个的人因该很多 3就是加密三次的具体哪个表才是标准的我也不大清楚
我自己用的都是非标准的呵呵

2009-05-20 07:20:37

点赞只看TA 引用举报 #6得分 10

⋅求火星文转换器源代码（或火星文字库）！ ⋅求Delphi版标准3DES算法源码？ ⋅窗体BorderStyle设置为bsNone后,以前在任务栏上隐藏应用程序的方法失效了！求解决方案。 更多帖子 关注私信空间博客 duduxia 等级 本版专家分：509: 楼上的有测试数据嘛？

2009-05-22 15:32:57

点赞只看TA 引用举报 #7得分 0

⋅求火星文转换器源代码（或火星文字库）！ ⋅求Delphi版标准3DES算法源码？ ⋅窗体BorderStyle设置为bsNone后,以前在任务栏上隐藏应用程序的方法失效了！求解决方案。 更多帖子 关注私信空间博客 duduxia 等级 本版专家分：509: 非标准的3DES，网上有资料了。
标准的3DES没有测试数据。
顶。

2009-05-23 05:41:54

点赞只看TA 引用举报 #8得分 0

⋅求火星文转换器源代码（或火星文字库）！ ⋅求Delphi版标准3DES算法源码？ ⋅窗体BorderStyle设置为bsNone后,以前在任务栏上隐藏应用程序的方法失效了！求解决方案。 更多帖子 关注私信空间博客 duduxia 等级 本版专家分：509: 自己顶一下。看还有高手没有？！

2009-05-29 11:51:27

点赞只看TA 引用举报 #9得分 0

⋅在线程中用shellexecute或winexe打开word文件,会关闭其它已打开的word文件的问题 ⋅光盘中的加密文件如何进行加密和读取 ⋅急：sqlserver 2005中如何导出数据表中字段的注释信息 更多帖子 关注私信空间博客 qiglave 等级 本版专家分：214: DES算法源码，直接调用 EnCrypt，DeCrypt即可,
太长了，不能超过8000,你在网上找一下，也可以找到。

sina的
http://down1.tech.sina.com.cn/download/pda/2004-05-08/3023.shtml

unit DESCrypt;

interface
uses
SysUtils;

function EnCrypt(aStr: string; acKey: string): string;
function DeCrypt(aStr: string; acKey: string): string;

implementation

type
TByte32 = array[1..32] of byte;
TSData = array[0..63] of byte;
TBlock = array[0..7] of byte;

const
SA1: TSData =
(1, 0, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1,
  0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1);
SA2: TSData =
(1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 0,
  0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1);
SA3: TSData =
(1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0,
  1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1);
SA4: TSData =
(0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1,
  1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1);
SA5: TSData =
(0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 1, 0,
  0, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 0, 0);
SA6: TSData =
(1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1,
  1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1);
SA7: TSData =
(0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0,
  0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1);
SA8: TSData =
(1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0,
  0, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1);
SB1: TSData =
(1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0,
  1, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1);
SB2: TSData =
(1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1,
  0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0);
SB3: TSData =
(0, 0, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 1, 0, 1, 0,
  1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1);

2009-05-30 16:07:17

点赞只看TA 引用举报 #10得分 10

1 2

收起

收藏回复

duduxia

等级：

关注私信 TA的帖子

delphi编写的3des算法源码: 自己用DELPHI改写JAVA的3DES算法,返回与JAVA的算法一致，是与银行开发接口用到的一段算法代码。

3des算法源码: using System;using System.Text;using System.IO;using System.Security.Cryptography;class Class1{static void Main(){ Console.WriteLine("Encrypt String..."); txtKey = "tkGGRmBErv...

易语言3DES,DES,AES加密算法纯源码: 易语言3DES,DES,AES加密算法纯源码

DES加密算法C++源码详细注释: 密码学实验课上把老师给的代码简单地添加了一些注释，原来有一部分注释。 #include <stdio.h> #include <memory.h> #include <string.h> typedef bool (*PSubKey)......

DES C++加密算法源码: DES加密算法源码， c++代码, 用于学习DES加密算法。

3des加解密（+MD5） c++实现（附源码）: 1975年美国IBM公司成功研究并发布了DES加密算法，但DES密码长度容易被暴力破解，通过对DES算法进行改进，针对每个数据块进行三次DES加密，也就是3DES加密算法。但由于3DES的算法是公开的，所以算法本身没什么秘密...

3DES加密算法: 3DES（或称为Triple DES）是三重数据加密算法（TDEA，Triple Data Encryption ...3DES即是设计用来提供一种相对简单的方法，即通过增加DES的密钥长度来避免类似的攻击，而不是设计一种全新的块密码算法 3DES（即Tr...

DES/3DES算法C语言实现: 1、完整的DES/3DES算法，C语言实现，可用于金融POS安全认证； 2、DES-ECB加密/解密、DES-CBC加密/解密 3、3DES-ECB加密/解密、3DES-CBC加密/解密 4、内含测试程序，在Linux环境下进入目录后make即可编译，已经在...

Delphi AES DES MD5 RSA BASE64等加密算法源码实例集.rar: Delphi加密算法集，包括了Delphi AES DES MD5 RSA BASE64 2DES 3DES Blowfish CRC32-Static SHA等常用的加密算法用法实例，比较不错的Delphi加密实例代码了，浅显易懂而且实用的常见加密算法实例，包括字符串和文件...

DES算法Java实现源代码: DES算法Java实现源代码；网络安全技术及应用；java图形界面实现

DES算法代码实现: DES是一个16轮的Feistel型结构密码，它的分组长度为64比特，用一个56比特的密钥来加密一个64比特的明文串，输出一个64比特的密文串。其中，使用密钥为64比特，实用56比特，另8位用作奇偶校验。加密的过程是先对64位...

Java实现DES对称加密算法（附Android下3DES的JNI源码）: Java实现DES对称加密算法 Sun公司在Java Platform Standard Ed.6中引入了javax.crypto软件包，javax.crypto软件包为加密操作提供类和接口。在此包中定义的加密操作包括加密、密钥生成和密钥协商，以及消息验证码...

3des加密算法C语言实现: 3DES加密算法的C语言实现代码，很好很实用.

DES和3DES加密算法C语言实现: DES和3DES加密算法C语言实现记录DES和3DES加密算法最简洁易懂的C语言源码主要是要用到CBC这部分的算法，后边也有一个工具可以提供验证，因为网上的工具含有CBC的很少，也方便大家吧 #define MBEDTLS_DES_ENCRYPT 1...

DES和3DES加密算法，C语言，适用于单片机: //3DES算法 unsigned char D3DES_Encrypt(unsigned char *plainBuffer, unsigned char *keyBuffer, unsigned char *cipherBuffer);//加密数据 unsigned char D3DES_Decrypt(unsigned char *cipherBuffer, unsigned ...

基于java类库的DES加密算法源码: import java.security.*; import java.text.SimpleDateFormat; import java.util.Date; import javax.crypto.Cipher; import javax.crypto.SecretKey; import javax.crypto.SecretKeyFactory;...

DES算法实例详解: DES算法实例详解码农场 &amp;gt; 信息安全 2016-02-29 ...

基于java类库的3DES加密算法实现: 别看3DES的代码很复杂，其实和DES代码一样，核心代码就那么几行加密部分的核心 Cipher cipher = Cipher.getInstance("DESede/ECB/PKCS5Padding"); cipher.init(Cipher.ENCRYPT_MODE, deskey); return cipher.doFinal...

DES算法C语言可运行源代码: 代码转载自： ... 题外话1：代码虽然不是我写的，但我还是针对评论区里的两个问题在代码里加了注释 ( gets_s函数“未定义”、 ...“什么玩意，忽悠人呢，不走那个解密函数直接输出还不是原来输入的明文？...

Delphi7和Delphi2010通用的DES加解密单元: 之前在Delphi7中使用了一个Des的加解密单元，但是程序升级为2010时，这个算法在2010时不能使用的了！但是因为必须兼容以前的软件，所以必须将Delphi7中的Des单元修改为Delphi2010能用，而且两都之间可以互相加解密...

DES与3DES 加解密实例（c++）: DES与3DES 加解密实例（c++）DES原理：DES算法是一种对称密码算法，也是一种分组加密的算法，以64位分组对数据加密的，其密钥长度为64位，密钥事实上是56位参与DES运算（第8、16、24、 32、40、48、56、64位是...

Java | 使用 3DES 进行加密解密 (附源码): Java | 使用 3DES 进行加密解密 (附源码) 本文主要用了两个参数进行加密解密，一个key：秘钥，一个iv：偏移量；如果不想要偏移量的，可以适当去除，使用cipher.init()方法，只传入两个参数即可； cipher.init...

常用算法源码3des|aes|mac|md5|rc|sha: 常用算法源码 支持vc6，常用算法都在里面了，非常使用，老外写的，质量不错 authenticated encryption schemes GCM, CCM, EAX, OCB high speed stream ciphers ChaCha (ChaCha8/12/20), Panama, Sosemanuk, Salsa20,...

完全与标准算法一致的asp的3des，base64，SHA1源码: 完全与标准算法一致的asp的3des，base64，SHA1源码, 经过测试完全与C# java的标准算法一致

DES加密算法（C语言版）源代码: 采用C语言实现的DES加密算法，支持文件的加解密，其中包含源代码及可执行程序。

DES加密算法C语言源码: CPU卡读写时有外部认证，认证要用到3DES加密 CPU卡加密算法

JAVA上百实例源码以及开源项目源代码: Java局域网通信——飞鸽传书源代码 28个目标文件内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码，大家都知道VB版、VC版还有Delphi版的飞鸽传书软件，但是Java版的确实不多，因此这个Java...

2019年美赛D题一等奖论文: 2019年数模美赛D题一等奖论文中文版本与最终版本，这里面卢浮宫的疏散方法可以修改为任意一篇快速疏散论文，搞数模竞赛的同学可以进行下载学习。

FFMpeg视频开发与应用基础——使用FFMpeg工具与SDK: FFMpeg是当今为的面向音视频开发的开源工程，广泛应用于多种音视频的客户端、播放器和流媒体服务器中。使用FFMpeg提供的工具和SDK，可以完

Android Studio 开发详解: Android Studio教程，该教材会详细介绍Android Studio如何使用，包括在Windows平台下载安装Android Studio、配置、代码重

相关热词 c# 设置窗体为激活 c# 同步发送 c# 多进程锁 c# 读取类的属性和值 c# out 使用限制 c#获取url的id c# update 集合 c# 公众号菜单 c#for迭代 c#指针应用