用户名: 用QQ登录本站
密 码: 注册
验证码:
首页 软件 编程 笑话 知识 公告 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

[公益] 节省一分零钱 献出一份爱心 温暖世间真情       【腾讯云】云产品限时秒杀,爆款1核2G云服务器,首年99元      
广告位招租中
2021年 劳动节 10
2021年 端午节 54
2022年 元 旦 255
2022年 春 节 286
 
  • 您现在的位置:首页 >> ASP >> 内容

    ASP代码加密

    内容摘要: 主要的加解密函数如下:function UnEncode(temp) but=1 for i =1 to len(temp)if mid(temp,i,1)'汤' then pk=asc(mid(temp,i,1))-but if pk126 thenpk=pk-95 elseif pk32 thenpk=pk+95 end if a=achr(pk)els......

      主要的加解密函数如下:


    function UnEncode(temp)

    but=1

    for i =1 to len(temp)

    if mid(temp,i,1)<>"汤" then

    pk=asc(mid(temp,i,1))-but

    if pk>126 then

    pk=pk-95

    elseif pk<32 then

    pk=pk+95

    end if

    a=a&chr(pk)

    else

    a=a&vbcrlf

    end if

    next

    UnEncode=a

    end function


    function Encode(temp)

    but=1

    cc=replace(temp,vbcrlf,"汤")

    for i= 1 to len(cc)

    if mid(cc,i,1)<>"汤" then

    pk=asc(mid(cc,i,1))+but

    if pk>126 then

    pk=pk-95

    elseif pk<32 then

    pk=pk+95

    end if

    a=a&chr(pk)

    else

    a=a&"汤"

    end if

    next

    ’a=replace(a,"""","""""")

    Encode=a

    end function


    在开发的时候,通常将关键ASP代码Encode,再使用Excute(Uncode(ipaddr))执行就可以了。这样管理员一般不能直接看到关键代码,一般在程序里不要带上Encode函数,只在开发的时候使用,此外,UnEncode也可以改成其它函数名。

      版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


    发布日期:2021/3/10 发布时间:15:13:21 点击:328 录入:齐天大圣
  • 上一篇:ASP中SELECT下拉菜单同时获取VALUE和TE
  • 下一篇:显示五个重复的句子,字体越来越大
  • 本类新增
    本类热门文章
    Baidu

    YiJiaCMS V5.01 Build 21.03.31(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    齐天大圣® 制 作 ©2000-2021