PHP中crypt()加密函数delphi实现,该怎么处理

PHP中crypt()加密函数delphi实现PHP中crypt()这个加密在delphi中如何实现PHP中实现代码如下? echo crypt(

PHP中crypt()加密函数delphi实现
PHP中crypt()这个加密在delphi中如何实现 

PHP中实现代码如下 
<? echo crypt('123456',substr('123456',0,2)); ?>
加密后效果:12tir.zIbWQ3c

不知道delphi中能否实现该函数,求解决

[解决办法]
好像没有,自己根据它的算法写一个函数吧