Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

package Gen6000::CVA::Einstellungen;

use strict;
use vars qw(@ISA $PKG);
$PKG = __PACKAGE__;
while ($PKG =~ s/^(.*)\:\:.*$/$1/) { eval("use $PKG"); next if ($@); @ISA = ($PKG); last }


sub result { 1 }
sub remark { "OK" }
sub user   { "20111014_1300.cg" }
sub requ   { [

           ] }

sub run   {

   my $self = shift;
   $self->test_start(@_);

   $self->{'requ'}->{'CVA_Einstellungen'} = 0.01; 
   $self->{'TASTE2'} = $self->cva_rand();
#   $self->{'TASTE2'} = 9;
   
#   $self->{'requ'} = { @{$self->requ()}, @_ };
   $self->taste("refresh");
   $self->getbytes();
   $self->sleep(2);

   return(["___NEXT2___","t010"]);

}

sub t010 {

   my $self = shift;
   $self->taste("Key.KEY_STATE_U8__KEY_EIN_AUS");
   $self->sleep(2); } sub t011 { my $self = shift;
   $self->taste("Key.KEY_STATE_U8__KEY_EIN_AUS");
   $self->sleep(4); } sub t012 { my $self = shift;
   $self->getbytes();
   $self->check(10,"BASISPARTITION_HAUPTMENUE_CVA",$self->{'basis'}); } sub t015 { my $self = shift;
   
#----------------------------------------------------------------------------------------------------------------   

   $self->taste("SoftKey." . "BLIST_BASISPARTITION_HAUPTMENUE_CVA" . "__ITEM4");
   $self->sollwert();
   $self->sleep(8); } sub t020 { my $self = shift;
   $self->getbytes();
   $self->check(50,$self->{'basis_soll'},$self->{'basis'}); } sub t025 { my $self = shift;                                                                              

   $self->taste("SoftKey." . "BLIST_BASISPARTITION_EINSTELLUNGEN_CVA" . "__ITEM" .
          $self->{'TASTE2'});
   $self->sollwert();
   $self->sleep(8); } sub t030 { my $self = shift;
   $self->getbytes();
   $self->check(50,$self->{'basis_soll'},$self->{'basis'}); } sub t035 { my $self = shift;
   $self->taste("Key.KEY_STATE_U8__KEY_ZURUECK");
   $self->sollwert();
   $self->sleep(4); } sub t040 { my $self = shift;
   $self->getbytes();
   $self->check(10,$self->{'basis_soll'},$self->{'basis'}); } sub t045 { my $self = shift;
   
   $self->test_end();
   
}





1;