system("useradd", ... using suidperl -w -T: Insecure dependency in system... - #5712 (Perl/CGI)

pearl-man

2005-09-28 20:23

User since
2005-07-25
65 Artikel
BenutzerIn
[default_avatar]

hi, ich möchte keinen wrapper verwenden, es muss schließlich auch ohne gehen!

filter:(kurze variante)

Code: (dl )

1
2
3

$user =~ s/%(..)/pack("c", hex($1))/ge;
$user =~ s/[([;<>\*\|&\$!#\(\)\[\]\{\}:'"\\]//g;
if (length($user)>=16){$user=substr($user,0,16);}

\n\n