管理人のヒトリゴト -もみんぎゅぅ-

続きを読む… »

近々新しいスパム対策を公開する予定なのですが、その前に概要だけ説明すると、

1．逆引き不可or逆引きFQDNが動的IPっぽいときorドメインがcom/net/jp以外の場合のみCIDRテーブルにより国内or海外からのクライアントか判定します。
2.CIDRテーブルの結果が国内の場合はポリシーサービススクリプトへ渡します。（ポリシーサービススクリプトの検査結果がDUNNOの場合はsleep 35の配送遅延を実施します）
3.CIDRテーブルの結果が海外の場合はポリシーサービススクリプトへ渡します。（ポリシーサービススクリプトの検査結果がDUNNOの場合はsleep 125の配送遅延を実施します）
4.ポリシーサービススクリプトはクライアントIP、エンベロープのFROM及びTOをキーにして値にはリクエスト時間を記録
5.4のキーが無い場合はDEFER_IF_PERMITで拒否します。
6.4のキーがあった場合でもm分以上m分以内の間にN回以上のリクエストが無い場合はDEFER_IF_PERMITで拒否します。

という感じのことをしています。

まぁ〜単純にtaRgreyと同じ理屈？？？のものをオレ流に作成したものです( ´ー`)

ポリシーサービススクリプトはreceivegreyと名づけたスクリプトを作ったのです( ´ー`)

使い方はmaster.cfに

127.0.0.1:10027 inet n n n - 16 spawn
  user=nobody argv=/usr/local/bin/receivegrey --DEBUG=0 --DBFILE=/tmp/receivegrey-jp.db --TYPE=1 --COUNT=1 --BEGIN=5 --END=120
127.0.0.1:10028 inet n n n - 16 spawn
  user=nobody argv=/usr/local/bin/receivegrey --DEBUG=0 --DBFILE=/tmp/receivegrey-na.db --TYPE=1 --COUNT=2 --BEGIN=10 --END=120

ってな感じで呼び出します。

--DEBUGはmaillogに詳細のログを出力するか否か
--DBFILEはキャッシュを記録するファイルのパス
--TYPEは0の場合は許可したキーをm分以上m分以内の間なら何通でも許可する（1は1通許可したらキーを削除する）
--COUNTは1なら1度拒否してm分以上m分以内の間で一度リクエストがきたら許可する（2ならm分以上m分以内の間で二度目のリクエストから許可）
--BEGINはm分以上
--ENDはm分以内

とまぁ〜こんな感じです( ´ー`)

まだ運用して5日しか経っていないのでもう少し様子をみてから公開しようと思います。

« 閉じる

続きを読む… »

この機能は監視対象のサーバーのベータベース接続のチェックやロードアベレージのチェックなどに使うことを目的としています。（つまりスクリプトによる動的コンテンツということ）

このバグになぜ気が付いたのかというとload averageが22を突破したという出来事があったので、自宅サーバーにロードアベレージをチェックしてステータスを返すスクリプトを設置して、このスクリプトをサーバー監視スクリプトで監視しようと思ったのです。

以下がロードアベレージをチェックするスクリプト

#!/usr/bin/perl -w

use strict;

$ENV{’LANG’} = ‘en’;

my $UPTIME = `uptime`;
$UPTIME =~ s/.*load average: ([0-9\.]+), [0-9\.]+, [0-9\.]+.*/$1/;
$UPTIME =~ s/\s+//g;

print “Content-type: text/plain\n\n”;

if ($UPTIME > 10) {
print “Load average is Unhealthy!($UPTIME)”;
} else {
print “Load average is Healthy”;
}

exit;

でサーバー監視スクリプトのHttpdChk.confは以下のように設定

www.example.jp/uptime.cgi hoge@example.jp Load average is Healthy

これで自宅サーバーのロードアベレージが10を超えると携帯にメールがくるようになりました。( ´ー`)

« 閉じる

