【原创】DES加密模块

为VB、VC、ASP、PHP等各种编程语言提供DES加密服务。

先用regsvr32命令注册dll，调用方法：

 

<%
'要加密的数据/
Dim data : data = "流星无语的博客：http://hi.baidu.com/流星无语"
'创建对象/
Dim Encrypt
Set Encrypt = Server.CreateObject("Star.DesStar")
'/ 

'DES加密//
Dim en : en = Encrypt.DESEncryptStrToHex(data,"123")
Response.Write(en)
Response.Write("<br /><br />") 

'DES解密//
Dim de : de = Encrypt.DESDecryptStrFromHex(en,"123")
Response.Write(de)
Response.Write("<br /><br />")
'/

'释放对象/
Set Encrypt = Nothing
'/
%>

 

 

下载请移步到网盘：http://hbxfwjww.ys168.com

 

转载于:https://www.cnblogs.com/lxwy/archive/2011/01/22/4420664.html