加密共79篇

delphi 异或加解密

function Int_encrypt(s:string; lkey : Integer):string;begin  //大于5位乘87209会有问题,改成乘以13可以支持8位  //Result := IntToStr(...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
06311

Delphi计算MD5

Delphi计算MD5在密码学中,MD5(消息摘要算法5,消息摘要算法5)是一种128位密码减少算法,是当今使用最广泛的算法之一。最常用的用途之一是检查文件是否尚未修改。使用它的最好的例子之一是,...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
04112
Delphi-改进获取文件MD5 Hash方法-Delphi编程技巧大全

Delphi-改进获取文件MD5 Hash方法

序言之前所说的获取文件MD5方法有性能问题,没多久我就遇到了,程序假死,卡顿。因此将获取文件MD5的方法改了一下,并测试了一下,大概性能提升了5倍,获取同一个文件的MD5,老方法用时是新方法...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
0456

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)...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
0397

Delphi HMACSHA256

uses  IdGlobal, IdHashSHA, IdHMAC, IdHMACSHA1, IdSSLOpenSSL;function CalculateHMACSHA256(const value, salt: String): String;var  hmac: TIdHMACSHA256;  hash: TIdBytes...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
0345

delphi 自带单元字符MD5加密

uses System.Hash, System.DateUtils;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var  md5: THashMD5; //加密后的信息begin   Edit2.Text := UpperCase(md5.Get...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
0386

Delphi Base32 的加密和解密

const  ValidChars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ234567'; // Base32解码function Base32Decode(const source: string): string;var  UpperSource: string;  p, i, l, n, ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
04714

delphi MD5加密BASE64加解密

MD5需要引入system.Hash,BASE64需要引入System.NetEncoding,这两个单元应该只有高版本的DELPHI IDE才有(貌似XE5以上版本才有)。如果是D7的话,找第三方的库。procedure TForm19.Button8Clic...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
03112

delphi 控制台Base64加密解密

program demo;{$APPTYPE CONSOLE}{$R *.res}uses  System.RTLConsts,  System.SysUtils;const  conBase64Out: array[0..64] of AnsiChar = (    'A', 'B', 'C', 'D', ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
04713

Delphi 字符串加密解密(不支持中文)

unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdC...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
03714

Delphi 使用Windows API(WinCrypt)计算文件MD5哈希,支持大文件

Delphi 默认没有WinCrypt相关函数的定义所以引用JwaWinCrypt{jedi-apilib}单元将 CryptCreateHash(hProv, CALG_MD5,0, 0, hHash)中的参数CALG_MD5修改为CALG_SHA1即为计算SHA1哈希 值得注意的时...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
0568

Delphi 字符串加密解密单元

感谢作者:小宇飞刀unit PwdFunUnit;interfaceuses  SysUtils;const  C1Key = 12674; //   C1 = 52845;  C2Key = 35891; //   C2 = 22719;  XXXKey = ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
04114

Delphi MD5单元文件

unit MD5;interfaceuses  Windows, Messages, SysUtils, Variants, Classes;type  MD5Count = array [0 .. 1] of DWORD;  MD5State = array [0 .. 3] of DWORD;  MD5Block ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
0378

Delphi 微信消息加密解密单元

{*****************************************************************************} {                          &nb...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
0439

Delphi XE 中的字符串生成哈希值(MD5 / SHA-1 / Jenkins)

Delphi XE8和更高版本具有在System.Hash单元中生成哈希值的功能。System.Hash.THashMD5 实现MD5哈希的记录。System.Hash.THashSHA1 实现SHA-1哈希的记录。System.Hash.THashBobJenkin...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
03310
Delphi xe System.NetEncoding 字符串base64编码解码-Delphi编程技巧大全

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...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
0458

Delphi Xe下文件转Base64编码函数

Delphi Xe下文件转Base64编码函数uses EncdDecd;function EncodeFile(const FileName: string): AnsiString;var   stream: TMemoryStream;begin   stream := TMemoryStream...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
03214

Delphi 加密解密字符串函数

function UncrypKey(Src: AnsiString; Key: AnsiString): string;var  idx: Integer;  KeyLen: Integer;  KeyPos: Integer;  offset: Integer;  dest: AnsiString;&nb...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
0329

Delphi 将文件转换成Base64编码

{**************************************************************************  名称:   BaseImage  参数:   fn: TFilename  返回值: string  功...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
06214

Delphi LockBox 做加密解密

Delphi 提供的加密解密控件中,LockBox 是一套非常优秀的开源控件。其前身是 TruboPower LockBox 是一套商业控件。LockBox 到 Version 2 的时候决定开源。因此有 LockBox2,和之前的商业控件完...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
0406

Delphi 文件CRC和MD5校验

CRC和MD5用于文件和数据的传输校验,以确认是否接收成功。unit CRCMD5; interface{ 获取文件CRC校验码 }function GetFileCRC(const iFileName: string): String;{ 获取字符串CRC校验码 }fu...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
0508

Delphi BASE64单元EncdDecd的修改

Delphi BASE64单元EncdDecd的修改EncdDecd.pas两个函数声明:procedure EncodeStream(Input, Output: TStream);procedure DecodeStream(Input, Output: TStream);对于Output参数,如果是TMemory...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
0368

推荐一套免费跨平台的delphi 哈希及加密算法库

推荐一套免费跨平台的delphi 哈希及加密算法库delphi 目前提供了部分哈希及加密算法。但是不是特别全,今天给大家推荐一套免费的、跨平台的算法库。 https://github.com/winkelsdorf/...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
04614

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

uses AnsiStrings;Function JiaMi(Src:String; Key:String):String;var  KeyLen :Integer;  KeyPos :Integer;  offset :Integer;  dest :String;  SrcPos :Integer;&n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
04314

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

function EncryptSettings(Str : String): String;varX, Y : Integer;A : Byte;Key:string;beginKey:='Fi7ke'; //这个是加密钥匙,你可以随便设置,但解密钥匙要一样,不然解不了密Y := 1;for X :=...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
04314

delphi Base64加解密模块

支持D2007之前的版本{*******************************************************}{                             &nbs...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
0506

Delphi原生方法取得文件的MD5

Delphi自带了System.Hash单元,提供了相关的方法,处理Hash相关内容,经过几个版本,已经成熟。利用他提供的功能,我们很容易实现取得文件的MD5.  if FileExists(lpath) then  begin&...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
0295

delphi USBKey访问、Delphi、JS

1,需要访问的东西是USBKey,里面有2张证书,分别是签名和加密证书。2,通过https方式上传xml,上传之前必须先给xml签名,xml的签名必须通过数字证书的私钥签名。3,私钥的访问通过capicom.dll...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
0588

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...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
0547

DELPHI SHA1加密函数

在命名空间IdHashSHA,有个函数TidHashSHa1类,用作SHA1加密;该类的方法Methods有Constructor:creatMethods:HashtoHex(const aHash:TidBytes):string;override;       &nb...
Top_Admin的头像-Delphi编程技巧大全Top_Admin27天前
0375