说明：  这是Delphi的DES加密函数，由Delphi7改写适用于Delphi2009，在2009上测试通过。Descrypt用于一般的密码加密，完全胜任。
(This is Delphi s DES encryption function, from Delphi7 rewritten for Delphi2009, in 2009 on the test. For general Descrypt password encryption and fully qualified.)