続きを読む… »

■苦労したこと其の壱

whoisサーバーの収集

以下の3サイトから収集しました。
http://www.iana.org/root-whois/
http://www.nic.ad.jp/ja/dom/types.html
http://www.cman.jp/network/support/domein_list.html

完全に網羅することはできませんでした・・・(； ´ー`)

■苦労したこと其の弐

※google.comさんを例題として使わせて頂きます（スミマセンスミマセン

socketでwhoisサーバーに繋いだ後、検索ドメインを

print SOCK “google.com\r\n”;

としてあげれば基本的には情報が返ってくるのですが、comとかnetなどのドメインは管理している団体が多数に分かれているので、これだけだと簡素な情報しか取得できません┐(´д｀)┌
（com、netはInternicのwhoisサーバーです）

しかし自宅サーバーのwhoisコマンド（jwhois）でgoogle.comを検索するとちゃんと詳細な情報が取得できます。

きっとなにか方法があるに違いない！

とりあえずtelnetで直接whois.internic.netに繋いで文章を見てみると

To single out one record, look it up with “xxx”, where xxx is one of the
of the records displayed above. If the records are the same, look them up
with “=xxx” to receive a full display for each record.

と書いてあります。

詳しくは分かりませんが、検索ドメインの頭に「=」を付けろ！ということみたいです。

もういちどtelnetでwhois.internic.netに繋いで=google.comとすると今度はgoogle.comに関連するwhoisサーバー一覧がずらずらと出てきました( ´ー`)

で肝心のgoogle.comのwhoisサーバーはその一覧の最後にありました。

ここまでの動きさえ分かってしまえばあとはスクリプトに組み込むだけです！
・whois.internic.netの場合だけ検索ドメインの頭に=を付ける
・結果から一番最後のwhoisサーバーを取得する
・取得したwhoisサーバーへ再度問い合わせをする

#!/usr/bin/perl -w

use strict;
use Socket;
use FileHandle;

my $SearchDomain = ‘google.com’;
my $WhoisServer = ‘whois.internic.ner=’;

print “[Query] ” . $SearchDomain . “\n”;
print “[Whois server] ” . $WhoisServer . “\n”;

#最初の問い合わせ
my $Result = &WhoisAdd($SearchDomain,$WhoisServer);

#whois Server:文字列がある場合に再度問い合わせる
if ($WhoisServer =~ /=$/ && $Result =~ /Whois Server:/i) {
    #最後のwhoisサーバーを取得
    while ($Result =~ /Whois Server:/i) {
        if ($Result =~ /Whois Server: ([^\r\n]+)/i) {
            $WhoisServer = $1;
            $Result =~ s/Whois Server://i;
        }
    }

    print “[Redirect] ” . $WhoisServer . “\n”;

    #再問い合わせ開始
    $Result = &WhoisAdd($SearchDomain,$WhoisServer);
}

print $Result;

sub WhoisAdd
{
    my($Host,$Whois) = @_;
    my $Resp = “”;
    my $Port = 43;
    my $Redc = “”;

    if ($Whois =~ /^([^:]+):([0-9]+)$/) {
        $Whois = $1;
        $Port = $2;
    }
    elsif ($Whois =~ /([^=]+)=$/) {
        $Whois = $1;
        $Redc = ‘=’;
    }

    eval{
        local $SIG{ALRM} = sub{ die “Connection time out.\n” };
        alarm(10);

        my $Ip = inet_aton($Whois) or die “Host not found.\n”;
        my $Addr = pack_sockaddr_in($Port,$Ip);
        socket(SOCK,PF_INET,SOCK_STREAM,0) or die “Can’t create socket.\n”;
        connect(SOCK,$Addr) or die “Connection failure.\n”;

        select(SOCK);
        $|=1;
        select(STDOUT);

        print SOCK $Redc . $Host . “\r\n”;

        while (<sock>) {
            $Resp .= $_;
        }

        close(SOCK);
        alarm 0;
    };

    alarm 0;

    if ($@) {
        return($@);
    } else {
        return($Resp.”\n”);
    }
}

