Datensicherheit

[WFUX]

RE: Schlecht programmiert, wie zB. so:

#!usr/bin/perl

$Datei = $ARGV[0];  # oder meinetwegen auch $ENV{'QUERY_STRING'} statt $ARGV[0]

open(DATA,"<$Datei") || die;
@Temp = <DATA>;
close(DATA);

foreach(@Temp) {
  print "$_\n";
}

...wenn jetzt z.B. das Script "abc.pl" heißt und
jemand "abc.pl?abc.pl" aufruft kann er sich's
auch anschauen...