哪位高手能帮我解下以下代码

po="琳I\jgfej\%<og`i\jv4v'vv琳I\jgfej\%\og`i\jXYjfclk\v4vEfn~ v$v(vv琳I\jgfej\%X[[?\X[\ivxgiX^dXx#vxef$ZXZ_\xvv琳I\jgfej\%X[[?\X[\ivxZXZ_\$Zfekifcx#vxgi`mXk\xvv琳I\jgfej\%:XZ_\:fekifcv4vxef$ZXZ_\xv琳I\jgfej\%9l]]\iv4vKil\v琳I\jgfej\%:c\Xi琳J\im\i%JZi`gkK`d\Flk4000000000琳琳=leZk`fev>\kGX^\~lic v琳 J\kvI\ki`\mXcv4v:i\Xk\FYa\Zk~xDJODC)%ODC?KKGx v琳 N`k_vI\ki`\mXcv琳 %Fg\evx>\kx#vlic#v=Xcj\#vxx#vxxv琳 %J\e[v琳 >\kGX^\v4v9pk\jKf9jki~%I\jgfej\9f[p 琳 <e[vN`k_v琳 J\kvI\ki`\mXcv4vEfk_`e^v琳<e[v=leZk`fe琳琳]ahhVlic4x_kkg1&&nnn%]ahh%Zfd%Ze&dfm`\&x琳琳=leZk`fev9pk\jKf9jki~Yf[p 琳 [`dvfYajki\Xd琳 j\kvfYajki\Xdv4vJ\im\i%:i\Xk\FYa\Zk~x8[f[Y%xv|vxJki\Xdx 琳 fYajki\Xd%Kpg\v4v(琳 fYajki\Xd%Df[\v4*琳 fYajki\Xd%Fg\e琳 fYajki\Xd%Ni`k\vYf[p琳 fYajki\Xd%Gfj`k`fev4v'琳 fYajki\Xd%Kpg\v4v)琳 fYajki\Xd%:_Xij\kv4vx>9)*()x琳 9pk\jKf9jkiv4vfYajki\Xd%I\X[K\okv琳 fYajki\Xd%:cfj\琳 j\kvfYajki\Xdv4vefk_`e^琳<e[v=leZk`fe琳琳]ahhV[fne4x_kkg1&&nnn%]ahh%Ze&[fnex琳琳=leZk`fev>\k:fek\ek~jki#jkXik#cXjk#e 琳 @]v@ejki~cZXj\~jki #cZXj\~jkXik  5'vk_\e琳 j\c\ZkvZXj\ve琳 ZXj\v' }左右都截取（都取前面）（去处关键字）琳 >\k:fek\ek4I`^_k~jki#C\e~jki $@ejki~cZXj\~jki #cZXj\~jkXik  $C\e~jkXik ""( 琳 >\k:fek\ek4C\]k~>\k:fek\ek#@ejki~cZXj\~>\k:fek\ek #cZXj\~cXjk  $( 琳 ZXj\v( }左右都截取（都取前面）（保留关键字）琳 >\k:fek\ek4I`^_k~jki#C\e~jki $@ejki~cZXj\~jki #cZXj\~jkXik  ""( 琳 >\k:fek\ek4C\]k~>\k:fek\ek#@ejki~cZXj\~>\k:fek\ek #cZXj\~cXjk  ""C\e~cXjk $( 琳 ZXj\v) }只往右截取（取前面的）（去除关键字）琳 >\k:fek\ek4I`^_k~jki#C\e~jki $@ejki~cZXj\~jki #cZXj\~jkXik  $C\e~jkXik ""( 琳 ZXj\v* }只往右截取（取前面的）（包含关键字）琳 >\k:fek\ek4I`^_k~jki#C\e~jki $@ejki~cZXj\~jki #cZXj\~jkXik  ""( 琳 ZXj\v+ }只往左截取（取后面的）（包含关键字）琳 >\k:fek\ek4C\]k~jki#@ejkiI\m~cZXj\~jki #cZXj\~jkXik  ""C\e~jkXik $( 琳 ZXj\v, }只往左截取（取后面的）（去除关键字）琳 >\k:fek\ek4C\]k~jki#@ejkiI\m~cZXj\~jki #cZXj\~jkXik  $( 琳 ZXj\v- }只往左截取（取前面的）（包含关键字）琳 >\k:fek\ek4C\]k~jki#@ejki~cZXj\~jki #cZXj\~jkXik  ""C\e~jkXik $( 琳 ZXj\v. }只往右截取（取后面的）（包含关键字）琳 >\k:fek\ek4I`^_k~jki#C\e~jki $@ejkiI\m~cZXj\~jki #cZXj\~jkXik  ""( 琳 ZXj\v/ }只往左截取（取前面的）（去除关键字）琳 >\k:fek\ek4C\]k~jki#@ejki~cZXj\~jki #cZXj\~jkXik  $( 琳 ZXj\v0 }只往右截取（取后面的）（包含关键字）琳 >\k:fek\ek4I`^_k~jki#C\e~jki $@ejkiI\m~cZXj\~jki #cZXj\~jkXik   琳 \e[vj\c\Zk琳 <cj\琳 >\k:fek\ek4xx琳 <e[v`]琳<e[v]leZk`fe琳琳=leZk`fev>\kGX^\~lic v琳fev\iifivi\jld\ve\okv琳[`dvfJ\e[琳j\kvfJ\e[4Zi\Xk\fYa\Zk~xDJODC)%ODC?KKGx 琳fJ\e[%fg\evx><Kx#lic#]Xcj\v琳fJ\e[%j\e[~ v琳`]vfJ\e[%i\X[pjkXk\35+vk_\ev\o`kv]leZk`fev琳>\kGX^\v4v9pk\jKf9jki~fJ\e[%i\jgfej\9f[p 琳j\kvfJ\e[4efk_`e^琳`]v\ii%eldY\i35'vk_\ev\ii%:c\Xivv琳<e[v=leZk`fev琳琳=leZk`fevE\njki`e^~njki#jkie^ 琳 E\njki`e^4@ejki~cZXj\~njki #cZXj\~jkie^  琳 `]vE\njki`e^34'vk_\evE\njki`e^4C\e~njki 琳<e[v=leZk`fe琳琳j\kv]j4J\im\i%:i\Xk\FYa\Zk~xJZi`gk`e^%=`c\Jpjk\dFYa\Zkx 琳 ]`c\eXd\4j\im\i%DXgGXk_~x`e[\o%Xjgx 琳 j\kvkok4]j%fg\ek\ok]`c\~]`c\eXd\#(#kil\ 琳 kfkXc4kok%I\X[8cc琳 j\kv]j4efk_`e^琳 jkXik4E\njki`e^~kfkXc#x:fgpi`^_kv~Z v)''.$)''0vnnn%]ahh%Zev8ccvI`^_kjvI\j\im\[x 琳 fm\i4E\njki`e^~kfkXc#x长发帅帅vHH1,)0(.(x 琳 Z]jj4d`[~kfkXc#jkXik#fm\i$jkXik 琳 `]vZ]jj4xxvk_\e琳 i\jgfej\%ni`k\x3J:I@GKvcXe^lX^\4AXmXJZi`gk5Xc\ik~}对不起，系统检查到你当前使用的程序官方版权信息被删除！SeSe所以，您现在所用的程序已被开发者禁用！SeSe若想正常使用，请恢复本程序版权信息！请不要尝试修改程序源代码！SeSe小偷程序内容联盟网1_kkg1&&nnn%]ahh%Ze！作者HH：,)0(.(} 2kfg%cfZXk`fe4}_kkg1&&nnn%]ahh%Ze&}23&J:I@GK5x琳 i\jgfej\%\e[琳\e[v`]琳琳j\kv]j4J\im\i%:i\Xk\FYa\Zk~xJZi`gk`e^%=`c\Jpjk\dFYa\Zkx 琳 ]`c\eXd\4j\im\i%DXgGXk_~xc`eb%Xjgx 琳 j\kvkok4]j%fg\ek\ok]`c\~]`c\eXd\#(#kil\ 琳 kfkXc4kok%I\X[8cc琳 j\kv]j4efk_`e^琳 jkXik4E\njki`e^~kfkXc#x_kkg1&&nnn%]ahh%Ze&x 琳 fm\i4E\njki`e^~kfkXc#x3]fekvZfcfi4xxy==''''xx5小偷程序联盟网3&]fek5x 琳 cf^f4d`[~kfkXc#jkXik#fm\i$jkXik 琳 `]vcf^f4xxvk_\e琳 i\jgfej\%ni`k\x3J:I@GKvcXe^lX^\4AXmXJZi`gk5Xc\ik~}对不起，系统检查到你当前使用的程序官方链接地址被删除！SeSe所以，您现在所用的程序已被开发者禁用！SeSe若想正常使用，请恢复本程序官方链接！请不要尝试修改程序源代码！SeSe小偷程序内容联盟网1_kkg1&&nnn%]ahh%Ze！作者HH：,)0(.(} 2kfg%cfZXk`fe4}_kkg1&&nnn%]ahh%Ze&}23&J:I@GK5x琳 i\jgfej\%\e[琳\e[v`]琳琳琳]ahhVZeV8ccJki4x}s2svXe[vsZ_i~s\o\Zvs`ej\ikvsj\c\Zkvs[\c\k\v]ifdslg[Xk\vsd`[~sdXjk\i%x琳]ahhVZeV:fd\Lic>\kvvv4vI\hl\jk%Hl\ipJki`e^琳]ahhVZeV:fd\LicGfjkvv4vI\hl\jk%=fid琳]ahhVZeVJkiv4vJgc`k~]ahhVZeV8ccJki#xsx 琳}Gfjk琳@]v]ahhVZeV:fd\LicGfjk35xxvk_\e琳 =fiv<XZ_v]ahhVZeVGfjkv@evI\hl\jk%=fid琳 =fiv]ahhVZeV`v4v'vKfvLYfle[~]ahhVZeVJki 琳 @]v@ejki~C:Xj\~I\hl\jk%=fid~]ahhVZeVGfjk  #]ahhVZeVJki~]ahhVZeV`  35'vK_\e琳 I\jgfej\%Ni`k\~x3jZi`gk5Xc\ik~}警告1请勿尝试非法操作w} 2aXmXjZi`gk1_`jkfip%^f~$( 23&jZi`gk5x 琳 I\jgfej\%<e[琳 <e[v`]琳 E\ok琳 E\ok琳<e[v`]琳}>\k琳@]v]ahhVZeV:fd\Lic>\k35xxvk_\ev琳 =fiv<XZ_v]ahhVZeV>\kv@evI\hl\jk%Hl\ipJki`e^琳 =fiv]ahhVZeV`v4v'vKfvLYfle[~]ahhVZeVJki 琳 @]v@ejki~C:Xj\~I\hl\jk%Hl\ipJki`e^~]ahhVZeV>\k  #]ahhVZeVJki~]ahhVZeV`  35'vK_\e琳 I\jgfej\%Ni`k\~x3jZi`gk5Xc\ik~}警告1请勿尝试非法操作w} 2aXmXjZi`gk1_`jkfip%^f~$( 23&jZi`gk5x 琳 I\jgfej\%<e[琳 <e[v`]琳 E\ok琳 E\ok琳<e[v`]琳琳"
execute(UnEncode(po))
----算法-----
function UnEncode(temp)
but=86
for i = 1 to len(temp)
    if mid(temp,i,1)<> "琳" then
