一段在asp中加密与解密对应的函数

在ASP中加密方法有对应的解密方法好象不多,现在根据前辈资料整理出在asp中加密与解密函数：

rsa.asp

<%

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

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!