Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Народ не запускается сниффер на перле... 19.01.03 13:51 Число просмотров: 1133
Автор: TRIX Статус: Незарегистрированный пользователь
|
> Не пойму в чем дело... Не хочет работать сниффер!! Народ
> где ошибка??
> Запускаю из под win32 -Sambar 4.4-
> исходник сниффера sniff.pl :
>
> #!/usr/bin/perl
> $log = "/log/snifflog.txt";
>
> $now_string = localtime;
> @thetime = split(/ +/,$now_string);
> @theclock = split(/:/,$thetime[3]);
> $ampm = 'am';
> if ($theclock[0] > 11)
> { $ampm = 'pm'; }
> if ($theclock[0] == 0)
> { $theclock[0] = 12; }
> if ($theclock[0] > 12)
> { $theclock[0] -= 12; }
> else
> { $theclock[0] += 0; }
>
> $lnum=$ENV{'QUERY_STRING'};
> open (DB, "$log")|die "Can't Open $log: $!\n";
> flock(DB, 2);
> @line=<DB>;
> flock(DB, 8);
> close(DB);
> $value = $ENV{'HTTP_REFERER'};
> $value =~ tr/+/ /;
> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",
> hex($1))/eg;
>
> $line0="[$thetime[0] $theclock[0]\:$theclock[1]$ampm]
> (".$lnum.") ". $ENV{'REMOTE_ADDR'}."
> ".$ENV{'REMOTE_HOST'}." ".$ENV{'HTTP_X_FORWARDED_FOR'}."
> [".$value."]";
>
> $maxline=@line;
> $maxline=30 if ($maxline>30);
>
> open (DB, ">$log")|die "Can't Open $log: $!\n";
> flock(DB, 2);
> print DB ("$line0\n");
> for ($i=0; $i<$maxline; $i++)
> {
> print DB ("$line[$i]");
> }
> flock(DB, 8);
> close(DB);
>
> print "http://192.168.2.5/forum/img/yes.gif\n\n";
Я думаю, что со сниффером все ок, т.к. это исходник не твой, а хакзоновский... На мой взгляд, ты просто не можешь права доступа нормально поставить!
|
|
|
подробно о проекте
Анализ криптографических сетевых...
Народ не запускается сниффер на перле... - TRIX