delphi中要计算SHA512用哪套代码或组件较好啊该怎么处理

delphi中要计算SHA512用哪套代码或组件较好啊？
delphi中要计算SHA512用哪套代码或组件较好啊？请推荐一个：)
------解决方案--------------------
erhan厉害，什么都知道。
我也去下载看看。

引用:

TurboPower LockBox 3 including the new SHA-512/224 & SHA-512/256 

介绍：http://lockbox.seanbdurkin.id.au/tiki-index.php
官网下载：http://sourceforge.net/projects/tplockbox/files/

------解决方案--------------------
indy的高级版本里面有
------解决方案--------------------
应该是The quick brown fox jumps over the lazy dog，“The quick brown fox jumped over the lazy dog”少了s。其实The quick brown fox jumps over a lazy dog更短一些。:)


------解决方案--------------------
js代码分段上来，一次不够，貌似一个贴子一个人不能连续回3次，如果不行请顶一下

/*

 * Configurable variables. You may need to tweak these to be compatible with

 * the server-side, but the defaults work in most cases.

 */

var hexcase = 0;  /* hex output format. 0 - lowercase; 1 - uppercase        */

var b64pad  = ""; /* base-64 pad character. "=" for strict RFC compliance   */


/*

 * These are the functions you'll usually want to call

 * They take string arguments and return either hex or base-64 encoded strings

 */

function hex_sha512(s)    { return rstr2hex(rstr_sha512(str2rstr_utf8(s))); }

function b64_sha512(s)    { return rstr2b64(rstr_sha512(str2rstr_utf8(s))); }

function any_sha512(s, e) { return rstr2any(rstr_sha512(str2rstr_utf8(s)), e);}

function hex_hmac_sha512(k, d)

  { return rstr2hex(rstr_hmac_sha512(str2rstr_utf8(k), str2rstr_utf8(d))); }

function b64_hmac_sha512(k, d)