[tutorial] modulo Net::Ping

Postagem de conteúdo sobre programação perl
Post Reply
User avatar
Kodo no Kami
Admin
Admin
Posts: 723
Joined: Fri Jan 02, 2015 1:56 pm
Contact:

[tutorial] modulo Net::Ping

Post by Kodo no Kami » Sun Nov 27, 2016 8:41 pm

e ae galera nesse tutorial vamos aprender a pingar pelo ping do perl (quanto p '-' ), para isso vamos usar o modulo Net::Ping que em boa parte das vezes vem instalado caso nao basta baixar pelo cpan, para começar esse tutorial declaramos ele

Code: Select all

#!/usr/bin/perl

use Net::Ping;
agora basta instaciar o objeto para usar ele tambem passamos o tipo de protocolo usado no caso o icmp

Code: Select all

#!/usr/bin/perl

use Net::Ping;

my $kodo = new Net::Ping("icmp");
para pingar basta usar o metodo ping e nele passamos como argumento o IP ou dominio da onde vamos pingar no meu caso o roteador (192.168.1.254)

Code: Select all

#!/usr/bin/perl

use Net::Ping;

my $kodo = new Net::Ping("icmp");
$kodo->ping("192.168.1.254");
temos que atribuir o retorno para uma variavel ou usar direto em uma condição sendo o retorno 1 se a outra maquina responder ou 0 caso nao (se o retorno for 0 nao quer dizer que a maquina nao esta em uso pode acontecer do firewall dela dropar os pacotes)

Code: Select all

#!/usr/bin/perl

use Net::Ping;

my $kodo = new Net::Ping("icmp");
my $estado = $kodo->ping("192.168.1.254");

if($estado == 1){
   print "banzaii banzaiii banzaiii\n";
}
else{
   print "nao tem boi na linha\n";
}
Image

a gente pode da uma olhada no wireshark para ver se realmente ta enviando o ping

Image

podemos usar outros protocolos como por exemplo o tcp-syn, para o syn temos que especificar uma porta para isso usamos o metodo port_number

Code: Select all

#!/usr/bin/perl

use Net::Ping;

my $kodo = new Net::Ping("syn");
$kodo->port_number(80);
my $estado = $kodo->ping("192.168.1.254");

if($estado == 1){
   print "banzaii banzaiii banzaiii\n";
}
else{
   print "nao tem boi na linha\n";
}
bom galera com isso da para criar scanners de rede que checa uma rede inteira ou uma lista de IPs em um arquivo, criar fuzzers entre outras coisas ^^

by kodo no kami
Image

que desagradavel ~ mirai kuriyama

User avatar
51M0N
Admin
Admin
Posts: 872
Joined: Fri Jan 02, 2015 2:06 pm

Re: [tutorial] modulo Net::Ping

Post by 51M0N » Sun Nov 27, 2016 8:58 pm

muito bom mano essa parte de ping, Perl tem uns módulos bem interessante.
Image
"Você, eu, nem ninguém vai bater tão duro como a vida. Mas não se trata de bater duro. Se trata de quanto você aguenta apanhar e seguir em frente (...). É assim que se consegue vencer." by Rocky Balboa

Post Reply

Return to “Perl”