在asp中加密方法有對應的解密方法好象不多,現在根據前輩資料整理出在asp中加密與解密函式
rsa.asp
<%
rem 在asp中實現加密與解密,加密方法:根據rsa
rem 聯絡:hnsoso@sina.***
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中加密與解密對應的函式
rsa.asp rem 在asp中實現加密與解密,加密方法根據rsa rem 聯絡hnsoso sina.com class clsrsa public privatekey public publickey public modulus public function crypt plngmess...
一段用ASP檢視ASP檔案原始碼的程式
sub printline byval strline strline server.htmlencode strline strline replace strline,strline replace strline,strline replace strline,1,1,1 strline re...
一段男孩與女孩的對話
男孩是個北漂的程式設計師，薪水微薄，但又想在北京買車 買房 女孩很漂亮，但家境不太好。男孩心疼她，平時在花錢方面不太約束女孩，一來怕委屈了女孩，二來是因為比較愛面子 怕別人 特別是女孩的朋友們 說自己是個白領還那麼寒酸。女孩花錢越來越沒有節制。男孩的生活負擔越來越重。女孩開始透支未來，甚至盯上了男孩...