Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

@INC = ("/akt/appserv","/usr/local/bin/utility",@INC);
use strict;
eval("use Utility::vbox"); print $@;
my $vbox = Utility::vbox->new(@ARGV);
my $o;

#***********************************************************************

if ( $vbox->id() eq "2878343" ) {  # 0

   $vbox->touchtones("1");
   my $erg = $vbox->message("christian_privat.msg");
   if ($erg ne "1") {
      sleep 1;
      $vbox->message("beep.msg");
      sleep 1;
      $vbox->record("120");
   }
   $vbox->stop();

}

#***********************************************************************

elsif ( $vbox->id() eq "30006132" ) {   # 4

   $vbox->message("20-liederdienst.msg");
   sleep 1;
#   $vbox->message("18-beep.msg");
#   sleep 1;
   $vbox->record("120");
   $vbox->stop();

}

#***********************************************************************

elsif ( $vbox->id() eq "30006135" ) {  # 7

   $vbox->message("ift_standard_dani.msg");
   sleep 1;
   $vbox->message("beep.msg");
   sleep 1;
   $vbox->record("120");
   $vbox->stop();

}

#***********************************************************************

elsif ( $vbox->id() eq "92919292" ) { # 8

   $vbox->touchtones("1");
   my $erg = $vbox->message("dani_privat.msg");
   if ($erg ne "1") {
      sleep 1;
      $vbox->message("beep.msg");
      sleep 1;
      $vbox->record("120");
   }
   $vbox->stop();

}

#***********************************************************************

elsif ( $vbox->id() eq "92919293" ) { # 9

   $vbox->message("15-kimu_standard.msg");
   sleep 1;
   $vbox->message("beep.msg");
   sleep 1;
   $vbox->record("120");
   $vbox->stop();

}

#***********************************************************************

elsif ( $vbox->id() eq "30006134" ) { # 6

#   $vbox->message("beep.msg");
#   my $erg1 = $vbox->waitn("3");
   my $erg1 = "3103";
   $vbox->message("beep.msg");
   my $erg2 = $vbox->waitn("3");

   if ($erg1 eq "3103") {

      if ($erg2 > 99 and $erg2 < 110) {
         $vbox->message("beep.msg");
         my $erg3 = "16-".$erg2;
         if ($erg2 eq "100") {
            $erg3 = $vbox->waitn("3");
            $vbox->message("beep.msg");
         }
         elsif ($erg2 eq "101") {
            $erg3 = "0061319722695";
         }
         elsif ($erg2 eq "102") {
            $erg3 = "004027871908";
         }
         elsif ($erg2 eq "103") {
            $erg3 = "003097894702";
         }
         if ($erg3 ne "HANGUP") {
            open(HFILE,"</etc/recall1");
            my $text = join("",<HFILE>);
            close(HFILE);
            if ($text =~ /NR\:(.*?)(\d+)/) {
               $o = $2;
               $text =~ s/$o/$erg3/;
               open(HFILE,">/tmp/recall");
               print HFILE $text;
               close(HFILE);
               system("chmod a+rwx /tmp/recall");
               system("cp /tmp/recall /tmp/recall1");
            }
         }
      }

      elsif ($erg2 == "117") {
         $vbox->message("beep.msg");
         my $erg3 = $vbox->waitn("3");
         $vbox->message("beep.msg");
         sleep 1;
         $vbox->touchtones("1");
         $vbox->record1($erg3,"120");
         sleep 1;
         $vbox->message("beep.msg");
      }

      elsif ($erg2 == "200") {
         system("xcv umleitung 2878343-");
      }
      elsif ($erg2 == "201") {
         system("xcv umleitung 2878343-061319722695");
      }
      elsif ($erg2 == "202") {
         system("xcv umleitung 2878343-0402797470");
      }
      elsif ($erg2 == "203") {
         system("xcv umleitung 2878343-03097894702");
      }

   }

   $vbox->stop();

} else {

#   my $erg;
#   $erg = $vbox->message("/Archiv/_vbox1/92919293.msg");
#   $erg = $vbox->record("10");
#
#   #$vbox->touchtones("13");
#   #$erg = $vbox->waitn("4");
   $vbox->stop();
#   system("rm /Archiv/_vbox1/zzz1");
#   open(GFILE,">/Archiv/_vbox1/zzz1");
#   print GFILE $erg;

}