Path: utzoo!attcan!uunet!tut.cis.ohio-state.edu!zaphod.mps.ohio-state.edu!uwm.edu!bionet!agate!russet!raymond
From: raymond@russet.berkeley.edu (Raymond Chen)
Newsgroups: comp.lang.perl
Subject: Re: shortest self-reproducing Perl program
Message-ID: <1990Mar20.215103.23101@agate.berkeley.edu>
Date: 20 Mar 90 21:51:03 GMT
References: <1990Mar20.203516.8429@iwarp.intel.com>
Sender: usenet@agate.berkeley.edu (USENET Administrator;;;;ZU44)
Reply-To: raymond@math.berkeley.edu (Raymond Chen)
Organization: U.C. Berkeley
Lines: 23

>Any one liners?

 [[ don't put a newline at the end ]]

$s='$s=%c%s%c;printf$s,39,$s,39;';printf$s,39,$s,39;

Unfortunately, it doesn't work even though it should; the output is

$s='$s=%c%sc;printf$s,39,$s,39;';printf$s,39,$s,39;
	   ^ huh?

This happens with

	$Header: perly.c,v 3.0.1.4 90/02/28 18:06:41 lwall Locked $
	Patch level: 12

on a VAX8700 running ULTRIX.

Was this fixed in one of the more recent patches?

Adjust another curl attacker,		[motto for a curling iron repair shop?]
--
raymond@math.berkeley.edu     Maintainer of the csip Frequently Asked Questions