久久久久成人免费看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)
主站蜘蛛池模板: 色偷偷综合网 | 欧美人与动牲交a精品 | 99在线精品日韩一区免费国产 | 韩国电影一区二区 | 激情欧美一区二区三区中文字幕 | 男人天堂999 | aaaaaa级特色特黄的毛片 | 人人妻久久人人澡人人爽人人精品 | 中文字幕在线免费播放 | 99精品一区二区三区无码吞精 | 亚洲av成本人无码网站 | 国产又黄又爽又刺激的免费网址 | 国产美女在线看 | aaa色| 国产综合久久久久久鬼色 | 小13箩利洗澡无码免费视频 | 伊人久久综合谁合综合久久 | 日本色偷偷 | 韩国日本美国免费毛片 | 亚洲精品久久久久久久无 | 麻豆主播精品视频在线观看 | 黄片毛片 | 2021午夜福利理论片 | 欧美成人毛片免费网站 | 黄a一级 | 色人影院| 在线免费看a爱片 | 久久一级片 | 国产剧情精品在线 | 精品无码国产自产在线观看水浒传 | 日日拍夜夜嗷嗷叫国产 | 国产aⅴ无码专区亚洲av | 麻豆精品人妻一区二区三区蜜桃 | 少妇无码av无码专区在线观看 | 久草在线青青草 | 国产在线综合网 | 久久受www免费人成看片 | 亚洲欧美国产精品久久 | 人妻在厨房被色诱 中文字幕 | 一个人看的www日本高清视频 | 亚洲欧美日韩一区在线观看 |