在delphi中，如何不对称加密解密

求如何用delphi对字符串加密解密且加密解密算法是不对称的，有源代码更好。。。

http://www.linuxidc.com/Linux/2011-02/32259.htm