رفتن به مطلب
انجمن تیم امنیتی گارد ایران

network ping script


Bl4ck M4n
 اشتراک گذاری

ارسال های توصیه شده


#!/usr/bin/perl

############################

# Author: N∫çk C0mßs (K1llTh3C0rruption) #

############################

use strict;

use Net::Ping;

$| = 1;

my $class = $ARGV[0];

my $host = $ARGV[1];

my $parent = 0;

my @children = ();

if ($ARGV[0] eq "a" || $ARGV[0] eq "A") {

v1_check();

ClassA();

} elsif ($ARGV[0] eq "b" || $ARGV[0] eq "B") {

v1_check();

ClassB();

} elsif ($ARGV[0] eq "c" || $ARGV[0] eq "C") {

v1_check();

ClassC();

} elsif ($ARGV[0] eq "") {

print "\nYou must specify a class size!\n";

Usage();

} else {

print "\nInvalid Class Size!\n";

Usage();

}

v1_check();

sub Usage

{

print "\nUsage:\n./pings.pl <class size> <subnet>\n\n";

exit 0;

}

sub v1_check

{

if ($ARGV[1] eq "") {

print "\nYou must specify a subnet!\n";

Usage();

}

open(LOG, ">>pings.txt");

print "\nHost Status:\n";

print LOG "Live Hosts:\n\n";

close(LOG);

}

sub ClassA

{

my ($a, $b, $c);

my $ping = Net::Ping->new("tcp", 2);

f0rk();

for ($a = 0; $a <= 255; $a++) {

for ($b = 0; $b <= 255; $b++) {

for ($c = 0; $c <= 255; $c++) {

my $a_host = "$host.$a.$b.$c";

my $time = scalar(localtime);

open(LOG, ">>pings.txt");

if ($parent) {

if ($ping->ping($a_host)) {

print "Successful: $a_host\t$time\n";

print LOG "Successful: $a_host\t$time\n";

} else {

if (!$ping->ping($a_host)) {

print "Failed: $a_host...\n";

}

}

} else {

Re4p();

}

close(LOG);

}

}

}

}

sub ClassB

{

my ($x, $y);

my $ping = Net::Ping->new("tcp", 2);

f0rk();

for ($x = 0; $x <= 255; $x++) {

for ($y = 0; $y <= 255; $y++) {

my $time = scalar(localtime);

open(LOG, ">>pings.txt");

if ($parent) {

if ($ping->ping($host.$x.$y)) {

print "Successful: $host.$x.$y\t$time\n";

print LOG "Successful: $host.$x.$y\t$time\n";

} else {

#Try Again...

if (!$ping->ping($host.$x.$y)) {

print "Failed: $host.$x.$y...\n";

}

}

} else {

Re4p();

}

close(LOG);

}

}

}

sub ClassC

{

my $j;

my $ping = Net::Ping->new("tcp", 2);

f0rk();

for ($j = 0; $j <= 255; $j++) {

my $time = scalar(localtime);

open(LOG, ">>pings.txt");

if ($parent) {

if ($ping->ping($host.$j)) {

print "Successful: $host.$j\t$time\n";

print LOG "Successful: $host.$j\t$time\n";

} else {

#Try Again...

if (!$ping->ping($host.$j)) {

print "Failed: $host.$j...\n";

}

}

} else {

Re4p();

}

close(LOG);

}

}

sub f0rk

{

my $oldpid = $$;

my $pid = fork;

if (not defined $pid) {

if ($! =~ /Resources Unavailable/) {

Re4p();

} else {

die "Can't fork: $!\n";

}

} elsif ($pid == 0) {

$parent = $oldpid;

@children = ();

} else {

push @children, $pid;

}

}

sub Re4p

{

while (my $child = shift @children) {

waitpid $child, 0;

}

}

لینک به دیدگاه
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری
 اشتراک گذاری

انجمن تیم امنیتی گارد ایران

تیم امنیتی گارد ایران یک گروه مستقل است که قوانین آن با خط مشی جمهوری اسلامی ایران مغایرت ندارد. تیم امنیتی گارد ایران از سال 1393 فعالیت خود را آغاز کرد و هدف این تیم تامین امنیت سایت ها و سرورهای ایرانی است. تیم ما همیشه برای دفاع از مرزهای سایبری سرزمین عزیزمان ایران آماده است.

شبکه های اجتماعی

×
×
  • اضافه کردن...