Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

¡¾Çë½Ì¡¿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


Ïà¹ØÎÊ´ð£º

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......

Í·ÌÛ£¡Delphiµ÷ÓÃC#µÄÓ¦ÓóÌÐòÎÞЧ

ÈçÌ⣡
  ÔÚDelphiÀïÃæµ÷ÓÃÎÒC#дµÄÒ»¸ö¿ÉÖ´ÐгÌÐò£¬È»ºóÔËÐÐDelphiµÄÓ¦ÓóÌÐòµÄʱºò£¬ÓкܴóµÄ¸ÅÂʵ÷Óò»ÉÏC#дµÄÓ¦ÓóÌÐò¡£
  ´úÂë¿Ï¶¨Ã»ÓÐÎÊÌâ¡£ÓÐʱºòÄܵ÷ÓÃÉÏ£¬ÓÐʱºòµãÁËûÓз´Ó¦£¬¼´²»Äܵ ......

delphi ÍøÒ³ÖÐ<option> ±êÇ©µÄ·½·¨

ÎÒÏëдһ¸öÔÚ´ò¿ªÍøÒ³ºó£¬ÆäÖÐÍøÒ³ÖÐÓÐÏÂÀ­Áбí¿òÀïÃæÓм¸¸öÖµ£¬ÎÒÔÚÏëÔÚÊÂÏÈ»¹Ã»Óдò¿ªÍøÒ³Ç°Ñ¡Ò»¸öÖµ£¬ÔÚ´ò¿ªÍøÒ³ºó£¬ÍøÒ³ÖÐÕâ¸öÏÂÀ­Áбí¿ò¾ÍÏÔʾÎÒÊÂÏÈѡȡµÄÖµ¡£Ð¡µÜ²»»á£¬Ï£ÍûÄÄλ´óÏÀ³öÊÖÏàÖúһϣ¿£¿£¿£¿£¿
......

delphi ÊÓÆµÊÇ·ñ¿ÉÒÔת»»³ÉXML¸ñʽ£¿

ûѧ¹ýDELPHI¡£¡£ÒòΪҪά»¤Ò»¸ödelphiµÄÏîÄ¿£¬´ó¼Ò°ï°ïæ
 ½«±¾µØÊÓÆµÔÚÍøÂçÉÏ´«ËÍ¡£¡£Óõ½µÄÊÇsocket¡£¡£  
ÏëÎÊÏ ¿ÉÒÔ½«ÊÓÆµ×ª»»³ÉʲôÑùµÄ¸ñʽ¡£¡£
µ±È»¿ÉÒÔ¡£±ÈÈç°ÑÊÓÆµÁ÷ת³ÉÊ®Áù½øÖÆÔÙдµ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