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