daiba.cx メール受信ポリシー

以下のようなホスト名からのメールはすべて拒否するかもしれませんので、予めご了承下さい。

  • 日本、米国、オーストラリア以外からのメール
  • 逆引きのできないホストからのメール
  • ホスト名に数字が4つ以上連続して並んでいる
  • pppとかadslとか明らかにそういうIPからのメール
    業者のサーバーであっても、拒否する場合があります。
  • 以下のドメイン
    • yournetを含む文字列のドメイン
      Freebitのことですが、あまりにもSPAM対策がなっていない
    • combzmail
      登録もしていない業者からのメールが47通きた。(それ以外もあるが)
      そのため、combzmail.jpは、迷惑メール配信業者と認識します。
ただのメール配信ASPなのですが、メールアドレスの出元をチェックせず、そのまま流しているようです。
    • ドメイン名に変に数字がついているドメイン
      拒否されやすいことがあります。

このようなホスト名からメールを送信されると、こちらから自動的にポートスキャンを行います。
受信する際は、ポートスキャンを行ってから受信します。

ちゃんと、正規にプロバイダーのメールサーバーから送信するか、OCN IP8 サービスに入って、自分で逆引きいじれるようになってからでないと受信しませんよ。

ななみちゃんに女の人からの誘いのメールを送られても困っちゃうの。

あたし、ネカマだから。

とりあえず、お返事をさしあげます。

Return-Path: <erml_2_14@yahoo.co.jp>
Received: from pppax2596.tokyo-ip.dti.ne.jp (HELO localhost) (210.170.234.96)
  by miyu.yutan.daiba.cx with SMTP; 15 Jun 2006 20:15:40 +0900
Received: (qmail 30292 invoked from network); 15 Jun 2006 10:09:31 -0000
Received: from unknown (HELO 192.168.0.1) (192.168.0.66)
  by localhost with SMTP; 15 Jun 2006 10:09:31 -0000
Subject: Re:
From: 麻衣 <asican_garden@yahoo.co.jp>
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
Content-Transfer-Encoding: 7bit
X-Mailer: Becky! ver. 2.22.02

麻衣です・・・。
ひょっとしてあなたのパソコン、ウィルスに感染してませんか?
このアドレスから私宛にタイトルの無い英語のメールが届いたんですけど・・・。
もし良かったら確認してみてください。
それとも私のパソコンの方がおかしいのかな・・・?
この前エッチなサイト見てたから、そのせいだったりして・・・。

☆--------☆--------☆--------☆--------☆
     ∧∧
    ≡・・≡    杉浦麻衣☆ミ
    (  )∫
☆--------☆--------☆--------☆--------☆

あたし、ウィルス感染してないわよ。そもそも、Return-Pathがおかしいわ

>Subject:あたし(●^o^●)です
>From: お礼は5万

Subjectからしてキモイんですけど、どうみても、横長の顔のイメージがします。
おデブさんですか?

>Subject:あたし(●^o^●)です
>From: 田中みき

同上

>Subject: 添付ファイルの事でメールした***です。
>私の方でもパャRンに詳しい知り合いに聞いてみたりして調べたんですが、多分いたずらか
ウィルスじゃないかと言う結論になりました。
そもそも、添付ファイルって、そのこと聞いてませんけど。汗

>32歳で、先週離婚したばかりです。子供は居ません。
すみません、うちより年上ですよ。汗

>写真、撮ったの送ってみたりしたいのですがウィルスとかやっぱり私自身添付ファイルには
怯えているので機会があったら見せたいと思います。
そもそも、差出人のドメインと送信元ホスト、そして、MUAが変なんですけどね。

>先程、指名しました**様より、再度あなた様への指名が入りましたので
>メールにてご連絡致しました。
>【指名者】**
>【プロフィール】
>33歳・年収1000万・未婚
>【メッセージ】
>写真がダメだったんでしょうか?それとも援助金が少ないですか?
はい。少ないです。せめて、援助金10億前払いで振り込んでくれたらいいですよ

最後に、迷惑メール自動拒否スクリプト

