function Int_encrypt(s:string; lkey : Integer):string;begin  //大于5位乘87209会有问题,改成乘以13可以支持8位  //Result := IntToStr(...

Delphi计算MD5在密码学中，MD5（消息摘要算法5，消息摘要算法5）是一种128位密码减少算法，是当今使用最广泛的算法之一。最常用的用途之一是检查文件是否尚未修改。使用它的最好的例子之一是，...

uses System.Hash;function GetStrHashMD5(Str: String): String;var  HashMD5: THashMD5;begin    HashMD5 := THashMD5.Create;    HashMD5.GetHashString(Str)...

uses  IdGlobal, IdHashSHA, IdHMAC, IdHMACSHA1, IdSSLOpenSSL;function CalculateHMACSHA256(const value, salt: String): String;var  hmac: TIdHMACSHA256;  hash: TIdBytes...

uses System.Hash, System.DateUtils;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var  md5: THashMD5; //加密后的信息begin   Edit2.Text := UpperCase(md5.Get...

const  ValidChars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ234567'; // Base32解码function Base32Decode(const source: string): string;var  UpperSource: string;  p, i, l, n, ...

MD5需要引入system.Hash，BASE64需要引入System.NetEncoding，这两个单元应该只有高版本的DELPHI IDE才有（貌似XE5以上版本才有）。如果是D7的话，找第三方的库。procedure TForm19.Button8Clic...

program demo;{$APPTYPE CONSOLE}{$R *.res}uses  System.RTLConsts,  System.SysUtils;const  conBase64Out: array[0..64] of AnsiChar = (    'A', 'B', 'C', 'D', ...

unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdC...

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

感谢作者：小宇飞刀unit PwdFunUnit;interfaceuses  SysUtils;const  C1Key = 12674; //   C1 = 52845;  C2Key = 35891; //   C2 = 22719;  XXXKey = ...

unit MD5;interfaceuses  Windows, Messages, SysUtils, Variants, Classes;type  MD5Count = array [0 .. 1] of DWORD;  MD5State = array [0 .. 3] of DWORD;  MD5Block ...

{*****************************************************************************} {                          &nb...

Delphi XE8和更高版本具有在System.Hash单元中生成哈希值的功能。System.Hash.THashMD5 实现MD5哈希的记录。System.Hash.THashSHA1 实现SHA-1哈希的记录。System.Hash.THashBobJenkin...

Delphi Xe下文件转Base64编码函数uses EncdDecd;function EncodeFile(const FileName: string): AnsiString;var   stream: TMemoryStream;begin   stream := TMemoryStream...

function UncrypKey(Src: AnsiString; Key: AnsiString): string;var  idx: Integer;  KeyLen: Integer;  KeyPos: Integer;  offset: Integer;  dest: AnsiString;&nb...

{**************************************************************************  名称：   BaseImage  参数：   fn: TFilename  返回值： string  功...

Delphi 提供的加密解密控件中，LockBox 是一套非常优秀的开源控件。其前身是 TruboPower LockBox 是一套商业控件。LockBox 到 Version 2 的时候决定开源。因此有 LockBox2，和之前的商业控件完...

CRC和MD5用于文件和数据的传输校验，以确认是否接收成功。unit CRCMD5; interface{ 获取文件CRC校验码 }function GetFileCRC(const iFileName: string): String;{ 获取字符串CRC校验码 }fu...

Delphi BASE64单元EncdDecd的修改EncdDecd.pas两个函数声明：procedure EncodeStream(Input, Output: TStream);procedure DecodeStream(Input, Output: TStream);对于Output参数，如果是TMemory...

推荐一套免费跨平台的delphi 哈希及加密算法库delphi 目前提供了部分哈希及加密算法。但是不是特别全，今天给大家推荐一套免费的、跨平台的算法库。 https://github.com/winkelsdorf/...

uses AnsiStrings;Function JiaMi(Src:String; Key:String):String;var  KeyLen :Integer;  KeyPos :Integer;  offset :Integer;  dest :String;  SrcPos :Integer;&n...

function EncryptSettings(Str : String): String;varX, Y : Integer;A : Byte;Key:string;beginKey:='Fi7ke'; //这个是加密钥匙,你可以随便设置,但解密钥匙要一样,不然解不了密Y := 1;for X :=...

支持D2007之前的版本{*******************************************************}{                             &nbs...

Delphi自带了System.Hash单元，提供了相关的方法，处理Hash相关内容，经过几个版本，已经成熟。利用他提供的功能，我们很容易实现取得文件的MD5.  if FileExists(lpath) then  begin&...

1，需要访问的东西是USBKey，里面有2张证书，分别是签名和加密证书。2，通过https方式上传xml，上传之前必须先给xml签名，xml的签名必须通过数字证书的私钥签名。3，私钥的访问通过capicom.dll...

unit MD5;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeMD5Count = array [0 .. 1] of DWORD;MD5State = array [0 .. 3] o...

在命名空间IdHashSHA,有个函数TidHashSHa1类，用作SHA1加密;该类的方法Methods有Constructor：creatMethods：HashtoHex(const aHash:TidBytes):string;override;       &nb...