超级asp解密函数（问题）

来源：互联网发布：mac装虚拟机怎么样编辑：程序博客网时间：2024/05/01 23:58

strkey="008AD7E488FB8BF7E1C38BC9818ED3CEA9A9C6D7A6B8B3A1D9AFB9F1C1D1F1908CC1E1E18BFB6624685F8F3E49BF1A400F707B4A0108D7A3C4ADA495C0D8B1D8B5C3E6E089FB83F7E5C28BC9818ED38DF1F68193FFE5E6C786F8E6C0828DF099B5C3E6E089CA83F7E5F38BC9818EE28DF1F6B093FFE5E6F686F8E6F1B3FCF08584DFFAE095D683C6D4F3BAF8"

''这个strkey是加密以后的值

''下面是解密函数
strkey = StringDecrypt(strkey,"中国城镇基本医疗保险制度逐步扩大")

function StringDecrypt(mStr, mKey)

J = 1
StringDecrypt = ""
Str = left(mStr, 4)

TmpStr=""
iLen = chn10(Str)
if not IsNumeric(iLen) then
  response.end
end if

  if (ilen * 2) = (len(mStr) - 4) then

   for I = 2 to (len(mStr) / 2) - 1

    Str =chn10(mid(mStr,2 * i + 1,2))

    TmpStr = TmpStr & chrb(Str)

   next ' for
  else

   response.write "字符长度不对"

   response.end
  end if


mStr = TmpStr

for I = 1 to lenb(mStr)


if (ascb(midb(mStr,I ,1)) xor ascb(midb(StrConv(mKey,vbFromUnicode),J,1))) >= 127 then

     stringtemp1 = ascb (midb(mStr,I ,1)) xor ascb (midb (StrConv(mKey,vbFromUnicode),J,1))

      I = I + 1

     if J + 1 <= lenb(StrConv(mKey,vbFromUnicode)) then

         J = J+1

     else

         J = 1

end if

   stringtemp2 = ascb (midb(mStr,I ,1)) xor ascb (midb (StrConv(mKey,vbFromUnicode),J,1))

   StringDecrypt = StringDecrypt & StrConv( chrb(stringtemp1)&chrb(stringtemp2),vbUnicode)

   else
StringDecrypt = StringDecrypt & StrConv(chrb(ascb(midb(mStr,I ,1)) xor ascb(midb(StrConv(mKey,vbFromUnicode),J,1))),vbUnicode)
   end if


   if J + 1 <= lenb(StrConv(mKey,vbFromUnicode)) then
     J = J+1
   else
  J = 1
   end if
next

end function

Function chn10(nums)
Dim tmp,tmpstr,i

nums_len=Len(nums)
For i=1 To nums_len
tmp=Mid(nums,i,1)
If IsNumeric(tmp) Then
tmp=tmp * 16 * (16^(nums_len-i-1))
Else
tmp=(ASC(UCase(tmp))-55) * (16^(nums_len-i))
End If
tmpstr=tmpstr+tmp
Next
chn10=tmpstr
End Function

希望通过这个解密函数，写出加密函数，能不能实现？具体代码该怎么写？