Fx-Scanner oder änliches für Linux

SuSE · 2. Oktober 2005

habe hier ein perl script gefunden:

#!/usr/bin/perl

use IO::Socket;
$cport=21;

if (@ARGV) { $range=$ARGV[0] }
($a,$b,$c,$d)=split($range,/\./)
($e,$f,$g,$h)=split($range,/\./)

for($a;$a<$e;$a++) {
for($b;$b<$f;$b++) {
for($c;$c<$g;$c++) {
for($d;$d<$h;$d++) {
$host="$a.$b.$c.$d";
$sock = IO::Socket::INET->new(PeerAddr => $host,

PeerPort => $cport,
Proto => 'tcp');
if($sock) {
print "$host -> 21 -- offen!\n";
print $sock "anonymous\n";
print $sock "bla@blo.de\n";
print "anonymous login erfolgreich!\n";
undef $sock;
}
}
}
}
}
}

nur bei mir fungst das ding irgenwie ned ^^

Anzeige

Phoenix132 · 3. Oktober 2005

Wenn du es Schaffst oder wer anders sowas zu schreiben oder aufzutreiben bekommt auf jeden fall von mir ne 10 von vielen anderen sicher auch

Nützliche Suchen

Fx-Scanner oder änliches für Linux

Videos zum Themenbereich