なんか疲れた・・・orz

« 閉じる

続きを読む… »

PerlじゃなくてPHPでいいじゃん！って思ったのですが、Perlの方がメールの取り込み関係のモジュールが標準でインスコされてたりするのでなにかと都合がいいのですよ。

Net::SMTP
Net::POP3
MIME::Parser

などが最初からはいっておるのです。

SMTP AUTHだけはAuthen::SASLを追加していれないとダメですけど・・・（ウチはSMTP AUTHしてないから関係ないんですけどね！

その他の機能としてアドレス帳、署名、スパムフィルタとかも組み込みたいな〜

一応私の頭の中では完成してます！（ぉ

っと夢は広がるばかりなのですが、あとは時間とやる気が足りません！・・・orz

« 閉じる

続きを読む… »

■主な機能
・Socketを使用したhttp接続のチェック（SSL非対応です）
・http接続時にGETしたソースの１行目の文字列の判定
・スクリプトの二重起動を防ぐ排他処理
・監視対象を複数設定可能
・エラー通知の宛先を複数設定可能

■設置方法

1.HttpdChkのダウンロード

→ダウンロード

2.HttpdChk.plの設定

————————————————————————
01：#!/usr/bin/perl -w
・
・
・
26：my $ScriptDir = ‘/PathTo/HttpdChk’;
28：my $SendMail = ‘/usr/lib/sendmail’;
30：my $MailFrom = ‘from@example.jp’;
32：my $Subject = ‘httpd alert’;
34：my $MaxCount = 3;
36：my $LockTimeout = 20;
38：my $ConnTimeout = 10;
————————————————————————

01行目：perlのパス
26行目：作業ディレクトリ（HttdpChkディレクトリまでのフルパス）
28行目：sendmailまでのパス
30行目：エラー通知の送信者メールアドレス
32行目：エラー通知の件名
34行目：何回エラーが出たらエラー通知を送信するか
36行目：前回の処理が終わっていない場合の待機時間（秒）
38行目：http接続が成功するまでの待機時間（秒）

3.HttpdChk.confの設定

以下のフォーマットに基づいて記述します。
[Host][:Port][/Path] [Space|Tab] [SendEmail1,2,3...] [Space|Tab] [SuccessfulMessage]

[Host]
監視対象ホスト。
[:Port]
監視対象ホストのポート（指定が無い場合は80で接続）。
[/Path]
監視対象ホストのファイル、ディレクトリ。
[Space|Tab]
設定の区切り（半角スペース若しくはタブ）。
[SendEmail1,2,3...]
エラー通知の送信先メールアドレス（複数指定する場合は「,」で区切る）。
[Space|Tab]
設定の区切り（半角スペース若しくはタブ）。
[SuccessfulMessage]
httpd接続に成功した場合にGETしたソースの1行目の文字列。
主に監視対象ホストのhttp接続以外のチェックに使用します。

例）
監視対象ホストにデータベース接続が正しくできるかチェックするスクリプト（dbcheck.cgi）を設置して
www.example.jp/dbcheck.cgi to@example.jp Database connection successful
と設定。

dbcheck.cgiは接続に成功した場合は
print “Content-Type:text/plain\n\n”;
print “Database connection successful\n”;
を出力
dbcheck.cgiは接続に失敗した場合は
print “Content-Type:text/plain\n\n”;
print “エラーメッセージ\n”;
を出力

※詳しくはHttpdChk.conf記載のサンプルをご覧ください。

4.サーバーに設置
HttpdChk.pl[700]/HttpdChk.conf[644]/HttpdChk.res[644]の入ったHttpdChkディレクトをサーバーに設置します。（※[ ]の数字はパーミッション）

最後にHttpdChk.plをcronに追加して完了です。

« 閉じる