<div dir="ltr">I changed it to:<div><br></div><div><a href="http://pastebin.com/mxeWtncP">http://pastebin.com/mxeWtncP</a><br><div><br></div><div>And now:</div><div><br></div><div>cHash: 00:00:02:188 HMAC: 00:00:00:966<div class="gmail_extra">

<br><div class="gmail_quote">2013/3/24 silvioprog <span dir="ltr"><<a href="mailto:silvioprog@gmail.com" target="_blank">silvioprog@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">

<div dir="ltr"><div><div>My function is more fast that cHash (<a href="http://fundementals.sourceforge.net/dl.html" target="_blank">http://fundementals.sourceforge.net/dl.html</a>). The comparison result is:</div><div><br>

</div><div>
HMAC: 00:00:01:689 cHash: 00:00:02:038</div><div><br></div><div>My final unit is:</div><div><br></div><div><a href="http://pastebin.com/4484g9i8" target="_blank">http://pastebin.com/4484g9i8</a></div><div><br></div><div>

The code used in comparison:</div>
<div><br></div><div>uses</div><div>  HMAC, cHash;</div><div><br></div><div>procedure TForm1.Button1Click(Sender: TObject);</div><div>var</div><div>  i: Integer;</div><div>  b, e: TDateTime;</div><div>  x: string;</div><div>


begin</div><div>  b := now;</div><div>  for i := 0 to 300000 do</div><div>    x := HMACSHA1('secret', 'The quick brown fox jumped over the lazy dog.');</div><div>  e := now;</div><div>  Edit1.Text := 'HMAC: ' + FormatDateTime('hh:nn:ss:zzz', b - e);</div>


<div>  b := now;</div><div>  for i := 0 to 300000 do</div><div>    x := SHA1DigestToHex(CalcHMAC_SHA1('secret', 'The quick brown fox jumped over the lazy dog.'));</div><div>  e := now;</div><div>  Edit1.Text := Edit1.Text + ' cHash: ' + FormatDateTime('hh:nn:ss:zzz', b - e);</div>


<div>end;</div><div><br></div><div>I reinvented the wheel, but I can run faster now. :)<br></div><div><br></div><div>Thanks guys!</div></div></div></blockquote></div><div><br></div>-- <br>Silvio Clécio<br>My public projects - <a href="http://github.com/silvioprog" target="_blank">github.com/silvioprog</a>
</div></div></div></div>