【原创】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