Olá Aureliano,<br><br><div class="gmail_quote">2012/4/20 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a>></span></div><div class="gmail_quote"><br></div><div class="gmail_quote">
Faça um favor, leia isso:</div><div class="gmail_quote"><a href="http://www.catb.org/~esr/faqs/smart-questions.html">http://www.catb.org/~esr/faqs/smart-questions.html</a></div><div class="gmail_quote"><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">
Gabriel Vieira, se conseguisse ter acesso ao meu pc vc seria uns dos hacker mais fodoes do mundo, mas mesmo assim não iria conseguir nada de interessante,<br>pois não logo nem guardo arquivos no HD.... XD, se fizer isso, faz um favor pra mim, formata ele pois estou com preguissa de fazer isso, instala ou Ubuntu ou Mandriva com <br>
dual boot com W7. LOL<br></div></div></blockquote><div><br></div><div>Um dica... se alguma vez você receber uma "resposta torta", tente não responder de forma debochada... geralmente não ajuda em anda a aliviar a tensão da thread.</div>
<div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div dir="ltr"><br>Lorn, meu codigo esta totalmente aos pedaços, pois não to desenvolvendo um Syn Flood para brincar de Anonymous, estou desenvolvendo um sistema de pen-test,<br>
mas essa é so a primeira etapa. Ou seja, dividi em modulos.<br></div></div></blockquote><div><br></div><div>Você já procurou outros "sistemas de pen-test" existentes?</div><div>Sabe, tem muita coisa aí, bem feita, onde bons programadores já colocaram horas de esforço...</div>
<div><br></div><div>Nos casos onde você não tenha encontrado *nada* que te atenda (o que não creio que seja o caso de alguma coisa que faz um flood de ping...) e/ou teve uma ideia super revolucionária... não seria então melhor contribuir pro que já existe, de forma a melhor aproveitar o seu tempo?</div>
<div><br></div><div>Enfim... supondo que seja um projeto para estudo próprio (e um pouco de tempo sobrando)...</div><div><br></div><div>Como as pessoas já disseram, você precisa dar mais informações sobre seu ambiente.</div>
<div>Qual SO está usando? (Tenho uma "leve" sensação que é Windows, mas não custa perguntar...) Está em uma conta com privilégios (por exemplo, no caso de ambientes unix, algumas funcionalidade do nmap dão erro quando utilizadas a partir de uma conta de "usuário normal", simplesmente por falta de privilégio.)</div>
<div><br></div><div>Você já conseguiu fazer esse pacote funcionar pelo menos uma vez? Pingando só um IP e uma porta específica, ou nem isso acontece?</div><div>Você tem o raio da libpcap instalada, testada e funcionando?</div>
<div>Versão do Perl instalada? Versão dos módulos instalados?</div><div><br></div><div>...</div><div><br></div><div>[ ]'s</div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">Mas ai vai...<br><br>###########__Packs.pm__#############<br><br>package Packs;<br><br>use common::sense;<br>use Net::RawIP;<br>use Packs::PacksSize;<br>use Packs::RandonIp;<br><br>sub new {<br> my $class = shift;<br>
<br> my $self = {};<br> $self->{TARGET} = undef;<br> $self->{PORT} = undef;<br> <br> bless ($self, $class);<br> return $self;<br>}<br><br>sub target{<br> my $self = shift;<br> $self->{TARGET} = shift if @_;<br>
return $self->{TARGET}<br>}<br><br>sub port {<br> my $self = shift;<br> $self->{PORT} = shift if @_;<br> return $self->{PORT};<br>}<br><br>sub send{<br> my $ip = RandonIp->new; <br> my $size = PacksSize->new;<br>
my $n = Net::RawIP->new({<br> ip => {<br> saddr => $ip,<br> daddr => &target,<br> },<br> tcp => {<br> source => $size,<br> dest => &port,<br>
psh => 1,<br> syn => 1,<br> },<br> });<br> $n->send;<br> return $n;<br>}<br><br><br>1;<br><br>#################################<br><br>** Dentro de uma pasta chamada Packs:<br>
<br>##########__RandonIp.pm__###########<br>
package Packs::RandonIp;<br><br>use common::sense;<br><br>#create random ip<br>sub new {<br> my $ip = join (".", map int rand (256), 1..4);<br> return $ip; <br>}<br><br>1;<br>
<br>
#################################<br><br>##########__PacksSize.pm__###########<br>
package Packs::PacksSize; <br><br>use common::sense;<br><br>sub new {<br> my $pac = int rand(65500) + 1;<br> return $pac;<br>}<br><br>1;<br><br>
<br>
#################################<br><br>** Script teste:<br><br>############__teste.pl__#############<br>
use common::sense;<br>use Packs;<br><br>for (1..4){<br> <br> my $p = Packs->new();<br> $p->target($ARGV[0]);<br> $p->port($ARGV[1]);<br> $p->send;<br>}<br><br>
#################################<br><br>Nomes não são definitivos, mas ai esta a parte problemática.<br><br><div><div></div><hr>Date: Fri, 20 Apr 2012 16:41:06 -0300<br>From: <a href="mailto:lorn@lornlab.org" target="_blank">lorn@lornlab.org</a><br>
To: <a href="mailto:rio-pm@pm.org" target="_blank">rio-pm@pm.org</a><br>Subject: Re: [Rio-pm] Problemas com rawsocket<div><div class="h5"><br><br><div>15:40 -!- Topic for #rio-pm: Rio.PM | Cartilha "Ao Novo Perl Hacker" in the works! thread: <a href="http://bit.ly/HGuOy5" target="_blank">http://bit.ly/HGuOy5</a> dashboard: <a href="http://bit.ly/HbiuXt" target="_blank">http://bit.ly/HbiuXt</a> | **********MEUS FILHOS BEM VINDOS AO RIO GENTILEZA GERA GENTILEZA AMORRR BELEZA PERFEIÇÃO BONDADE E RIQUEZA*******</div>
<div><br></div><div>Aurelio, nós mande seu código para que possar entender melhor e tentar te ajudar :)</div><br><div>2012/4/20 Gabriel Vieira <span dir="ltr"><<a href="mailto:gabriel.vieira@gmail.com" target="_blank">gabriel.vieira@gmail.com</a>></span><br>
<blockquote style="border-left:1px #ccc solid;padding-left:1ex">Aguarda 1 min que to tentando ter acesso aos arquivos no teu computador...<div><br></div><div>Se quiser pode enviar o código que você está usando para fazer essa chamada, já me poupa esse trabalho..</div>
<div><br></div><div>
Abraços,<br><br><div>2012/4/20 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com" target="_blank">guedes_1000@hotmail.com</a>></span><br><blockquote style="border-left:1px #ccc solid;padding-left:1ex">
<div><div>
<div><div dir="ltr">
Bom dia, <br>Monges.<br><br>Estou com um problema com o Net::RawIP.<br>Desenvolvi um modulo (uma parte) e quando executo me retorna esse erro:<br><br>socket problems [fatal] at usr/lib/perl5/Net/RawIP.pm line 620, <> line 1.<br>
<br>Eu dei uma lida no modulo e aparentemente não há problemas nenhum com ele em si.<br><br>Alguem teria uma ideia do que possa ser??<br><br>Desde já grato. <br><br>Att, <br>Aureliano Guedes<br> </div></div>
<br></div></div>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><span><font color="#888888"><br></font></span></blockquote></div><span><font color="#888888"><br>
<br clear="all"><div><br></div>-- <br>Gabriel Vieira<br>
</font></span></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br>
<br>_______________________________________________
Rio-pm mailing list
<a href="mailto:Rio-pm@pm.org" target="_blank">Rio-pm@pm.org</a>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a></div></div></div> </div></div>
<br>_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br>Bruno C. Buss<br><a href="http://www.brunobuss.net" target="_blank">http://www.brunobuss.net</a><br>