Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

use Server::BlackBoard;
use PPLTest::Buffer_Semantic;
use DivBasicF::COMsimple;

DivBasicF::COMsimple->read_in_environment();

my $in      = Server::BlackBoard->new($ENV{'out_db'});
my $out     = Server::BlackBoard->new($ENV{'in_db'});

#my $semantic = PPLTest::Buffer_Semantic->new();

#  ct:          Counter: wird serverseitig hochgezaehlt
#  slnnnnnnnn:  serverseitiges sleep: sl + 8 Ziffern (Millisekunden)
#  getbytes:    holt die Bytefolgen aus dem Ergebnisstack

#my $hexcode = $semantic->send("Key.KEY_STATE_U8__KEY_EIN_AUS");
#print $hexcode;
#$out->msg($hexcode);


print "1\n";
$out->msg("Key.KEY_STATE_U8__KEY_EIN_AUS");

sleep 10;

print "2\n";
$out->msg("Key.KEY_STATE_U8__KEY_EIN_AUS");

sleep 10;


print "3\n";$out->msg("SoftKey.BLIST_BASISPARTITION_HAUPTMENUE_CVA__ITEM1");


print "qqq\n";

exit;

$out->msg("Key.KEY_STATE_U8__KEY_EIN_AUS");
sleep 1;
$out->msg("KeyPressShort.EINAUS");
$out->msg("Key.KEY_STATE_U8__KEY_EIN_AUS");
sleep 10;


print "hier\n";

$out->msg("getbytes");  # hier werden die Ergebnisbytes geholt



sleep 10;
my $m = $in->get();

while (@$m) {
   $o1 = shift(@$m);
   my $erg = $o1->[1];
   print "EMPFANGENE BYTES: $erg\n" if ($erg !~ /von 06/);
#   print "MESSAGE: " . $semantic->receive($erg) . "\n";
}