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

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

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

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