¡¾Çë½Ì¡¿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
Ïà¹ØÎÊ´ð£º
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
¹¤×÷µØµãÔÚ½ËÕÀ¥É½
delphi¿ª·¢¾Ñ飺1Ä꣨º¬£©ÒÔÉÏ
ÊìÁ·Ê¹ÓÃSQL Server OracleµÈ³£ÓÃÊý¾Ý¿â
ÄܶÀÁ¢½â¾öÏà¹ØÎÊÌâ
ÎÒÃǹ«Ë¾ÒªÕÐdelphi³ÌÐòÔ±,²»ÖªµÀÒª¿ª¶àÉÙÒø×Ó£¬Çë¸÷λָ½ÌÖ¸½Ì
Â¥Ö÷£¬¿´¿´ÎÒÕ¦Ñù 5ÄêµÄdelph ......
ÈçÌ⣡
ÔÚDelphiÀïÃæµ÷ÓÃÎÒC#дµÄÒ»¸ö¿ÉÖ´ÐгÌÐò£¬È»ºóÔËÐÐDelphiµÄÓ¦ÓóÌÐòµÄʱºò£¬ÓкܴóµÄ¸ÅÂʵ÷Óò»ÉÏC#дµÄÓ¦ÓóÌÐò¡£
´úÂë¿Ï¶¨Ã»ÓÐÎÊÌâ¡£ÓÐʱºòÄܵ÷ÓÃÉÏ£¬ÓÐʱºòµãÁËûÓз´Ó¦£¬¼´²»Äܵ ......
³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË
ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......
¡¡MessageBox(0,PChar('L'),PChar('LL'),0);
½á¹û£ºPChar('LL') ÏÔʾ¡¡£¬µ«PChar('L') ²»ÏÔʾ£®
var
p1, p2: PChar;
begin
p1 := PChar('L');
p2 := PChar('LL');
MessageBo ......