qmail+tcpserver用です。
#!/usr/bin/perl
($ip1,$ip2,$ip3,$ip4)=split(/\./,$ENV{TCPREMOTEIP});
$ok=1;
$ok=0 if($ENV{TCPREMOTEHOST} eq '');
$ok=0 if($ENV{TCPREMOTEHOST}=~/[0-9][0-9][0-9][0-9]/);
$ok=1 if($ENV{TCPREMOTEHOST}=~/yahoo/);
$ok=1 if($ENV{TCPREMOTEHOST}=~/hotmail/);
$ok=1 if($ENV{TCPREMOTEHOST}=~/docomo/);
$ok=0 if($ENV{TCPREMOTEHOST}=~/dhcp/);
$ok=0 if($ENV{TCPREMOTEHOST}=~/ppp/);
$ok=0 if($ENV{TCPREMOTEHOST}=~/dsl/);
$ok=0 if($ENV{TCPREMOTEHOST}=~/ftth/);
$ok=0 if($ENV{TCPREMOTEHOST}=~/nttpc/);
$ok=0 if($ENV{TCPREMOTEHOST}=~/cable/);
$ok=0 if($ENV{TCPREMOTEHOST}=~/catv/);
$ok=0 if($ENV{TCPREMOTEHOST}=~/yournet/);
$ok=0 if($ENV{TCPREMOTEHOST}=~/combzmail/);
$ok=0 if($ENV{TCPREMOTEHOST}=~/rairaiken/);
$ok=0 if($ENV{TCPREMOTEHOST}=~/\.qsv/);
$ok=0 if($ENV{TCPREMOTEHOST}=~/$ip1.?$ip2.?$ip3.?$ip4/);
$ok=0 if($ENV{TCPREMOTEHOST}=~/$ip4.?$ip3.?$ip2.?$ip1/);
$ok=1 if($ENV{TCPREMOTEIP} eq '211.10.155.53'); #bugzilla-jp
$ok=1 if($ENV{TCPREMOTEHOST}=~/ftth.ucom.ne.jp/);

if($ok eq 0) {
  foreach (keys %ENV) {
    $envs.="$_=$ENV{$_}\n";
  }
  $|=1;
  print "220 example.com - ESMTP\r\n";
  while($rd=<STDIN>) {
    $rd=~s/\r//g;
    $rd=~s/\n//g;
    $log.="$rd\n";
    if($rd=~/^[HhEe][EeHh][RrLl][Oo]/) {
      print "250 example.com\r\n";
      next;
    }
    if($rd=~/^[Rr][Cc][Pp][Tt]/) {
      print "550 Unknown User\r\n";
      next;
    }
    if($rd=~/^[Dd][Aa][Tt][Aa]/) {
      print "221 Bye...\r\n";
      last;
    }
    if($rd=~/^[Qq][Uu][Ii][Tt]/) {
      print "221 Bye...\r\n";
      last;
    }
    print "250 Ok\r\n";
  }
  open(W,">>/var/service/smtpd/tcp-deny-auto");
  print W "$ENV{TCPREMOTEIP}:deny\n";
  close(W);

  $ps="";
  open(PIPE,"/usr/local/bin/portscanner -vv -b 1 -e 1000 $ENV{TCPREMOTEIP}|");
  foreach(<PIPE>) {
    $ps.=$_;
  }
  close(PIPE);
  $whois="/usr/bin/whois "
       . ($ENV{IPCOUNTRY} eq 'JP' ? '-h whois.nic.ad.jp' : '')
      . " $ENV{TCPREMOTEIP} | /usr/local/bin/nkf -j |";
  open(PIPE, $whois);
  foreach(<PIPE>) {
    $whois.=$_;
  }
  close(PIPE);

  open(PIPE,"|/var/qmail/bin/sendmail admin\@example.com");
  print PIPE << "EOM";
From: <admin\@example.com>
To: <admin\@example.com>
Subject: $ENV{TCPREMOTEIP}-$ENV{TCPREMOTEHOST} deny

$log
---
$envs
---
$ps
---
$whois
EOM
  close(PIPE);
  exit;
}

foreach(@ARGV) {
  $argv.="$_ ";
}

system($argv);