如何给 URL地址栏中的参数加密、解密?


一、URLEncode加密和解密


加密写法URLEncode(str)


二、自己编写函数进行加密和解密

解密代码

<%
Function URLDecode(enStr)                    'URL解碼函數
  dim deStr
  dim c,i,v
  deStr=""
  for i=1 to len(enStr)
      c=Mid(enStr,i,1)
      if c="%" then
          v=eval("&h"+Mid(enStr,i+1,2))
          if v<128 then
              deStr=deStr&chr(v)
              i=i+2
          else
              if isvalidhex(mid(enstr,i,3)) then
                  if isvalidhex(mid(enstr,i+3,3)) then
                      v=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2))
                      deStr=deStr&chr(v)
                      i=i+5
                  else
                      v=eval("&h"+Mid(enStr,i+1,2)+cstr(hex(asc(Mid(enStr,i+3,1)))))
                      deStr=deStr&chr(v)
                      i=i+3  
                  end if  
              else  
                  destr=destr&c
              end if
          end if
      else
          if c="+" then
              deStr=deStr&" "
          else
              deStr=deStr&c
          end if
      end if
  next
  URLDecode=deStr
end function

function isvalidhex(str)
  isvalidhex=true
  str=ucase(str)
  if len(str)<>3 then isvalidhex=false:exit function
  if left(str,1)<>"%" then isvalidhex=false:exit function
  c=mid(str,2,1)
  if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
  c=mid(str,3,1)
  if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
end function
%>


[本日志由 随然 于 2006-03-10 10:16 PM 编辑]
上一篇: 在数据库中不用 EOF 以加快记录循环
下一篇: 教师无购买能力?
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 278 | 查看次数: 17812
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1 字 | UBB代码 关闭 | [img]标签 关闭