Welcome To Our Shell

Mister Spy & Souheyl Bypass Shell

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

sub rpl { my $text = shift; my @pars = @_; my $o; my $z = 0;
   foreach $o (@pars) { $o = $pars[$z]; $z = $z + 1;
      $text =~ s/---$z---/$o/g; } return($text); }

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

sub choose          { my @pars = @_; return($pars[int rand($#pars+1)]); }
sub choose_between  { my $a = shift; my $b = shift;
                         return($a + int rand(1 + $b - $a)); }
sub choose_until    { my $b = shift; return(int rand(1 + $b)); }
sub mchoose         { my $nr = shift; my @erg = (); while ($#erg < $nr-1) {
                         push(@erg,choose(@_)); }         return(@erg); }
sub mchoose_between { my $nr = shift; my @erg = (); while ($#erg < $nr-1) {
                         push(@erg,choose_between(@_)); } return(@erg); }
sub mchoose_until   { my $nr = shift; my @erg = (); while ($#erg < $nr-1) {
                         push(@erg,choose_until(@_)); }   return(@erg); }