Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

#!/usr/bin/perl
my $arg = shift; %v = ();

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

$v{"RESOLUTION_ZGV"}    = "800 600 8";
$v{"SCANNER"}           = "microtek2:/dev/sg5";
$v{"DEVICE_CDR"}        = "/dev/sr0";
$v{"SCSINR_CDR"}        = "3,0";
$v{"SPEED_WRITE_CD"}    = "8";

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

$v{"ORTSNETZNUMMER"}    = "040";
$v{"INITNR"}            = "0";

$v{"FAXDEF_01"}         = "cgnrn---49 911 28783-76---DR. CHRISTIAN GABRIEL";
$v{"FAXDEF_02"}         = "cghh---49 40 278050-27---DR. CHRISTIAN GABRIEL";
$v{"FAXDEF_03"}         = "cgweb---49 911 929190-88---WEB-KLICK";

$v{"DOSHOME"}           = "dosc";
$v{"COM_PORT"}          = "0";
$v{"MODEM_SPEED"}       = "38400";
$v{"MODEM_SLEEP_TIME"}  = "3";

$v{"T_ONLINE_NUMBER"}   = "0191011";
$v{"T_ONLINE_ACCOUNT"}  = "0004312684213200694783680001";
$v{"T_ONLINE_PASSWORD"} = "01590425";
$v{"T_ONLINE_LOCALIP"}  = "0.0.0.0";
                    #  $v{"T_ONLINE_LOCALIP"} = "139.11.200.21";
$v{"T_ONLINE_REMOTIP"}  = "";

$v{"MAILHOST"}          = "post.strato.de";
$v{"MAILUSER"}          = "gabriel\%shortnote.de";
$v{"MAILPASSWORD"}      = "vierne";
$v{"MAILPROTOCOL"}      = "pop3";
$v{"MAILFROM"}          = "christian.gabriel\@shortnote.de";

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

print $v{$arg};

1;