unituntCheckCode; interface functionGetFile_MD5(constiFileName:String):String;//获取文件MD5 functionGetFile_CRC(constiFileName:String):String;//获取文件CRC functionGetFile_SHA1(constiFileName:String):String;//获取文件SHA1 functi...
unit untCRCMD5; interface { 获取文件CRC校验码 } function GetFileCRC(const iFileName: string): String; { 获取字符串CRC校验码 } function GetStringCRC(const Str: string): Cardinal; { 取文件MD5码 } function GetFileMD5(const i...
调用： var s:string; begin s:=SHA1encode('abc'); ShowMessage(s); end; {****************************************************AbinarycompatibleSHA1implementation**writtenbyDaveBarton(davebarton@bigfoot.com)**********************************...
{============================ *函数名：Base64ToString* *作者：* *时间：2005.11.29 15.25 * *说明：实现字符转换* ============================} function TGetEmailInfo.Base64ToString(const Value: string): string; var x, y, n,...
GloballyUniqueIdentifier（全球唯一标识符）也称作UUID(UniversallyUniqueIDentifier) GUID/UUID是通过特定算法产生的一个二进制长度为128位的数字，在空间上和时间上具有唯一性，保证同一时间不同地...
以下程序可直接用，拷贝就可以了，希望可以起到抛砖引玉的作用。 functionStrDecrypt(s:string;key:word):string; var i:byte; const fc1=2; fc2=3; begin //result[0]:=s[0]; setlength(result,length(s)); fori:=1tolength(s...
今天帮别人解决一个关于 Base64 编解码的问题，竟然发现 Delphi 自带了 Base64 编解码的单元，叫 EncdDecd，这名字很拗口而且不直观，估计这是一直很少人关注和知道的原因。 这个单元提供...
在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的，我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。 在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash...
unit xDes; interface uses SysUtils; type TKeyByte = array[0..5] of Byte; TDesMode = (dmEncry, dmDecry); function EncryStr(Str, Key: String): String; function DecryStr(Str, Key: String): String; function EncryStrHex(Str, Key: String): String...
(**************************************************************) (* Advanced Encryption Standard (AES) *) (* Interface Unit v1.3 *) (* *) (* Copyright (c) 2002 Jorlen Young *) (* *) (* 说明： *) (* 基于 ElASE.pas 单元封装 *) (* *)...