¡¾Çë½Ì¡¿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λµÄ¹þÏ£Öµ
µ«Êdz¤¶ÈÌ«³¤£¬ºÃÏñËãµÄ²»¶Ô¡£
¸øÄãÒ»¸ö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£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
ÈçÌ⣡
ÔÚDelphiÀïÃæµ÷ÓÃÎÒC#дµÄÒ»¸ö¿ÉÖ´ÐгÌÐò£¬È»ºóÔËÐÐDelphiµÄÓ¦ÓóÌÐòµÄʱºò£¬ÓкܴóµÄ¸ÅÂʵ÷Óò»ÉÏC#дµÄÓ¦ÓóÌÐò¡£
´úÂë¿Ï¶¨Ã»ÓÐÎÊÌâ¡£ÓÐʱºòÄܵ÷ÓÃÉÏ£¬ÓÐʱºòµãÁËûÓз´Ó¦£¬¼´²»Äܵ ......
ÎÒÏëдһ¸öÔÚ´ò¿ªÍøÒ³ºó£¬ÆäÖÐÍøÒ³ÖÐÓÐÏÂÀÁбí¿òÀïÃæÓм¸¸öÖµ£¬ÎÒÔÚÏëÔÚÊÂÏÈ»¹Ã»Óдò¿ªÍøÒ³Ç°Ñ¡Ò»¸öÖµ£¬ÔÚ´ò¿ªÍøÒ³ºó£¬ÍøÒ³ÖÐÕâ¸öÏÂÀÁбí¿ò¾ÍÏÔʾÎÒÊÂÏÈѡȡµÄÖµ¡£Ð¡µÜ²»»á£¬Ï£ÍûÄÄλ´óÏÀ³öÊÖÏàÖúһϣ¿£¿£¿£¿£¿
......
ûѧ¹ýDELPHI¡£¡£ÒòΪҪά»¤Ò»¸ödelphiµÄÏîÄ¿£¬´ó¼Ò°ï°ïæ
½«±¾µØÊÓÆµÔÚÍøÂçÉÏ´«ËÍ¡£¡£Óõ½µÄÊÇsocket¡£¡£
ÏëÎÊÏ ¿ÉÒÔ½«ÊÓÆµ×ª»»³ÉʲôÑùµÄ¸ñʽ¡£¡£
µ±È»¿ÉÒÔ¡£±ÈÈç°ÑÊÓÆµÁ÷ת³ÉÊ®Áù½øÖÆÔÙдµ ......