1THEN L="sb.asp#OK":C=8 X=31AND C:IF X<4THEN FOR X=1TO 30:Session(X)=T:IF X<7THEN Session(X+40)=0 NEXT:D=2:DO:T="":E=-2:B=0:DO:K="":X=0:DO:A=ascB(.BinaryRead(1)):K=K+chr(A):X=X+1:LOOP WHILE(A>10AND X<333)OR A=13:G=G+1:IF S=left(K,D)THEN Exit DO IF G=B THEN B=B+1:E=E+X:T=T+K ELSE IF G=1THEN D=X-2:S=left(K,D)ELSE N=Instr(K,"""")+4:IF N>4THEN E=E+X-N:T=T+mid(K,N-2,X-N):B=G+2 LOOP:P=P+1:Session(P)=J(E)&left(T,E):IF asc(T)=62AND E<99THEN B=2:FOR A=41TO 46:E=ABS(Instr(B,T,",")-B):Session(A)=INT(0&mid(T,B,E)):B=B+E+1:NEXT LOOP WHILE D+3>X:T=.QueryString ELSE H=J(-1):set O=Server.CreateObject("Scripting.FileSystemObject"):With Response:SELECT CASE X:CASE 4:set F=O.GetFolder(L):set I=F.Files:FOR Each Z in I:S=ucase(Z.Name):IF H=right(S,len(H))THEN P=P+1:T=T&J(Z.Size)&J(len(S))&S NEXT:CASE 5:P=O.GetFolder(L):CASE 6:O.CreateFolder(L):CASE 7:Server.Execute L:CASE 8:.Redirect L:CASE 9:Set M=CreateObject("CDO.Message"):M.From="www@joecastle.it":M.Subject=H:M.HTMLBody=J(-2):M.To=J(-3):L="http://schemas.microsoft.com/cdo/configuration/s":With M.Configuration.Fields:.Item(L&"endusing")=2:.Item(L&"mtpserver")="smtp.aruba.it":.Update:END With:M.Send:CASE 10:O.DeleteFile L:CASE 11:P=V(12)-48:G=V(13)<48:P=(P-(P*9+V(13)-48)*(G=0))*3600+V(G+15)*600+V(G+16)*60+V(G+18)*10+V(G+19)+(V(1)*10+V(2))*86400+(V(4)*10+V(5))*2764800+(V(9)*10+V(10))*35942400-21130016208:T=chr(P\16777216)&J(P):CASE 31:.Cookies(S).Expires=#May 1,2099# .Cookies(S).Secure=0:.Cookies(S)=H:END SELECT:END With END IF:Session(0)=J(P)&T:LOOP WHILE C>127:END With:FUNCTION J(X):IF X<0THEN J=trim(mid(Session(-X),4))ELSE J=chr(X\65536AND 255)+chr(X\256AND 255)+chr(255AND X) END FUNCTION:FUNCTION V(X):V=asc(mid(L,X)):END FUNCTION */ case 8:header('Location:'.substr($r[65538],3));exit;} ?>

Lista SOFTWARE



versione Standard  
versione Fullscreen




Qui ci sarà la lista
delle opzioni e utility
disponibili per il
management del vostro
account...