Serverde yeni bir port açar ve oto portda root olursunuz .
Kod :
#!/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>
<br>Hacked By akose</br>
</center>
</html>';
}
continue {
close($client);
kill CHLD -> -$$;
}
İndexi düzenleyeceğiniz yer :
<center>
<br>Hacked By akose</br>
</center>
Bu perl dosyasını servere mass.pl diye atın .
Serverin komut satırına perl mass.pl diye komut çalıştırın sonra serverdeki sitelerin 1137 portuna bakın örn : site.com:1337
Bu bir nevi fake root gibi bir şeydir kullanıp kullanmamak size kalmış .
@akose
Kod :
View hidden content is available for registered users!
#!/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>
<br>Hacked By akose</br>
</center>
</html>';
}
continue {
close($client);
kill CHLD -> -$$;
}
İndexi düzenleyeceğiniz yer :
<center>
<br>Hacked By akose</br>
</center>
Bu perl dosyasını servere mass.pl diye atın .
Serverin komut satırına perl mass.pl diye komut çalıştırın sonra serverdeki sitelerin 1137 portuna bakın örn : site.com:1337
Bu bir nevi fake root gibi bir şeydir kullanıp kullanmamak size kalmış .
@akose