[Rio-pm] Problemas com rawsocket

[Bruno Buss]

Olá Aureliano,

2012/4/20 Aureliano Guedes <guedes_1000 em hotmail.com>

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: lorn em lornlab.org
> To: rio-pm em pm.org
> 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 <gabriel.vieira em gmail.com>
>
> 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 <guedes_1000 em hotmail.com>
>
>  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
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
>
>
>
> --
> Gabriel Vieira
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
>
>
> _______________________________________________ Rio-pm mailing list
> Rio-pm em pm.org http://mail.pm.org/mailman/listinfo/rio-pm
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>



-- 
Bruno C. Buss
http://www.brunobuss.net
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20120420/04796a8f/attachment-0001.html>