1
2
3
4
5
6
7
8
my $argv1 = $ARGV[1];
if($argv1 =~ m/^[a-zA-Z0-9_]+$/) {
$argv1 = $1;
print "$1";
}
else {
die "Bad Data in $argv1";
}
Quote.Use of uninitialized value in concatenation (.) or string at rnetposts.pl line 84.
2013-11-08T11:31:59 Eng1958Das eigentliche Problem ist tainted Code und das ist die letzte Hürde zum untainted Code.
QuoteInsecure dependency in `` while running setgid at /VAW/natural/sharedlibs/rnetposts.pl line 92.
1 2 3 4 5 6 7 8
my $argv1 = $ARGV[1]; if($argv1 =~ m/^([a-zA-Z0-9_]+)$/) { $argv1 = $1; print "$1"; } else { die "Bad Data in $argv1"; }
1 2 3 4 5 6 7 8
my $argv1 = $ARGV[1]; if($argv1 =~ m/^([a-zA-Z0-9_]+)$/) { $argv1 = $1; print "$1"; } else { die "Bad Data in $argv1"; }