【请教】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
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
我本来在学校是弄的J2EE
昨天去了长沙一家公司应聘 说是有一个项目 delphi的
实习期一个月 四天半的delphi培训 后面25天给你一个设计文档自己做一个项目
走后不久打电话过来叫我星期一去报到
看到delphi� ......
如题！
在Delphi里面调用我C#写的一个可执行程序，然后运行Delphi的应用程序的时候，有很大的概率调用不上C#写的应用程序。
代码肯定没有问题。有时候能调用上，有时候点了没有反应，即不能� ......
我想写一个在打开网页后，其中网页中有下拉列表框里面有几个值，我在想在事先还没有打开网页前选一个值，在打开网页后，网页中这个下拉列表框就显示我事先选取的值。小弟不会，希望哪位大侠出手相助一下？？？？？
......
求购带游戏大厅及“赢三张”扑克游戏的DELPHI源代码，联系QQ：861973982
具体内容QQ详谈。
没见过
帮顶
赢三张”扑克游戏 ?
没听说过.没听说过.
赢三张 是不是俗称炸鸡的游戏啊
没玩过这个游戏 ......
