Hack Tools Perl dili ile Port tarayan bir tool yapımı

[Oğuz]

windows için strawberl perl linux için apt install perl yazmaniz gerekmektedir.

kendiniz yazmış gibi kullanabilirsiniz.

kodlarimiz.

#!/usr/bin/perl

# MiniPort Project Port scanner

use IO::Socket;


$| = 1;

print q{
  __  __ _       _ ____            _
 |  \/  (_)_ __ (_)  _ \ ___  _ __| |_
 | |\/| | | '_ \| | |_) / _ \| '__| __|
 | |  | | | | | | |  __/ (_) | |  | |_
 |_|  |_|_|_| |_|_|_|   \___/|_|   \__|
     Coder: SyberCodeV1 & GrayTurkish
};
print "Enter ip adress : ";


chop ($target = <stdin>);
print "Enter the number to start : ";
chop ($start_port = <stdin>);
&check_port($start_port);
print "Enter the number to end : ";
chop ($end_port = <stdin>);
&check_port($end_port);


foreach ($port = $start_port ; $port <= $end_port ; $port++)
{

    print "\rScan started! $port";
    

    $socket = IO::Socket::INET->new(PeerAddr => $target , PeerPort => $port , Proto => 'tcp' , Timeout => 1);
    

    if( $socket )
    {
        print "\r = Port $port is open.\n" ;
    }
    else
    {
        
    }
}

print "\n\nScan finished open ports are mentioned above ~SyberCodeV1\n";

exit (0);

sub check_port {
    my $port = shift;

    if ($port =~ /\D+/ or $port > 65535 or $port < 0) {
        print "Please enter the correct port format : $port\n";
        exit 1;
    }
}

perl komutu ile çaliştirabilirsiniz
orjinal link

GitHub - oguz1337/miniport

Contribute to oguz1337/miniport development by creating an account on GitHub.

github.com

 

[Oğuz]

++

 

[Can]

eline emeğine sağlık syber

 

[Oğuz]

eline emeğine sağlık syber

eyw amcaoğlu