久久久久成人免费看a含羞草久色_91福利资源站_好色综合网_久久久久国产精品一区二区三区_一级片免费看_久久久久国产精品久久久久

订阅本栏目 RSS您所在的位置: 深山工作室 > ASP > 正文

特别推荐的asp数字加密(rsa)

网络 2010/7/8 22:18:46 深山行者 字体: 浏览 11164

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

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="3256425"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%>

前一页:asp计算器
相关阅读
160个DIV+CSS网页模板下载
asp页面ip防火墙限制(判断ip内网还是外网)功能
网站策划:网站栏目和页面的策划
呼伦贝尔市北天草原旅行社有限公司
留言板留言板V7.2
详细的百度蜘蛛爬行检测代码诠释
利用ASP正则提取文章里面的图片的有效的src地址
长城国际集团有限公司
共有0条关于《特别推荐的asp数字加密(rsa)》的评论
发表评论
正在加载评论......
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
python
更多>>同类信息
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
asp显示随机密码
通过阿里云服务接口获得ip地址详细信息
iis点开后任务栏上有显示,但是窗口看不到的解决办法
RSA加密解密插件
微软Encoder加密解密函数
更多>>最新添加文章
dw里面查找替换使用正则删除sqlserver里面的CONSTRAINT
Android移动端自动化测试:使用UIAutomatorViewer与Selenium定位元素
抖音直播音挂载小雪花 懂车帝小程序
javascript获取浏览器指纹可以用来做投票
火狐Mozilla Firefox出现:无法载入您的Firefox配置文件 它可能已经丢失 或是无法访问 问题解决集合处理办法
在Android、iOS、Windows、MacOS中微信小程序的文件存放路径
python通过代码修改pip下载源让下载库飞起
python里面requests.post返回的res.text还有其它的吗
更多>>随机抽取信息
四川省中国青年旅行社长顺分社
图片渐显轮流播放
旅行社管理系统商业版4.0发布
兼容pc、移动端用js实现复制内容到剪切板(支持苹果safari浏览器)
CSS教程:CSS伪类属性
asp利文本文档加FSO统计网站访问量的方法(2)
主站蜘蛛池模板: 欧洲人妻丰满av无码久久不卡 | 精品动漫一区 | av人摸人人人澡人人超碰小说 | 国产伦精品一区二区三区视频金莲 | 亚洲国产成人综合精品2020 | 黄色在线小视频 | 精品av中文字幕在线毛片 | 成 人 黄 色 免费 网站无毒 | 新婚人妻不戴套国产精品 | 亚州一级 | 在线伊人网 | 久草成人网 | 女被男啪到哭的视频网站 | 99re这里只有精品在线观看 | 天天干天天操天天拍 | 免费a级毛片无码a∨ | 亚洲精品456播放 | 日韩中文字幕网 | 无码一区二区三区在线观看 | 无套内射蜜桃小视频 | 久久这里只有精品久久 | 免费观看欧美一级高清 | 国产a三级久久精品 | 中国农村妇女hdxxxx | 国产无遮挡aaa片爽爽 | 992tv在线影视永久免费 | 狠狠综合久久综合88亚洲日本 | 中国凸偷窥xxxx自由视频妇科 | 精品人妻系列无码人妻漫画 | 卡一卡二卡三免费视频 | 思思久久99热只有精品 | 欧美成人午夜免费完成 | 一级α一级α片免费观看网站 | 天天久久影视色香综合网 | 欧美日韩一 | 七次郎在线视频永久地址 | 欧美日韩亚洲成色二本道三区 | 午夜伦理电影在线观看 | 久久av无码精品人妻出轨 | 天天干天天操天天做 | 亚洲一区二区三区在线视频 |