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
!--#include file='rsa.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)
C 中加密與解密
早上起來,頭一陣疼痛,昨天睡了一天,今天再也不能這樣睡下去了,於是洗漱完後往公司趕去,到公司後冷冷靜靜的只有我一個人,哎,又多愁善感了,閒話不多說,今天要分享的是c 中加密與解密的運算,如下 建立key public static string generatekey md5加密 需要加密的字串 加...
一段在asp中加密與解密對應的函式
在asp中加密方法有對應的解密方法好象不多,現在根據前輩資料整理出在asp中加密與解密函式 rsa.asp rem 在asp中實現加密與解密,加密方法 根據rsa rem 聯絡 hnsoso sina.class clsrsa public privatekey public publickey p...
C 中加密解密方法
下面是寫好的方法,使用時直接呼叫即可 using system using system.io using system.security.cryptography namespace csharplibrary.staticservice 加密 引數 strdata 要加密的資料 strkey 金...
asp 加密 解密 類
rem rem 加密解密 rem rem 在asp中實現加密與解密,加密方法 根據rsa rem 聯絡 hnsoso sina.com class clsrsa public privatekey public publickey public modulus public function cry...
加密與解密
using system using system.collections.generic using system.text using system.security.cryptography using system.io 加密字元 加密字串 加密金鑰 返回加密 public class de...