← All posts tagged TCP

Melhior
Мда. Если бы не упоминание Broadcom NICE, то я долго бы еще пытался понять — почему у меня tcpdump не показывает номера вланов на исходящее
Melhior
интересно. если скан железки nmap'ом выдает

TCP Sequence Prediction: Class=64K rule
Difficulty=1 (Trivial joke)

это пздц, глючащий nmap или что-то еще?
Melhior
как мило

"Обратите внимание, что имеются некоторые неприятности с вышеприведенными правилами и плохой реализацией TCP/IP от Microsoft. "
Melhior
Linux хм. либо я что-то недогоняю либо...

почему почти во всех листингах настройки iptables написано

iptables -A INPUT -m state --state state RELATED,ESTABLISHED

iptables -A INPUT -p tcp --dport XXX -j ACCEPT


вместо того чтобы

iptables -A INPUT -m state --state state RELATED,ESTABLISHED

iptables -A INPUT -p tcp --dport XXX -m state --state NEW -j ACCEPT
Melhior
мда. использовать tcpdump для проверки как ходит нат, форвард и настроен фаервол... иногда это даже очень полезно
Melhior
перлы фаерволостроителей:

-A INPUT -p tcp -j REJECT --reject-with icmp-port-unreachable
-A INPUT -p udp -j REJECT --reject-with icmp-port-unreachable
-A INPUT -s xxx.xxx.xxx.xxx/255.255.255.0 -j ACCEPT
-A INPUT -s yyy.yyy.yyy.yyy/255.255.0.0 -j ACCEPT
-A INPUT -s zzz.zzz.zzz.zzz/255.255.0.0 -j ACCEPT
Melhior
#! /usr/bin/perl

use Net::XMPP;
use utf8;

my $to = $ARGV[0];
my $subj = $ARGV[1];
my $body = $ARGV[2];
my $type = $ARGV[3];

if (!defined($type)) {
$type = 'headline';
}

my $s = utf8::decode($subj);
my $b = utf8::decode($body);

my $hostName = 'jabber';
my $portNumber = 5222;
my $componentName = '';
my $userName = 'Zabbix';
my $passWord = '<password>';
my $resource = 'work';
my $tls = 0;
my $connectionType = 'tcpip';

my $debugLevel = 0;
my $bot = new Net::XMPP::Client(
debuglevel => $debugLevel
);

$bot->SetCallBacks(
onconnect => \&connectedCB,
onauth => \&authedCB,
ondisconnect => \&disconnectedCB
);

$bot->Execute(
hostname => $hostName,
port => $portNumber,
tls => $tls,
username => $userName,
password => $passWord,
resource => $resource,
register => 0,
connectiontype => $connectionType
);

sub connectedCB {
print "Connected\n";
}

sub authedCB {
print "Authed\n";
$bot->PresenceSend;

$bot->MessageSend(
to => $to,
subject => $subj,
body => $body,
type => $type
);

print "Sended\n";
$bot->Disconnect();
}

sub disconnectedCB {
print "Disconnected\n";
}