|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alexander Gaiduk 2:5020/400 10 Aug 2000 14:23:39
To : All
Subject : Re: Помогите..
--------------------------------------------------------------------------------
>> @pairs = split(/&/, $buffer);
>> foreach $pair (@pairs) {
>> ($name, $value) = split(/=/, $pair);
>> $value =~ tr/+/ /;
>> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>> $value =~ s/<!--(.|\n)*-->//g;
>Господи, а это-то там откуда возьмется?
Счастливый ты человек :)
мне в своей гостевой во че пришлось сделать,
а то хакеры-художники задолбали со своим красным фоном:
$val =~ s/\<script/\<fucking_script/gi;
$val =~ s/\<iframe/\<fucking_iframe/gi;
$val =~ s/\=\"javascript\:/\=\"fucking_javascript\:/gi;
$val =~ s/\<style/\<fucking_stile/gi;
$val =~ s/\<div/\<fucking_div/gi;
$val =~ s/\<\!--/\<fucking_\!-- \>/gi;
и то думаю мало. Может у кого есть в этом направлении более
качественные наработки.
зы.
тэги по определенным причинам надо оставить, а все мыслимые
методы исполнения всех скриптов надо заблокировать.
причем я хочу видеть, что они пытались сделать...
=GAV
--- ifmail v.2.15dev5
* Origin: InterGalactic MegaTrash Co. (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Помогите.. 