排序
delphi 异或加解密
function Int_encrypt(s:string; lkey : Integer):string;begin //大于5位乘87209会有问题,改成乘以13可以支持8位 //Result := IntToStr(...
Delphi计算MD5
Delphi计算MD5在密码学中,MD5(消息摘要算法5,消息摘要算法5)是一种128位密码减少算法,是当今使用最广泛的算法之一。最常用的用途之一是检查文件是否尚未修改。使用它的最好的例子之一是,...
Delphi-改进获取文件MD5 Hash方法
序言之前所说的获取文件MD5方法有性能问题,没多久我就遇到了,程序假死,卡顿。因此将获取文件MD5的方法改了一下,并测试了一下,大概性能提升了5倍,获取同一个文件的MD5,老方法用时是新方法...
Delphi 10 Berlin System.Hash MD5 SHA1 SHA2 Hash
uses System.Hash;function GetStrHashMD5(Str: String): String;var HashMD5: THashMD5;begin HashMD5 := THashMD5.Create; HashMD5.GetHashString(Str)...
Delphi HMACSHA256
uses IdGlobal, IdHashSHA, IdHMAC, IdHMACSHA1, IdSSLOpenSSL;function CalculateHMACSHA256(const value, salt: String): String;var hmac: TIdHMACSHA256; hash: TIdBytes...
delphi 自带单元字符MD5加密
uses System.Hash, System.DateUtils;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var md5: THashMD5; //加密后的信息begin Edit2.Text := UpperCase(md5.Get...
Delphi Base32 的加密和解密
const ValidChars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ234567'; // Base32解码function Base32Decode(const source: string): string;var UpperSource: string; p, i, l, n, ...
delphi MD5加密BASE64加解密
MD5需要引入system.Hash,BASE64需要引入System.NetEncoding,这两个单元应该只有高版本的DELPHI IDE才有(貌似XE5以上版本才有)。如果是D7的话,找第三方的库。procedure TForm19.Button8Clic...
delphi 控制台Base64加密解密
program demo;{$APPTYPE CONSOLE}{$R *.res}uses System.RTLConsts, System.SysUtils;const conBase64Out: array[0..64] of AnsiChar = ( 'A', 'B', 'C', 'D', ...
Delphi 字符串加密解密(不支持中文)
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdC...
Delphi 使用Windows API(WinCrypt)计算文件MD5哈希,支持大文件
Delphi 默认没有WinCrypt相关函数的定义所以引用JwaWinCrypt{jedi-apilib}单元将 CryptCreateHash(hProv, CALG_MD5,0, 0, hHash)中的参数CALG_MD5修改为CALG_SHA1即为计算SHA1哈希 值得注意的时...
Delphi 字符串加密解密单元
感谢作者:小宇飞刀unit PwdFunUnit;interfaceuses SysUtils;const C1Key = 12674; // C1 = 52845; C2Key = 35891; // C2 = 22719; XXXKey = ...
Delphi MD5单元文件
unit MD5;interfaceuses Windows, Messages, SysUtils, Variants, Classes;type MD5Count = array [0 .. 1] of DWORD; MD5State = array [0 .. 3] of DWORD; MD5Block ...
Delphi 微信消息加密解密单元
{*****************************************************************************} { &nb...
Delphi XE 中的字符串生成哈希值(MD5 / SHA-1 / Jenkins)
Delphi XE8和更高版本具有在System.Hash单元中生成哈希值的功能。System.Hash.THashMD5 实现MD5哈希的记录。System.Hash.THashSHA1 实现SHA-1哈希的记录。System.Hash.THashBobJenkin...
Delphi xe System.NetEncoding 字符串base64编码解码
uses System.NetEncoding;procedure TForm1.Edit1Change(Sender: TObject);begin Edit2.Text := TNetEncoding.Base64.Encode(Edit1.Text);end;procedure TForm1.Edit2Change(Sender: TObj...
Delphi Xe下文件转Base64编码函数
Delphi Xe下文件转Base64编码函数uses EncdDecd;function EncodeFile(const FileName: string): AnsiString;var stream: TMemoryStream;begin stream := TMemoryStream...
Delphi 加密解密字符串函数
function UncrypKey(Src: AnsiString; Key: AnsiString): string;var idx: Integer; KeyLen: Integer; KeyPos: Integer; offset: Integer; dest: AnsiString;&nb...
Delphi 将文件转换成Base64编码
{************************************************************************** 名称: BaseImage 参数: fn: TFilename 返回值: string 功...
Delphi LockBox 做加密解密
Delphi 提供的加密解密控件中,LockBox 是一套非常优秀的开源控件。其前身是 TruboPower LockBox 是一套商业控件。LockBox 到 Version 2 的时候决定开源。因此有 LockBox2,和之前的商业控件完...
Delphi 文件CRC和MD5校验
CRC和MD5用于文件和数据的传输校验,以确认是否接收成功。unit CRCMD5; interface{ 获取文件CRC校验码 }function GetFileCRC(const iFileName: string): String;{ 获取字符串CRC校验码 }fu...
Delphi BASE64单元EncdDecd的修改
Delphi BASE64单元EncdDecd的修改EncdDecd.pas两个函数声明:procedure EncodeStream(Input, Output: TStream);procedure DecodeStream(Input, Output: TStream);对于Output参数,如果是TMemory...
推荐一套免费跨平台的delphi 哈希及加密算法库
推荐一套免费跨平台的delphi 哈希及加密算法库delphi 目前提供了部分哈希及加密算法。但是不是特别全,今天给大家推荐一套免费的、跨平台的算法库。 https://github.com/winkelsdorf/...
Delphi 带密匙的字符串加密解密函数(支持中文)
uses AnsiStrings;Function JiaMi(Src:String; Key:String):String;var KeyLen :Integer; KeyPos :Integer; offset :Integer; dest :String; SrcPos :Integer;&n...
delphi 简单的英文数字字符串加密解密函数(不支持中文)
function EncryptSettings(Str : String): String;varX, Y : Integer;A : Byte;Key:string;beginKey:='Fi7ke'; //这个是加密钥匙,你可以随便设置,但解密钥匙要一样,不然解不了密Y := 1;for X :=...
Delphi原生方法取得文件的MD5
Delphi自带了System.Hash单元,提供了相关的方法,处理Hash相关内容,经过几个版本,已经成熟。利用他提供的功能,我们很容易实现取得文件的MD5. if FileExists(lpath) then begin&...
delphi USBKey访问、Delphi、JS
1,需要访问的东西是USBKey,里面有2张证书,分别是签名和加密证书。2,通过https方式上传xml,上传之前必须先给xml签名,xml的签名必须通过数字证书的私钥签名。3,私钥的访问通过capicom.dll...
delphi xe 可用的MD5算法
unit MD5;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeMD5Count = array [0 .. 1] of DWORD;MD5State = array [0 .. 3] o...
DELPHI SHA1加密函数
在命名空间IdHashSHA,有个函数TidHashSHa1类,用作SHA1加密;该类的方法Methods有Constructor:creatMethods:HashtoHex(const aHash:TidBytes):string;override; &nb...
meta 12小时前0
学习了,金智维好像用的这个语言jiaqy 昨天0
学习了平淡 2天前0
已经私发给您了,请查收盘山秃鹫 3天前0
付费了,但找不到阅读入口yl340122 15天前0
学习学习ZHUBAORUI 18天前0
我主要是用这个工具的搜索功能flow106 20天前0
跟网上的资料一样吗,好奇流浪 24天前0
有源码可以下载