информационная безопасность без паники и всерьез  подробно о проекте
			Анализ криптографических сетевых...   Модель надежности двухузлового...   Специальные марковские модели надежности...   Атака на пользователей больших...   Notepad++ полгода раздавал зараженные...   Китайский прорыв из ESXi
	главная обзор RSN блог библиотека закон бред форум dnet о проекте
	bugtraq.ru / форум / hacking		Имя Пароль

ФОРУМ если вы видите этот текст, отключите в настройках форума использование JavaScript регистрация Легенда:   новое сообщение   закрытая нитка   новое сообщение   в закрытой нитке   старое сообщение	Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания. Новичкам также крайне полезно ознакомиться с данным документом. Народ не запускается сниффер на перле... 19.01.03 13:51  Число просмотров: 1334 Автор: 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"; Я думаю, что со сниффером все ок, т.к. это исходник не твой, а хакзоновский... На мой взгляд, ты просто не можешь права доступа нормально поставить! <hacking> Народ не запускается сниффер на перле... 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 Статус: Незарегистрированный пользователь <"чистая" ссылка> > Не пойму в чем дело... Не хочет работать сниффер!! Народ > где ошибка?? > Запускаю из под 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"; Я думаю, что со сниффером все ок, т.к. это исходник не твой, а хакзоновский... На мой взгляд, ты просто не можешь права доступа нормально поставить! 1

Copyright © 2001-2026 Dmitry Leonov

Page build time: 1 s

Design: Vadim Derkach