FreeContex

应网友朋友要求，开发了DES加密组件的第二版。第二版并不是简单地对第一版进行升级改造，而是重写了DES算法，提供全新的稳定而简洁的加密、解密接口，以十六进制字符串形式返回加密结果，新的接口示例程序如下：
Dim Des, en, de
'创建对象
Set Des = Server.CreateObject("AlanSoft.Encrypt")
'设置密钥(长度8字节，不设置则使用默认值)
Des.SetKey("12345678")
'加密接口
en = Des.EnCode("DES加密组件接口演示")
Response.Write(en)
'解密接口
de = Des.DeCode(en)
Response.Write(de)
'释放对象
Set Des = Nothing

这里提供试用版本，可以免费使用至2010年10月1日，无任何功能限制。

正式版本无功能和使用时间上的限制，接受定制开发，需要的朋友可以直接联系我。