Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

use strict;
use DivBasicF::COMPrg;
use DivBasicF::ProtocolPrg;
use Data::Dumper;

if (!($ENV{'PPLDB'})) { $ENV{'PPLDB'} = "PPLTest/parameter.txt"; }
eval("require\(\"".$ENV{'PPLDB'}."\"\)"); print $@;

$Data::Dumper::Deepcopy = 1;
$Data::Dumper::Indent   = 1;
$Data::Dumper::Purity   = 1;


$main::XCONSOLE = 0;

my $obj =   DivBasicF::COM->new([],
            DivBasicF::COMPrg->new([],
            DivBasicF::ProtocolPrg->new([])));


my @ee = @ARGV;
if (-f $ee[0]) {
   open(FFILE,"<".$ee[0]);
   $ee[0] = join("",<FFILE>);
   close(FFILE);
}

my $erg = $obj->msg(["step",@ee]);

while (0 == 0) {
   print "STATUS " . $obj->{'STATUS'}->{$obj->{'CHANNEL'}};
   my $text = $obj->run1();
   print " --> $text\n";
   $erg = $obj->get();
   last if ($erg and $text);
#   sleep (0);
}

print Dumper($erg);

package DivBasicF::COMPrg;
use DivBasicF::COMTest;
use PPLTest::AutoTest;
use PPLTest::Gen6000;