Forum programmazione

[DevilAuron]

Code: Select all

#!/usr/bin/perl
#Powered By
#     .___          .__.__                                       
#   __| _/_______  _|__|  |   _____   __ _________  ____   ____
#  / __ |/ __ \  \/ /  |  |   \__  \ |  |  \_  __ \/  _ \ /    \
# / /_/ \  ___/\   /|  |  |__  / __ \|  |  /|  | \(  <_> )   |  \
# \____ |\___  >\_/ |__|____/ (____  /____/ |__|   \____/|___|  /
#      \/    \/                    \/                         \/
#                                                                 
#                  www.devilsnight.altervista.org                 
#       


use Tk;
use IO::Socket::INET;
$mw=MainWindow->new(-background=>"black");
$mw->minsize(230,130);
$mw->Label(-text=>"FakeMailer Powered By DevilAuron:",
-background=>"black",
-foreground=>"white")
->pack(-anchor=>"n");
$mw->Label(-text=>"Inserisci Mail Vittima",
-background=>"black",
-foreground=>"orange")
->pack(-anchor=>"s");

$mw->Entry(-textvariable=>\$vitt)
->pack(-anchor=>"s");

$mw->Label(-text=>"Inserisci Mittente Falso:",
-background=>"black",
-foreground=>"orange")
->pack(-anchor=>"s");

$mw->Entry(-textvariable=>\$tuam)
->pack(-anchor=>"s");


$mw->Label(-text=>"Inserisci Oggetto:",
-background=>"black",
-foreground=>"orange")
->pack(-anchor=>"s");

$mw->Entry(-textvariable=>\$obj)
->pack(-anchor=>"s");


$mw->Label(-text=>"Inserisci Messaggio:",
-background=>"black",
-foreground=>"orange")
->pack(-anchor=>"s");

$mw->Entry(-textvariable=>\$mess)
->pack(-anchor=>"s");

$mw->Button(-text=>"Invia",
-background=>"black",
-foreground=>"orange",
-activebackground=>"orange",
-activeforeground=>"black",
-command=>sub{
$sock = IO::Socket::INET->new(
PeerAddr => 'www.eliakwu.altervista.org',
PeerPort => '80',
PeerProt => 'tcp',
Timeout  => '1'
) || die "\n=>Error: Retry\n";

print $sock "GET /fm.php?vittima=" .$vitt. "&tuam=" .$tuam. "&sogg=" .$obj. "&mess=$mess HTTP/1.1\n";
print $sock "Host: www.eliakwu.altervista.org\n";
print $sock "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.12) Gecko/20070508 Firefox/1.5.0.12\n\n";
print $sock "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5";
print $sock "Accept-Language: en-us,en;q=0.5\n\n";
print $sock "Accept-Encoding: gzip,deflate\n\n";
print $sock "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7\n\n";
print $sock "Keep-Alive: 300\n\n";
print $sock "Connection: keep-alive\n\n";

@res = <$sock>;
close($sock);


$sw=MainWindow->new(-background=>"black");

$sw -> Label(-text=>"Mail Inviata!\n Powered By DevilAuron - http://devilsnight.altervista.org",
-background=>"black",
-foreground=>"orange")->pack;

})->pack(-anchor=>"s");

MainLoop;

#Bye..

[_Andy_]

scusami, ma per inviare email esiste l'ottimo Email::Send::SMTP, che è certamente più veloce di IO::Socket.

EDIT: vedo ora che non ti colleghi a un server smtp, quindi sostituisco il mio consiglio con LWP ancora una volta (noterai subito il cambiamento di velocità)