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.Net加密解密类

using System.Web.Security; using System.Security.Cryptography; using System.Text; using System.IO...

c# asp.net 字符串加密解密的类

using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Secu...

asp超级加密,解密类

  • 2008年10月21日 16:33
  • 1KB
  • 下载

asp.net C#中对Web.Config字符串加密与解密的方法

【案例引用】 例如 XML/HTML code ? 1 2 3 connectionStrings>      ...

asp.net中的加密解密

简单的使用: //--导入所需要的包 using System.IO; using System.Text; using System.Security.Cryptography; (1)MD5普通加...

ASP.NET(C#)常用数据加密和解密方法汇总

ASP.NET(C#)常用数据加密和解密方法汇总  一、            数据加密的概念 1、  基本概念 2、  基本功能 3、  加密形式  二、            数据加密的...

ASP.NET(C#)常用数据加密和解密方法汇总

本文是关于:ASP.NET(C#)常用数据加密和解密方法汇总 关键点asp.net 加密解密,asp.net md5解密,asp.net解密,asp.net extjs 解密,asp.net md5...

利用ASP.NET加密和解密Web.config中连接字符串

from:http://www.bdqn.cn/news/201311/12087.shtml 摘要:利用ASP.NET加密和解密Web.config中连接字符串 介绍 这篇文章我将介绍如何...

ASP.NET(C#)常用数据加密和解密方法汇总

转至http://www.cnblogs.com/skylaugh/archive/2011/07/12/2103572.html   应同事所邀把ASP.NET(C#)常用数据加密和解密方法列出...

ASP程序加密解密方法全面解析

目前对ASP程序的加密方法主要有三种:脚本编码器(SRCENC.EXE)加密、组件加密、自编程序加密,下面我们就来展开介绍这三种加密方法……   如今,用ASP技术构建的网站随处可见。由于ASP...
  • ymuyou
  • ymuyou
  • 2012年02月14日 13:16
  • 255
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp 加密 解密 类
举报原因:
原因补充:

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