Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

#!/usr/bin/perl

use lib qw(/etc /akt/appserv /u /u/appserv);
use CGI;
use CGI::Ajax;
use DivBasicF::FileComSimple;
use Data::Dumper;

my $o; my @parnames; $main::vars = [];
my $query = CGI->new();
@parnames = $query->param();
foreach $o (sort @parnames) { push(@$main::vars,$o,$query->param($o));  }
@parnames = $query->cookie();
foreach $o (sort @parnames) { push(@$main::vars,$o,$query->cookie($o));  }
$o = { @$main::vars };
$main::session = $o->{'session'}; 

my $ajax = CGI::Ajax->new("jfunc" => \&ajax_func, "skip_header" => 1);
my $text = $ajax->build_html($query,\&site);
if ($main::session) {
   print $query->header(-cookie =>
         $query->cookie(-name => "session", -value => $main::session));
} else {
   print $query->header();
}
print $text;

#print site();

sub site { return(ajax_func(0,@$main::vars)); }
     

sub ajax_func {
   my @text = @_;
   my $com = DivBasicF::FileComSimple->new(
                   ["/home/cgabriel/com",67002000,100,2]);
   if ($main::session) {
      $com->connection($main::session);
   } else {
      $com->session({});
   }
   if (!($text[0])) {
      $text[0] = "parse_html";
   } else {
      unshift(@$text,"parse_ajax");
   }
   $com->msg([@text]);
   my $erg = $com->get();
   $main::session = $com->get_connection();
   if ($erg->[0] =~ s/---SESSION---/$main::session/g) {
      $main::session = "";
   }
   return($erg->[0]);
}