RSS订阅 | 匿名投稿
您的位置:网站首页 > 加密

Delphi 带密匙的字符串加密解密函数(支持中文)

usesAnsiStrings;FunctionJiaMi(Src:String;Key:String):String;varKeyLen:Integer;KeyPos:Integer;offset:Integer;dest:String;SrcPos:Integer;SrcAsc:Integer;<...
类别:加密 标签: 作者:admin 日期:2018-02-11 21.11.29

delphi 简单的英文数字字符串加密解密函数(不支持中文)

functionEncryptSettings(Str:String):String;varX,Y:Integer;A:Byte;Key:string;beginKey:='Fi7ke';//这个是加密钥匙,你可以随便设置,但解密钥匙要一样,不然解不了密Y:=1;forX:=1toLength(Str)dobeginA:=(ord(Str[X…
类别:加密 标签: 作者:admin 日期:2018-02-11 20.54.08

delphi Base64加解密模块

支持D2007之前的版本{*******************************************************}{}{YxdIncludeBase64加解密模块&n...
类别:加密 标签: 作者:admin 日期:2018-02-11 13.36.11

Delphi原生方法取得文件的MD5

Delphi自带了System.Hash单元,提供了相关的方法,处理Hash相关内容,经过几个版本,已经成熟。利用他提供的功能,我们很容易实现取得文件的MD5.ifFileExists(lpath)thenbeginms:=TMemoryStream.Create;tryms.LoadFr…
类别:加密 标签: 作者:admin 日期:2018-02-11 13.10.31

delphi USBKey访问、Delphi、JS

1,需要访问的东西是USBKey,里面有2张证书,分别是签名和加密证书。2,通过https方式上传xml,上传之前必须先给xml签名,xml的签名必须通过数字证书的私钥签名。3,私钥的访问通过capicom.dll。这是微软提供的一个c…
类别:加密 标签: 作者:admin 日期:2018-02-06 23.46.39

delphi xe 可用的MD5算法

unitMD5;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeMD5Count=array[0..1]ofDWORD;MD5State=array[0..3]ofDWORD;MD5Block=array[0..15]ofDWORD;MD5CBi…
类别:加密 标签: 作者:admin 日期:2018-02-05 15.37.52

DELPHI SHA1加密函数

usesSystem.SysUtils,System.Types,System.UITypes,System.Classes,System.Variants,FMX.Types,FMX.Con****ols,FMX.****s,FMX.Graphics,FMX.Dialogs,Androidapi.JNI.GraphicsContentViewText,Androidapi.JNIBridge,A…
类别:加密 标签: 作者:admin 日期:2018-01-18 08.05.47

Delphi 字符串加密与解密函数

EncdDecd单元:EncodeString、DecodeString、EncodeBase64、DecodeBase64usesEncdDecd;conststr='万一的Delphi博客';procedureTForm1.Button1Click(Sender:TObject);varstrEncode,strDecode:string;beginstrEncode:=E…
类别:加密 标签: 作者:admin 日期:2018-01-12 20.02.12

Delphi Base64编码/解码及ZLib压缩/解压

最近做项目用到Base64编码及ZLib压缩,发现Delphi自带的Base64编码与java的Base64编码不一致,找了很多方法才解决这个问题,在这里来作一些总结:压缩方法:S****ToBase64(AnsiS****ing(GZCompressS****(s****)));解压…
类别:加密 标签:Base64 作者:admin 日期:2018-01-09 08.02.49

delphi 使用 LockBox 做加密解密

Delphi提供的加密解密控件中,LockBox是一套非常优秀的开源控件。其前身是TruboPowerLockBox是一套商业控件。LockBox到Version2的时候决定开源。因此有LockBox2,和之前的商业控件完全一样。后来,有人另外写了一套,…
类别:加密 标签: 作者:admin 日期:2018-01-05 14.16.57

Delphi中的SHA256算法

在Delphixe中可以直接使用TIdHashSHA256来实现SHA256算法,代码如下usesIdHashSHA,IdSSLOpenSSLHeaders;varSHA256:TIdHashSHA256;SHA256:=TIdHashSHA256.Create;Password_p:=LowerCase(SHA256.HashStringAsHex(Passw…
类别:加密 标签: 作者:admin 日期:2018-01-03 22.27.31

delphi EXE文件自效验

varstream:TMemoryStream;CrcValue,OldCrcValue:DWORD;exename:string;WriteBuf:array[0..3]ofByte;beginCRCValue:=$FFFFFFFF;//预设WriteBuf[0]:=$00;WriteBuf[1]:=$00;WriteBuf[2]:=$00;WriteBuf[3]:=$00;exename:…
类别:加密 标签: 作者:admin 日期:2018-01-02 14.37.52

Delphi XE8 支持MD5

XE8新带了一个单元文件:System.Hash,其实,实现了三个类,分别是:THashTHashMD5THashSHA1原生实现对MD5及SHA1的支持!以MD5为例,很容易取一个串的MD5值。procedureTForm40.Button2Click(Sender:TObject);varmd5:TH…
类别:加密 标签: 作者:admin 日期:2015-12-14 22.36.18

Delphi XE6 android 实现Base64字符串的解析

介绍本文章介绍了DelphiXE6实现Base64字符串的解析,首先将Base64字符串转换成TStringStream,然后将TStringStream字符串转换成UTF8.具体代码procedureTForm1.Button1Click(Sender:TObject);varf:TFileStream;InStr,…
类别:加密 标签: 作者:admin 日期:2015-04-16 15.36.49

Delphi XE7使用本身的MD5单元进行字符串加密

介绍本文章介绍了DelphiXE7使用本身的MD5单元进行字符串加密,在delphiXE7安装目录下面有一个MessageDigest_5单元,我本地在下面的路径中E:\ProgramFiles(x86)\Embarcadero\Studio\15.0\source\soap\wsdlimporter\Me…
类别:加密 标签: 作者:admin 日期:2015-04-16 13.35.12

Delphi自有的MD5函数

MessageDigest_5.pas路徑source/Win32/soap/wsdlimporterusesTypes,MessageDigest_5;procedureTForm1.Button1Click(Sender:TObject);varMD5:IMD5;beginMD5:=GetMD5;MD5.Init;MD5.Update(TByteDynArray(RawByteString…
类别:加密 标签: 作者:admin 日期:2014-10-29 19.40.39

Delphi AES加密

(**************************************************************)(*AdvancedEncryptionStandard(AES)*)(*InterfaceUnitv1.3&...
类别:加密 标签: 作者:admin 日期:2014-08-05 16.42.31

delphi实现MD5算法

unitMD5;interfaceusesWindows,SysUtils;//自定函数计算字符串的MD5值functionStrToMD5(str:string):string;//计算字符串的MD5值functionFileToMD5(FilePath:string):string;//计算文件的MD5值typeMD5Count=array[0.…
类别:加密 标签: 作者:admin 日期:2014-08-05 15.52.02

Delphi XE2获取文件的 MD5、CRC、SHA-1、SHA-256、SHA-512

unituntCheckCode;interfacefunctionGetFile_MD5(constiFileName:String):String;//获取文件MD5functionGetFile_CRC(constiFileName:String):String;//获取文件CRC<b...
类别:加密 标签: 作者:admin 日期:2014-08-05 00.36.39

delphi 获取文件CRC和MD5

unituntCRCMD5;interface{获取文件CRC校验码}functionGetFileCRC(constiFileName:string):String;{获取字符串CRC校验码}functionGetStringCRC(constStr:string):Cardinal;{取文件MD5码}functionGetFileMD5(constiFil…
类别:加密 标签: 作者:admin 日期:2014-08-05 00.20.52