Opa Breno, tudo joia?? Na verdade eu não tentei com o Windows pois desde a versão Windows XP sp2 não tem suporte a RawSockets (uma questão de segurança, segundo a Microsoft). Mas como havia viajado, fiquei sem tempo, então ontem quando voltei eu usei a versão do Bruno e deu erro tambem, então pela segunda vez eu reinstalei a libpcap, e por algum motivo mistico funcionou. :D A medida que for concluindo etapas do que estou desenvolvendo vou compartilhar com a comunidade Perl.
> Date: Sun, 22 Apr 2012 23:22:57 -0300 > From: br...@rio.pm.org > To: rio-pm@pm.org > Subject: Re: [Rio-pm] Problemas com rawsocket > > bbuss++ # ótimas respostas, parabéns! > > Aureliano, depois nos conte se teve algum problema em rodar a versão > do Bruno no Windows. O Net::RawIP não oferece suporte a Windows nos > métodos de manipulação de ethernet, então algumas coisas podem não > rodar bem. Você tá usando a Winpcap 4.1.2? Ou outro mais > antigo/diferente? > > Se está brincando com isso, pode experimentar também o > Win32::NetPacket => https://metacpan.org/module/Win32::NetPacket > > []s > > -b > > On Fri, Apr 20, 2012 at 9:39 PM, Bruno Buss <bruno.b...@gmail.com> wrote: > > Ola Aureliano, > > > > Então... testei aqui com chamando com "sudo perl script.pl 127.0.0.1 7201" e > > ele executou sem nenhum problema. > > Aqui está todo o código como está aqui na minha > > máquina: https://gist.github.com/2432871 > > > > [ ]'s > > > > 2012/4/20 Bruno Buss <bruno.b...@gmail.com> > >> > >> Aureliano, > >> > >> 2012/4/20 Aureliano Guedes <guedes_1...@hotmail.com> > >>> > >>> Sei que aqui tem muitas pessoas gentis, mas abro mão e não desejo mais > >>> ajuda, pois percebo que estou incomodando pessoas tão bem instruidas como > >>> Mantovani. > >> > >> > >> De boa cara... não vamos começar com drama aqui não. > >> Vamos resolver o problema... > >> > >>> > >>> Ainda me retornou o erro: > >>> > >>> Use of uninitialized value $daddr in pattern match (m//) at > >>> /usr/lib/perl5/Net/RawIP.pm line 481, <> line 1. > >> > >> > >> Essa é fácil! =P > >> Mesmo problema do caso anterior: > >> " daddr => &target," > >> > >> Troque por: > >> " daddr => $self->{TARGET}," > >> > >> > >>> > >>> Use of uninitialized value in subroutine entry at > >>> /usr/lib/perl5/Net/RawIP.pm line 626, <> line 1. > >>> Use of uninitialized value in subroutine entry at > >>> /usr/lib/perl5/Net/RawIP.pm line 626, <> line 1. > >> > >> > >> Na sua sub send, logo depois de você fazer > >> "my $size = PacksSize->new;" > >> > >> Coloque um: > >> say "TARGET = $self->{TARGET}"; > >> say "PORT = $self->{PORT}"; > >> > >> Só para fins de debug =P > >> > >> > >> E depois cole seu código atual em um pastebin da vida, para facilitar a > >> conversa :) > >> > >> [ ]'s > >> -- > >> Bruno C. Buss > >> http://www.brunobuss.net > > > > > > > > > > -- > > Bruno C. Buss > > http://www.brunobuss.net > > > > _______________________________________________ > > Rio-pm mailing list > > Rio-pm@pm.org > > http://mail.pm.org/mailman/listinfo/rio-pm > _______________________________________________ > Rio-pm mailing list > Rio-pm@pm.org > http://mail.pm.org/mailman/listinfo/rio-pm
_______________________________________________ Rio-pm mailing list Rio-pm@pm.org http://mail.pm.org/mailman/listinfo/rio-pm