Send Fake Mail
Send Fake Mail
Remember is very posible the mail was arrived on Junk Box.
#!/usr/bin/perl # Script: fakemail.pl, Version 1.0 [2008-12-04] # Author: Albertux (Alberto Isaac Ayala Esquivias) # Web Author: http://Albertux.AyalaSoft.com # FeedBack: # Description: Send fake mail. # Licence: GPLv3 use strict; use warnings; # Chouse the host to connect on port 25 my $host='localhost'; # The vars my @raw_data=; my ($mail1, $mail2, $name1, $name2, $subject, $data ); print "Fake Mail: "; chomp($mail1 = <>); print "Destiny Mail: "; chomp($mail2 = <>); print "Fake Name: "; chomp($name1 = <>); print "Destiny Name: "; chomp($name2 = <>); print "Subject: "; chomp($subject = <>); print "Data: "; chomp($data = <>); foreach(@raw_data) { $_ =~ s/MAIL1/$mail1/g; $_ =~ s/MAIL2/$mail2/g; $_ =~ s/NAME1/$name1/g; $_ =~ s/NAME2/$name2/g; $_ =~ s/SUBJECT/$subject/g; $_ =~ s/DATA/$data/g; $_ =~ s/\\n/\n/g; } print "mail send.\n"; open(STDOUT, "| telnet ".$host." 25 > /dev/null 2>&1"); foreach (@raw_data) { print STDOUT $_; } 1; __DATA__ mail from: MAIL1 rcpt to: MAIL2 data From: NAME1 To: NAME2 Subject: SUBJECT DATA . quit

Recent Comments