Oğuz
Elmas
- Katılım
- 19 Aralık 2020
- Mesajlar
- 346
- Tepkime puanı
- 506
- Konum
- Çanakkale / Türkiye
- İlgi Alanlarınız
- Teknoloji, Kişisel Blog ve daha niceleri.
- Cinsiyet
-
- Erkek
windows için strawberl perl linux için apt install perl yazmaniz gerekmektedir.
kendiniz yazmış gibi kullanabilirsiniz.
kodlarimiz.
perl komutu ile çaliştirabilirsiniz
orjinal link
github.com
kendiniz yazmış gibi kullanabilirsiniz.
kodlarimiz.
Perl:
#!/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.