Jump to content
Калькуляторы

IP-echelon Только меня достает?

Коллеги, данная организация мамой клянется, что говорит правду и является представителем Парамаунт Пикчерз.

Пишет, что кто-то с моей сети скачал фильм через торрент. И требует клятвенного обещания, что более такого не повторится.

Они только меня достают или у вас тоже были случаи?

Share this post


Link to post
Share on other sites

Всех достает, в /dev/null, контора в американской юрисдикции, если вы как-то отреагируете, очень вероятно, что вы нарушите какой-то закон РФ.

Share this post


Link to post
Share on other sites

Всех достает, в /dev/null, контора в американской юрисдикции, если вы как-то отреагируете, очень вероятно, что вы нарушите какой-то закон РФ.

 

В теории они могут каким-либо образом доставать через наших правоохранителей? Типа запроса через Интерпол?

Share this post


Link to post
Share on other sites

Всех достает, в /dev/null, контора в американской юрисдикции, если вы как-то отреагируете, очень вероятно, что вы нарушите какой-то закон РФ.

 

В теории они могут каким-либо образом доставать через наших правоохранителей? Типа запроса через Интерпол?

Стоит перенаправление в топку уже лет 10 как. Перед этим честно описал процедуру в юрисдикции РФ.

Share this post


Link to post
Share on other sites

А я написал эдакий обработчик писем от эшелона, PSN, и битниньзи.

 

 

#!/usr/bin/perl -w

use strict;
use Switch;
use warnings;
use Net::POP3;
use MIME::Base64;
use MIME::Lite;
use Time::Local;

use constant ECHELON => 1;
use constant SONY_PL => 2;
use constant BITNINJ => 3;

my $serv = 'mail.domain';
my $mail = 'abuse@mail.domain';
my $pass = 'ololo';


 my $pop = new Net::POP3($serv);
 my $msgs = $pop->login($mail, $pass);
 return if not defined $msgs;
 my %list = %{$pop->list};
 my $send_msg = '';
 for my $msg_num (keys(%list)) {
   my $msg = $pop->get($msg_num);
   my ($from_who, $trigger_begin, $text, $can_delete) = (0, 0, '', 0);
   BODY_MAIL: foreach my $line (@$msg) {
     switch ($trigger_begin) {
       case 0  {
         $line = del_CRLF($line);
         if ($line =~ /^From\:/) {
           $from_who = ECHELON if ($line =~ /\@copyright\.ip\-echelon\.com/);
           $from_who = SONY_PL if ($line =~ /no\-reply\@snei\.sony\.com/);
           $from_who = BITNINJ if ($line =~ /\@bitninja\.io/);
         }
         $trigger_begin = 1 if ($from_who ne 0);
         $trigger_begin = 3 if ($from_who eq SONY_PL);
         $trigger_begin = 4 if ($from_who eq BITNINJ);
         next BODY_MAIL;
       }
       case 1 {
         $line =~ s/\ //g;
         $trigger_begin = 2 if (lc($line) =~ /content\-disposition/);
         next BODY_MAIL;
       }
       case 2 {
         $line =~ s/\ //g;
         $trigger_begin = 5 if (length($line) == 1);
         next BODY_MAIL;
       }
       case 5 { unless ($line =~ /\-\-/) { $text .= del_CRLF($line); } else { $trigger_begin = 2; } }
     }
     if ($trigger_begin == 2) {
       my @data = split /\n/, MIME::Base64::decode($text);
       my ($first_line, $title) = (1, '');
       BODY_CSV: foreach my $line (@data) {
         if ($first_line == 1) { $first_line = 0; next; }
         switch ($from_who) {
           case ECHELON  {
             $line =~ s/^\s+//;
             $line =~ s/\s+$//;
             if ($line =~ /<Title>/) {
               $line =~ s/<Title>//;
               $line =~ s/<\/Title>//;
               $title = $line;
               next BODY_CSV;
             }
             if ($line =~ /<FileName>/) {
               $line =~ s/<FileName>//;
               $line =~ s/<\/FileName>//;
               $send_msg .= "$title: $line [ECHELON]<br>\n";
               $can_delete = 1;
             }
           }
         }
       }
       last;
     } elsif ($trigger_begin == 3) {
       if ($line =~ /Account/) {
         my @dummy = split /\,/, $line;
         $send_msg .= "$dummy[0] $dummy[1] [PlayStation Network]<br>\n";
         $can_delete = 1;
       }
     } elsif ($trigger_begin == 4) {
       if ($line =~ /^Subject\:/) {
         $line = del_CRLF($line);
         $send_msg .= "$line [sPAM]<br>\n";
         $can_delete = 1;
       }
     }
   }
   $pop->delete($msg_num) if ($can_delete == 1);
 }
 $pop->quit();
 exit if ($send_msg eq '');
 my $msg = MIME::Lite->new(From => $mail, To => 'news_from_spam@mail.domain', Subject => '=?utf-8?B?' .
           MIME::Base64::encode("Вкусняшки и говняшки","") . '?=', Type => 'text/html; charset=utf-8', Data => $send_msg);
 $msg->send('smtp', $serv, AuthUser=>$mail, AuthPass=>$pass, port => 25);


sub del_CRLF {
 my $text = shift;
 $text =~ s/(\n|\r)//g;
 return $text;
}

 

 

ПЫСЫ. Если кто выложит алгоритм, по которому Сони и Ко детектят "атаки" на свою сеть, буду премного благодарен.

 

Они только меня достают или у вас тоже были случаи?

http://forum.nag.ru/forum/index.php?showtopic=126409

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this