asp 加密 解密 类

转载 2006年06月22日 10:03:00

<%
rem ##############################################
rem 加密解密
rem ##############################################

rem 在ASP中实现加密与解密,加密方法:根据RSA
rem 联系:hnsoso@sina.com
Class clsRSA

Public PrivateKey
Public PublicKey
Public Modulus

 Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If
Crypt = lLngResult
End Function

 Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function

Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function

Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function

Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function

End Class
%>


<%
rem 加密调用

function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA


LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message

Set ObjRSA = New clsRSA


ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function

 

rem 解密调用

function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA


LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message

Set ObjRSA = New clsRSA

ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function

'dim last,first
'first="sohu"
'Response.Write "加密前为:"&first
'last=Encryptstr(first)
'Response.Write "加密后为"&last
'Response.Write "解密后为" &decryptstr(last)

%>

ASP常用类之——DES加密解密类

DES加密是通过密钥(key)加密,密码只能用相同的密钥才能解密的算法。安全性虽然不是很高,基本满足大部分的应用。...
  • why_aircraft
  • why_aircraft
  • 2010-05-30 10:16:00
  • 1092

asp中加密与解密对应的函数

rsa.asprem 在ASP中实现加密与解密,加密方法根据RSArem 联系hnsoso@sina.comClass clsRSA    Public PrivateKey    Public Pu...
  • emituofo
  • emituofo
  • 2006-10-13 15:26:00
  • 559

Des加密解密例子

Des加密解密例子
  • 5iasp
  • 5iasp
  • 2015-06-26 17:50:19
  • 3895

轻松加密ASP.NET 2.0 Web程序配置信息

  一、 简介  当创建ASP.NET 2.0应用程序时,开发者通常都把敏感的配置信息存储在Web.config文件中。最典型的示例就是数据库连接字符串,但是包括在Web.config文件中的其它敏感...
  • liuchuan98
  • liuchuan98
  • 2008-01-17 16:56:00
  • 700

DES + AES 标准<em>加解密</em>算法For <em>ASP</em>(VBScript)

DES + AES 标准<em>加解密</em>算法For <em>ASP</em>(VBScript) 2011-06-17 上传大小:21KB DESAES<em>ASP</em>VBScript 在绝大多数的<em>ASP</em>应用中,很少涉及到这两个算法。很可惜,我在先后经历...
  • 2018年04月13日 00:00

asp编写的加密和解密类

  class Base64Class  rem Const   dim sBASE_64_CHARACTERS转化码   dim lenString 计算字符串的长度   dim iCount 计数...
  • abandonship
  • abandonship
  • 2005-06-01 09:29:00
  • 1284

ASP解密工具合集。破解加密了的ASP源码用的

  • 2011年03月24日 22:57
  • 54KB
  • 下载

.net实现加密算法小结

本文主要演示.net中常用三种加密方式:其中SHA1、MD5为不可逆加密,最后一种为自定义加密密钥,可进行解密。如图:   在.net下使用上述方法需要先引用: using Sy...
  • longteng1116
  • longteng1116
  • 2014-02-21 02:40:01
  • 1759

软件加密技术及实现

软件加密技术及实现雷 鹏( 桂林电子工业学院  计算机系 )摘  要    当今盗版软件的泛滥成灾几乎已经成为了我们中国民族软件的灾难,为了防止软件的非法复制、盗版,保护软件开发商的利益,就必须对软件...
  • whinah
  • whinah
  • 2003-01-28 21:33:00
  • 6598

ASP6个网页代码加密-解密工具js

  • 2010年05月03日 15:03
  • 169KB
  • 下载
收藏助手
不良信息举报
您举报文章:asp 加密 解密 类
举报原因:
原因补充:

(最多只允许输入30个字)