一段在asp中加密与解密对应的函数---asp-为中国网络技术提供点滴动力-iyit.net-易特网络技术！

　　通行证: 用户密码

域名空间　下载中心　 社区论坛　信息公告 MY小屋

联系我们
设为首页
加入收藏

QQ,ASP,PHP,JSP,XML,SQL,.Net,编程程序网页图象建站经验私服




	当前位置：首页>>编程开发>>asp专区>>正文	新版上线！[旧版]

注:打开慢时请稍等

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

http://www.iyit.net 日期：2006-6-7 11:15:25 来源：点击：

【参加讨论】在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
　　　　　　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
%>

test.asp

<%
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

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自动解压RAR文件
下一篇：随机生成文件名的函数
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。

　相关文章

ASP初学者常犯的几个错误	[ASP]利用 xmlhttp 分块上传文件	asp,php 和 jsp 比较之我见
刷一次变一次图的ASP代码	ASP基础	ASP自动解压RAR文件
在ASP与ASP.NET之间共享对话状态(2)	在ASP与ASP.NET之间共享对话状态(1)	利用ASP+JMAIL进行邮件群发的新思路
ASP操作Excel技术总结	用ASP实现对ORACLE数据库的操作	IIS6.0下ASP的新增功能
浅谈如何建立三层体系结构的ASP应用程序	asp中利用数组实现数据库记录的批量录入	vbs(asp)的栈类
用ASP打开远端MDB文件的方法	在asp中通过getrows实现数据库记录分页	在asp中通过vbs类实现rsa加密与解密
Asp深度揭密（上）	Asp深度揭密（下）	巧用ASP生成PDF文件
在ASP中使用SQL语句之1:SELECT 语句	在ASP中使用SQL语句之2:用WHERE子句设置	在ASP中使用SQL语句之3:LIKE、NOT LIKE

最新更新

热点排行

推荐新闻

ASP初学者常犯的几个错误

rs.open sql,conn,1,1全接触

处理较长文章，添加 …… 效果

[ASP]利用 xmlhttp 分块上传文件

asp,php 和 jsp 比较之我见

ASP初学者常犯的几个错误

rs.open sql,conn,1,1全接触

处理较长文章，添加 …… 效果

[ASP]利用 xmlhttp 分块上传文件

VS .net 2003调试javascript中两个杂症

datagrid编辑、修改、删除、翻页例子

清空iis log 中自己登录ip的vbs

QQ最新版下载 2006 beta2 体验新感受

QQ密码本地破解

Office2007简体中文版浮出水面美图抢

Visual Basic 概述

珊蝴虫QQ探测隐身的招式用法

exeplorer.exe错误的问题的总结、解决

解决暴风影音无法渲染此文件的难题

解决Windows中的explorer.exe出错

一个好汉N个帮 Word实用插件集锦

Authorware7.0基础与实例教程连载第5

巧用ACDSee 8.0截取QQ表情每一帧

解除瑞星诺顿遗留下的杀毒兼容问题

第一款开源AJAX安全扫描工具Sprajax

	友情链接

	Copyrights © 2004-2006 iYiT.Net All Rights Reserved. 网站合作、广告联系QQ:147007642、466949678
	易特网络技术冀ICP备05011851号		浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。