BugTraq.Ru: форум / hacking / Народ не запускается сниффер на перле...

информационная безопасность
без паники и всерьез

подробно о проекте

Анализ криптографических сетевых...

Модель надежности двухузлового...

Специальные марковские модели надежности...

Очередное исследование 19 миллиардов...

Оптимизация ввода-вывода как инструмент...

Зловреды выбирают Lisp и Delphi

bugtraq.ru / форум / hacking

Имя

Пароль

если вы видите этот текст, отключите в настройках форума использование JavaScript


ФОРУМ


	все доски
	FAQ
	IRC
	новые сообщения

	site updates
	guestbook
	beginners
	sysadmin
	programming
	operating systems
	theory
	web building
	software
	hardware
	networking
	law
	hacking
gadgets
job
dnet
humor
miscellaneous
scrap

регистрация

Легенда:

новое сообщение

закрытая нитка

новое сообщение

в закрытой нитке

старое сообщение

Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
Новичкам также крайне полезно ознакомиться с данным документом.

Народ не запускается сниффер на перле... 19.01.03 13:51 Число просмотров: 1262
Автор: 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";

Я думаю, что со сниффером все ок, т.к. это исходник не твой, а хакзоновский... На мой взгляд, ты просто не можешь права доступа нормально поставить!

Народ не запускается сниффер на перле... 18.01.03 21:53
Автор: Lanser Статус: Незарегистрированный пользователь

<"чистая" ссылка>

Не пойму в чем дело... Не хочет работать сниффер!! Народ где ошибка??
Запускаю из под 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";

Народ не запускается сниффер на перле... 19.01.03 13:51
Автор: TRIX Статус: Незарегистрированный пользователь

<"чистая" ссылка>

Page build time: 0 s

Design: Vadim Derkach