|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Igor Okunev 2:5020/400 14 Feb 2002 22:44:47
To : Stas Vlasov
Subject : Re: Заголовок ответа
--------------------------------------------------------------------------------
On Feb 13, 2002 at 20:45, Stas Vlasov wrote:
> # чтоб нельзя было урл типа ../../../autoexec.bat соорудить.
в твоем случае можно... см ниже.
> $arg =~ s/\.\.//g;
> $argorig = $arg;
>
> $arg =~ s/^\///g;
> $archive = (split ':', $arg)[0];
> $file = (split ':', $arg)[1];
>
> $afile = sprintf "$basepath/$archive";
а как насчет, $ARGV[0] = '.%s./.%s./autoexec.bat:', например :)
это про проверку $arg =~ s/\.\.//g :), зачем здесь вообще sprintf ?
да и ';' или '&' тоже вобщем то не проверяются....
> open INFILE, "/bin/unzip -C -p $afile $file|" || die "$!";
--
With best regards,
Okunev Igor mailto: igor@prv.mts-nn.ru
http://www.mts-nn.ru/~gosha
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
