该资源内容由用户上传，如若侵权请选择举报

DELPHI各种字符串加密解密方法

所需积分/C币：50 2017-11-08 14:18:23 5KB PAS
188

收藏
举报

Delphi 各种字符串的加密解密方法，含括2007版本和2012版本的加密解密方法

...展开详情

加密解密

立即下载

低至0.43元/次身份认证VIP会员低至7折

一个资源只可评论一次，评论内容不能少于5个字

Delphi DES加密解密单元 58182014-04-25unit DES; interface uses SysUtils; type TKeyByte = array[0..5] of Byte; TDesMode = (dmEncry, dmDecry); function EncryStr(Str, Key: String): String; function DecryStr(Str, Key: S
DELPHI、PHP、C#通用DES编码解码单元 (DELPHI下使用的代码) 22342016-10-18unit uDES; {*********************************************************} {* DELPHI、PHP、C#通用DES编码解码单元 *} {* blessed 2016-10-18 *} {****************************************
Delphi 带KEY字符串加密解密(支持中文) 5552020-06-16unit Unit2; interface uses Winapi.Windows, System.SysUtils , AnsiStrings; Function JiaMi(Src:String; Key:String):String; Function JieMi (Src:String; Key:String):String; implementation Function JiaMi(Src:String; Key:String):String; var KeyLen :
Delphi字符串加密解密算法 3412014-01-262019独角兽企业重金招聘Python工程师标准>>> ...
【经验】Delphi字符串加密解密函数 5462019-03-04const XorKey: array[0..7] of Byte = ($B2, $09, $BB, $55, $93, $6D, $44, $47); //字符串加密用 function Enc(Str: string): string; //字符加密函數這是用的一個異或加密 var i, j: Integer; begin Result :=...
Delphi 字符串加密和解密函数 472021-03-30泰山老父的Delphi 字符串加密和解密函数 function Encrypt(const InString:string; Salt:string): string; var i : Byte; StartKey, MultKey, AddKey: Word; begin Result := ''; if (Salt = '') then begin Result := InString; end else begin StartKey := Length(S.
172KB

delphi 字符串带密钥简单加密解密
2019-04-03
delphi 字符串带密钥简单加密解密，一个完整的演示测试，加密结果串根据密钥变化而变化，加密与解密演示小程序一目了然
delphi 加密字符串 30432009-08-181.function EncrypStr(Src, Key: String): String;//字符串加密函数 //对字符串加密(Src:源 Key:密匙)var KeyLen :Integer; KeyPos :Integer; offset :Integer; dest :string; SrcPos :Integer; SrcAsc :Integer;
265KB

delphi 字符串加密解密小程序
2013-11-16
通过delphi 实现对字符串进行加密和解密操作
Delphi字符串加密/解密 472016-01-16unit uEncrypt_Decrypt; interface uses SysUtils; const XorKey: array[0..7] of Byte = ($B2, $09, $AA, $55, $93, $6D, $84, $47); //通过密钥Key加密 function EncryptString(Source, Key: string): ...
219KB

delphi开发的md5字符串加密工具
2012-12-29
1.支持回车键立即加密结果 2.点击加密结果框，自动复制到剪切板 3.程序小巧，免安装绿色
DELPHI 字符串加解密（自定义KEY） 2162020-06-16unit CnDES; interface uses SysUtils; function EncrypStr(Src, Key: String): String;//字符串加密函数 function UncrypStr(Src, Key: String): string;//字符串解密函数 implementation function EncrypStr(Src, Key: String): String;//字符串加密函数 //对字符串加密(Src:源 Key:密匙) var KeyLen :Inte
简单的Delphi字符串加密解密函数 31772009-02-18const XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); //字符串加密用function Enc(Str:String):String;//字符加密函數這是用的一個異或加密var i,j:Integer;begin Result:=; j:=0; for i:=1 to L
9KB

Delphi DES 加密解密
2010-05-17
Delphi写的使用Des算法对字符串进行加密解密函数，文件中包含例子。
delphi 对字符串进行加密实现 6832013-11-28首先有两个自定的转换函数： function myStrToHex(s:string):string; //字串转16进制 var TmpStr:string; i:integer; begin TmpStr:=''; for i:=1 to Length(s)do TmpStr:=TmpStr+IntToHex(ord
加密和解密(delphi实现) 30752007-04-16//加密流程：先把每个字符与自己在字符串中的位置异或运算，然后再与密钥进行异或运算//然后把密钥加在最后，最后把所得的结果进行base64编码//解密时反之：先解码，再解密。function TfrmClassRoom.CryptStr(const s: string; stype: smallint): string;var i, fkey: integer; sInput:string;
165KB

delphi加密解密算法
2011-10-20
用delphi写的加密解密算法，闲暇之余写的
Delphi 加密解密 12202007-11-06 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
384KB

delphi解密加密源码
2010-08-28
delphi解密加密源码,dll调用如果担心程序密码被人破解，可在你的程序里直接调用dll文件使用，调用方法在程序源码里可以找到。
375KB

delphi异或加密
2011-04-02
delphi 异或加密对字符串进行异或加密，将连接信息用ini文件显示出来，显示出来的是加密过的字符。
208KB

delphi实现文件加密解密
2013-01-23
delphi实现文件加密解密
976KB

AES for Delphi 加密解密
2018-06-01
AES for Delphi 加密解密，代码在Delphi10.2.3下已调试通过。算法模式包含： CBC(Cipher Block Chaining,加密块链) 模式、 ECB(Electronic Code Book,电子密码本) 模式加密结果包含：十六进制、base64 补码方式：PKCS5Padding 密钥长度：128、192、256
2.48MB

delphi加密解密源码
2019-01-19
Delphi xe10.2.3下通过，加密解密源程序，多种加密解密算法。
314KB

delphi 文件加密解密（支持大文件）
2014-09-25
CSDN也有相同的资源，不过缺少关键性代码，而这份是完整源码，在D7下可直接使用，经过测试1G大小内的文件皆可加密。 Delphi实现CryptAPI加密文件、解密文件的示例源码，选择需要加密加密的文件，设置密码，可轻松实现加密，同时程序还实现解密。
Delphi 字符串加密算法 (基于DES) 81032012-10-19unit xDes; interface uses SysUtils; type TKeyByte = array[0..5] of Byte; TDesMode = (dmEncry, dmDecry); function EncryStr(Str, Key: String): String; function DecryStr(Str, Key: Stri

您会向同学/朋友/同事推荐我们的CSDN下载吗？

非常推荐推荐无所谓不推荐非常不推荐

谢谢参与！您的真实评价是我们改进的动力~

技术咸鱼

码龄4年

暂无认证

关注私信

上传资源赚钱or赚积分

最新推荐

下载 20210507-招商证券-宏发股份-600885-一季度经营大超预期，增长中枢进一步上移.pdf
20210507-招商证券-宏发股份-600885-一季度经营大超预期，增长中枢进一步上移.pdf
下载函数规划优化求解.rar
函数规划优化求解.rar
下载 MySQL基础入门笔记
MySQL基础入门笔记
下载 20210507-川财证券-高端制造~科技行业物联网周报：首批智慧城市与智能网联汽车协同发展试点城市确定.pdf
20210507-川财证券-高端制造~科技行业物联网周报：首批智慧城市与智能网联汽车协同发展试点城市确定.pdf
下载随机需求车辆路径问题的混合遗传算法研究_韩娟娟.caj
随机需求车辆路径问题的混合遗传算法研究_韩娟娟.caj
下载 20210506-长江证券-纺织品、服装与奢侈品行业2020年&2021Q1综述：收入修复明显，资产质量趋优，未来可期.pdf
20210506-长江证券-纺织品、服装与奢侈品行业2020年&2021Q1综述：收入修复明显，资产质量趋优，未来可期.pdf
下载 AD9833模块设计+C51_STM32_资料.rar
AD9833模块设计+C51_STM32_资料.rar
下载 miaobiao.rar
miaobiao.rar
下载 20210507-中金公司-震安科技-300767-建筑减隔震行业龙头，需求爆发的核心受益者.pdf
20210507-中金公司-震安科技-300767-建筑减隔震行业龙头，需求爆发的核心受益者.pdf
下载 20210507-中信建投-化工行业：景气反转之下行业盈利极大改善；化工重仓比例连续四个季度回升.pdf
20210507-中信建投-化工行业：景气反转之下行业盈利极大改善；化工重仓比例连续四个季度回升.pdf