Help for this page

Select Code to Download


  1. or download this
    
my $ref = $exp->send("$cmd\n");
...

$output = $exp->exp_before();
$output =~  s/^.*\r\n(.*)/$1/;
  2. or download this
    my @values = split(/\r\n/, $output);

...
    print "$val\n";
}
  3. or download this
    sub ENCRYPT_DECRYPT() {
    my $Str_Message=$_[0];
...
}

my $var=&ENCRYPT_DECRYPT($exp->exp_before());