【请教】delphi里怎么算哈希？？？？？？？？？？？
请教：delphi里怎么算哈希？
我原来找了一个，形式是这样：
procedure DoSHA1(BufferIn:array of byte;DataLen:integer;var BufferOut:array of byte);
var
Context: TSHA1Context;
Digest: TSHA1Digest;
begin
SHA1Init(Context);
SHA1Update(Context,@BufferIn,DataLen);
SHA1Final(Context,Digest);
CopyMemory(@BufferOut,@Digest,20);
end;
但是如果输入的数组过长，如10K，则会出错
下边是我从网上找的，不知道怎么用。谁能指点下，有现成的也行，最好是算byte类型数组的。
http://www.xiaokou.org/2005/10/12/54/
我靠，该死的csdn，第一次提交回复总是失败，还的再写一遍；
听三国说inifile单元里有哈希相关函数，你看看先
IniFiles里面的那个是TStringHash
顶。
原来的函数输入数组后，吐出20位的哈希值
但是长度太长，好像算的不对。
给你一个ELF算法的hash函数，已经改成支持Byte数组了：
function ELFHash(const ByteAry : Array of byte) : Cardinal;
var
i : Cardinal;
x : Cardinal;
begin
Result := 0;
for i := Low(ByteAry) to High(ByteAry) do
begin
Result := (Result shl 4) + ByteAry[i];
x := Result and $F0000000;
if (x <> 0) then
begin
Result := Result xor (x shr 24);
end;
Result := Result and (not x);
end;
end;
原来用的那个是sha-1算法。
楼上的，Cardinal是什么？
Cardinal是大于等于0的整数，就当是整数好了。
可以参考IniFiles
相关问答：
请教各路高手。武林前辈。我将B.EXE做成资源文件，然后加到123.dll中。用A.EXE来调用123.dll中的B.EXE
请各位前辈帮忙指教下。A.exe如何来调用dll中的exe？代码又该如何写？
无人回答？
做成资源� ......
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......