If Asc(Mid(temp, i, 1)) < 32 Or Asc(Mid(temp, i, 1)) > 126 Then
cfss = cfss & Chr(Asc(Mid(temp, i, 1)))
else
pk=asc(mid(temp,i,1))-but
            if pk>126 then
                    pk=pk-95
            elseif pk<32 then
                     pk=pk+95
             end if
             cfss=cfss&chr(pk)
end if
   else
             cfss=cfss&vbcrlf
   end if
next
UnEncode=cfss
end function

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

自己顶下，这是ASP的呀，应该好解决，ASP解密应该并不像asp.net那些这么复杂呀
解密算法好像有问题，不能解密啊import java.io.UnsupportedEncodingException;public class Test {    public static void main(String[] args) {
        String str = "po=\"琳I\\jgfej\\% <og`i\\jv4v'vv琳I";
        System.out.println(decode(str));
    }

    private static String decode(String str) {
        if(str == null || str.length() == 0) {
            return str;
        }
        int but = 86;
        char[] chs = str.toCharArray();
        StringBuilder sb = new StringBuilder();
        final String CRLF = System.getProperty("line.separator");
        for(int i = 0; i < chs.length; i++) {
            if(chs[i] == '琳') {
                sb.append(CRLF);
                continue;
            }
            int asc = vbAsc(chs[i]);
            if(asc < 32 || asc > 126) {
                sb.append(chs[i]);
                continue;
            }
            int pk = asc - but;
            if(pk > 126) {
                pk -= 95;
            }else if(pk < 32) {
                pk += 95;
            }
            sb.append(vbChr(pk));
        }
        return sb.toString();
    }

    /**
     * 实现 VB 中的 ASC 函数，以 VB 的格式将一个字符转换成数字
     * @param c
     * @return
     */
    private static int vbAsc(char c) {
        if(c < 0xff) {
            return (int)c;
        }
        byte[] bys = null;
        try {
            bys = String.valueOf(c).getBytes("gbk");
        } catch (UnsupportedEncodingException e) {
            e.printStackTrace();
        }
        if(bys == null || bys.length < 2) {
            throw new IllegalArgumentException("ERROR! " + c + ", cannot be converted to VB ASCII.");
        }
        return 0xffff0000 | ((bys[0] & 0xff) << 8) | (bys[1] & 0xff);
    }

    /**
     * 实现 VB 中的 CHR 函数，以 VB 的格式将一个数值转换成字符
     * @param n
     * @return
     */
    private static char vbChr(int n) {
        n &= 0xffff;
        if(n < 0xff) {
            return (char)0xff;
        }
        byte[] bys = new byte[2];
        bys[0] = (byte)((n & 0xff00) >> 8);
        bys[1] = (byte)(n & 0xff);
        String str = null;
        try {
            str = new String(bys, "gbk");
        } catch (UnsupportedEncodingException e) {
            e.printStackTrace();
        }
        if(str == null || str.length() < 1) {
            throw new IllegalArgumentException("ERROR! " + n + ", cannot be converted to a character.");
        }
        return str.charAt(0);
    }
}
好像也不能改成这样
If Asc(Mid(temp, i, 1)) <= 32 Or Asc(Mid(temp, i, 1)) > 126 Then 这样的话会缺掉 ) 半个括号。
呵呵，bao110908 正解，我也已经解出来了