| BlackLotus |
|
 |
 |
| Anmeldedatum: 04.01.2006 |
| Beitrge: 717 |
| Wohnort: www and 127.0.0.1/localhost |
|
|
|
|
 |
|
hab nen IP range scanner vermisst unter Linux und kein Bock irgendnen Mist zu laden und bastel mir daher meinen eigenen hier ist der erste poc in Perl.
| Code: |
#!/usr/bin/perl
use strict;
use IO::Socket::INET;
print "Portrange scanner 0.1 alpha
by BlackLotus
_____________________
Start IP: ";
my $ipstart = <STDIN>;
chomp ($ipstart);
print "End IP: ";
my $ipstop = <STDIN>;
chomp ($ipstop);
print "Port: ";
my $port="80";
my $port = <STDIN>;
chomp ($port);
print "Timeout: ";
my $to = <STDIN>;
chomp ($to);
$ipstart =~ m/(\d\d\d?).(\d\d?\d?).(\d\d?\d?).(\d\d?\d?)/;
my ($s1,$s2,$s3,$s4) = ($1,$2,$3,$4);
$ipstop =~ m/(\d\d\d?).(\d\d?\d?).(\d\d?\d?).(\d\d?\d?)/;
my ($t1,$t2,$t3,$t4) = ($1,$2,$3,$4);
for (my $i=$s4;$i<$t4+1;$i++)
{
$ipstart=$s1.".".$s2.".".$s3.".".$i;
my $sock = new IO::Socket::INET(PeerAddr => $ipstart,PeerPort => $port, Proto =>
'tcp', Timeout => 0.2) and print ($ipstart.":".$port."\n");
}
|
Man sieht an dem schlechten Code sofort,dass der von mir ist 
Nicht vergessen ist nur nen poc 
Ganz nebenbei hab den code etwas umgendert und nen Portscanner poc draus gemacht^^
| Code: | #!/usr/bin/perl
use strict;
use IO::Socket::INET;
print "Portscanner 0.1
by BlackLotus
_____________________
Start IP: ";
my $ipstart = <STDIN>;
chomp ($ipstart);
print "Timeout: ";
my $to = <STDIN>;
chomp ($to);
for (my $i="1";$i<"5000";$i++)
{
my $sock = new IO::Socket::INET(PeerAddr => $ipstart,PeerPort => $i, Proto => 'tcp', Timeout => $to) and print ($i." is open\n");
}
|
Die namen sind auch nur kurzfristig gewhlt wenn ich die noch weiterentwickel dann bekommen die richtige Namen^^
Ich mach ne eigene Security Programme Co. auf
Muss nur nen besseren Trojaner machen^^
_____________________________________________________________
Ich wrde im lokalen Netz als Timeout 0.1 nehmen testet nen bisschen rum
Hab den mal bearbeitet sodass der nicht nur einen port abscannt aber irgendwie geht das nicht richtig.
ber hilfe wrd ich mich feuen ist btw. alles vorlufig unter derr gpl.
| Code: | #!/usr/bin/perl
use strict;
use IO::Socket::INET;
print "Portrange scanner 0.1 alpha
by BlackLotus
_____________________
Start IP: ";
my $ipstart = <STDIN>;
chomp ($ipstart);
print "End IP: ";
my $ipstop = <STDIN>;
chomp ($ipstop);
print "Timeout: ";
my $to = <STDIN>;
chomp ($to);
$ipstart =~ m/(\d\d\d?).(\d\d?\d?).(\d\d?\d?).(\d\d?\d?)/;
my ($s1,$s2,$s3,$s4) = ($1,$2,$3,$4);
$ipstop =~ m/(\d\d\d?).(\d\d?\d?).(\d\d?\d?).(\d\d?\d?)/;
my ($t1,$t2,$t3,$t4) = ($1,$2,$3,$4);
for (my $i=$s4;$i<$t4+1;$i++)
{
$ipstart=$s1.".".$s2.".".$s3.".".$i;
print $ipstart;
for (my $port=1;$port<"500";$port++)
{
my $sock = new IO::Socket::INET(PeerAddr => $ipstart,PeerPort => $port,
Proto =>
'tcp', Timeout => 0.2) and print ($ipstart.":".$port."\n");
}
} |
|
|
