Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

set COMHANDLE  [ exec xcv create_comhandle ]
exec perl /Winarchiv/vbox/standard.pl $COMHANDLE $vbox_caller_id $vbox_msg_standard &

while { 1 } {

   set RC [ exec xcv receive1_comhandle $COMHANDLE ]
   if { "$RC" == "___STOP___" } {
      exec xcv delete_comhandle $COMHANDLE
      return
   }
   exec xcv send0_comhandle $COMHANDLE OK

#-----------------------------------------------------------

   if { "$RC" == "message" } {
      vbox_init_touchtones
      vbox_pause 300
      set MESSAGE [ exec xcv receive1_comhandle $COMHANDLE ]
      vbox_pause 500
      set RETURN  [ vbox_put_message $MESSAGE ]
      vbox_breaklist rem all
      exec xcv send0_comhandle $COMHANDLE $RETURN
   }


   if { "$RC" == "wait" } {
      vbox_init_touchtones
      vbox_pause 300
      set WAITTIME [ exec xcv receive1_comhandle $COMHANDLE ]
      set RETURN   [ vbox_wait $WAITTIME ]
      vbox_breaklist rem all
      exec xcv send0_comhandle $COMHANDLE $RETURN
   }


   if { "$RC" == "waitn" } {
      vbox_init_touchtones
      vbox_breaklist rem all
      vbox_breaklist add *1# *2# *3# *4# *5#
      vbox_breaklist add *6# *7# *8# *9# *0#
      set WAITTIME [ exec xcv receive1_comhandle $COMHANDLE ]
      set RETURN ""
      while { 1 } {
         vbox_init_touchtones
         vbox_pause 300
         set RETURNX [ vbox_wait $WAITTIME ]
         set RETURN  [ exec echo $RETURN $RETURNX ]
         if { "$RETURNX" == "TIMEOUT" } {
            break
         }
         if { "$RETURNX" == "HANGUP" } {
            break
         }
      }
      vbox_breaklist rem all
      exec xcv send0_comhandle $COMHANDLE $RETURN
   }


   if { "$RC" == "record" } {
      vbox_init_touchtones
      vbox_pause 300
      set FILETIME [ exec xcv receive1_comhandle $COMHANDLE ]
      set RETURN   [ vbox_get_message "$vbox_msg_standard" $FILETIME ]
      vbox_breaklist rem all
      exec xcv send0_comhandle $COMHANDLE $RETURN
   }


   if { "$RC" == "touchtones" } {
      set SEQUENZ [ exec xcv receive1_comhandle $COMHANDLE ]
      vbox_breaklist add $SEQUENZ
      exec xcv send0_comhandle $COMHANDLE OK
   }


   if { "$RC" == "cleartones" } {
      vbox breaklist rem all
   }


}