云服务器网:购买云服务器和VPS必上的网站!

数据:asp怎么加密数据

asp怎样加密数据在asp中使用MD5加密算法对数据进行加密,具体方法以下:Function hmac(data,key)dim ipad,opad,k_ipad,k_opad,ifor i = 1 to ( 64 – len(key) )key = key

asp怎样加密数据

在asp中使用MD5加密算法对数据进行加密,具体方法以下:

<%

Function hmac(data,key)

dim ipad,opad,k_ipad,k_opad,i

for i = 1 to ( 64 - len(key) )

key = key & chr(&H00)

next

'Response.Write(len(key))

ipad = "6666666666666666666666666666666666666666666666666666666666666666"

opad = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"

k_ipad = strXor(ipad,key ) 'key Xor ipad

k_opad = strXor(opad,key ) 'key Xor opad

hmac =md5( k_opad & pack( md5( k_ipad & data ) ) )

End Function

Function strXor(strdata,strkey)

Dim strChar, iKeyChar, iStringChar, i,iCryptChar

for i = 1 to Len(strdata)

iKeyChar = Asc(mid(strkey,i,1))

iStringChar = Asc(mid(strdata,i,1))

iCryptChar = iKeyChar Xor iStringChar

strXor = strXor & Chr(iCryptChar)

next

End Function

Function ShowHex(data)

dim i

dim ch

l=lenB(data)

for i = 1 to l

ch=midB(data,i,1)

h=trim(hex(ascB(ch)))

if len(h)=1 then

h="0"+h

end if

ShowHex = ShowHex + h+" "

next

end Function

Function strtoHex(achar)

if Asc(achar) < 58 then

strtoHex = Asc(achar) - 48

else

strtoHex = Asc(achar) - 87

end if

End Function

Function pack(amd5)

dim i,n

dim abyte,hsum,lsum

n = len(amd5)/2

for i = 0 to n - 1

hsum = strtoHex(mid(amd5,2*i + 1,1)) * 16 + strtoHex(mid(amd5,2*i + 2,1))

if hsum > 127 and i < n - 1 then

i = i + 1

'Response.write(mid(amd5,2*i + 1,1) & mid(amd5,2*i + 2,1) )

lsum = strtoHex(mid(amd5,2*i + 1,1)) * 16 + strtoHex(mid(amd5,2*i + 2,1))

pack = pack & chr(hsum * 256 + lsum )

else

'Response.write(mid(amd5,2*i + 1,1) & mid(amd5,2*i + 2,1) )

pack = pack & chrw(hsum)

end if

next

End Function

Response.Write(md5(hmac("testdata","029a1228ea025cf897fe305715f3b794")))

%>

本文来源:https://www.yuntue.com/post/59729.html | 云服务器网,转载请注明出处!

关于作者: yuntue

云服务器(www.yuntue.com)是一家专门做阿里云服务器代金券、腾讯云服务器优惠券的网站,这里你可以找到阿里云服务器腾讯云服务器等国内主流云服务器优惠价格,以及海外云服务器、vps主机等优惠信息,我们会为你提供性价比最高的云服务器和域名、数据库、CDN、免费邮箱等企业常用互联网资源。

为您推荐

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注