Duda con exploit.pl

Hola a tod @s
Una vez encontrado el exploit lo compilo en Perl y lo ejecuto en consola con:

Código:

Perl exploit.pl

::AQUI VIENE MI DUDA::

Me tira esto:

Código:

String found where operator expected at exploit.pl line 1, near ")"; } else {$safemode = f
alse; $hsafemode = ""
(Missing operator before "; } else {$safemode = false; $hsafemode = "?)
Bareword found where operator expected at exploit.pl line 1, near ""; } else {$safemode =
false; $hsafemode = "OFF"
(Missing operator before OFF?)
String found where operator expected at exploit.pl line 1, near ")";} echo(""
(Missing operator before ";} echo("?)
Bareword found where operator expected at exploit.pl line 1, near "";} echo("Safe"
(Missing operator before Safe?)
String found where operator expected at exploit.pl line 1, near "$hsafemode"); $v = @ini_g
et(""
(Missing operator before "); $v = @ini_get("?)
Bareword found where operator expected at exploit.pl line 1, near ""); $v = @ini_get("open
_basedir"
(Missing operator before open_basedir?)
String found where operator expected at exploit.pl line 1, near "open_basedir"); if ($v or
strtolower($v) == ""
Bareword found where operator expected at exploit.pl line 1, near ""); if ($v or strtolowe
r($v) == "on"
(Missing operator before on?)
String found where operator expected at exploit.pl line 1, near "on") {$openbasedir = true
; $hopenbasedir = ""
String found where operator expected at exploit.pl line 1, near "") {$openbasedir = true;
$hopenbasedir = "".$v.""
(Missing operator before ".$v."?)
String found where operator expected at exploit.pl line 1, near "".$v."";} else {$openbase
dir = false; $hopenbasedir = ""
(Missing operator before ";} else {$openbasedir = false; $hopenbasedir = "?)
Bareword found where operator expected at exploit.pl line 1, near "";} else {$openbasedir
= false; $hopenbasedir = "OFF"
(Missing operator before OFF?)
String found where operator expected at exploit.pl line 1, near ")";} echo(""
(Missing operator before ";} echo("?)
String found where operator expected at exploit.pl line 2, near ""); echo(""
(Missing semicolon on previous line?)
Bareword found where operator expected at exploit.pl line 2, near ""); echo("Open"
(Missing operator before Open?)
String found where operator expected at exploit.pl line 2, near "$hopenbasedir"); echo(""
(Missing operator before "); echo("?)
String found where operator expected at exploit.pl line 3, near ""); $version=(""
(Missing semicolon on previous line?)
Bareword found where operator expected at exploit.pl line 3, near ""); $version=("Safe"
(Missing operator before Safe?)
Number found where operator expected at exploit.pl line 3, near "Shell 1.5"
(Do you need to predeclare Shell?)
String found where operator expected at exploit.pl line 3, near ")"); echo ""
(Missing operator before "); echo "?)
Bareword found where operator expected at exploit.pl line 3, near ""); echo "Disable"
(Missing operator before Disable?)
Bareword found where operator expected at exploit.pl line 3, near ""; if(''==($df= @ini_get
('disable_functions'))){echo "NONE"
(Missing operator before NONE?)
String found where operator expected at exploit.pl line 3, near "NONE";}else{echo ""
Scalar found where operator expected at exploit.pl line 3, near "";}else{echo "$df"
(Missing operator before $df?)
String found where operator expected at exploit.pl line 3, at end of line
(Missing operator before ";} $free = @diskfreespace($dir); if (!$free) {$free = 0;
} $all = @disk_total_space($dir); if (!$all) {$all = 0;} $used = $all-$free; $used_percent
= @round(100/($all/$free),2); error_reporting(E_WARNING); ini_set("?)
Bareword found where operator expected at exploit.pl line 3, near "display_errors"
(Missing operator before display_errors?)
String found where operator expected at exploit.pl line 3, near "display_errors", 1); echo
""
Backslash found where operator expected at exploit.pl line 4, near "\"
(Missing semicolon on previous line?)
String found where operator expected at exploit.pl line 8, near "die(""
(Might be a runaway multi-line "" string starting on line 4)
(Missing semicolon on previous line?)
Backslash found where operator expected at exploit.pl line 8, near "die("\"
syntax error at exploit.pl line 1, near ")"; } else {$safemode = false; $hsafemode = ""
"use" not allowed in e-xpression at exploit.pl line 8, near "or "
Search pattern not terminated at exploit.pl line 9.

Y no se seguir porque no se la siguiente instruccion que tengo que darle para ejecutar el exploit en el servidor victima. He probado poniendo:
nombredelhost puerto
me tira el error de comando desconocido o no se encuentra la ruta.....
A ver si me pueden echar un cable
Salu2 y gracias

P.D: Creo que el comando esta escrito en Perl pero por si acaso me e equivocado dejo el link del exploit para que me lo revisen---->
Necesitas ser usuario para ver los enlaces Crear Usuario Hacer Sesion

http://downloads.securityfocus.com/vulnerabilities/exploits/D3nGeR-17439.php

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Noviembre 18, 2008, 02:43:37