Re: [Fun With Perl] Paranoia.

[merlyn@stonehenge.com (Randal L. Schwartz)]

>>>>> "John" == John Carter <john@dwaf-hri.pwv.gov.za> writes:

John> On Fri, 18 Jun 1999, Bill Jones wrote:
>> eval join '', map { (split //, (' $().s/rlenJ2Ei;o"_MNP'
>> ..'3Ot5{R}G*k,HILSTp1X\ab4cduvwhgA='))[$_] } split /\D+/,
>> "d1o18n53'17t11_23y34o20u0_37t33h13i0n11k52_40t0h21a13t
>> 27_35t0h19o23s20e29_13p27e36r0l11_0m42o45n31g5e16r10s48_
>> 14f8r8o9m0_21j9a7c8k0o19n16s10o51n9v7i5l0l11e41_10a17r
>> 15e0_6c0o2o2l4?3_3y0o6u15_0k46n16o0w26_0t38h7a14t10_24t
>> 0h5e47y43_5a24r7e2_1w18o32r12l25d3_15r0e28n0o49u50n14d8_
>> 9a0n2d0_5t6h2e2y4_3d4o26_12c22o28o3l0_1s12t0u2f4f3.2_4g
>> 30i3v0e2_4y3o1u6r1s39e1l25f0_1t12e0n1_44p0o1i22n6t0s3";

John> FWP is a hazardous list.

John> The temptation when faced with something like this is to feed it into
John> perl and see what happens. But then I noticed the 'eval'. "What", said
John> my little voice of paranoia, "if that mess on the RHS came out looking
John> like a system("rm -rf ~")?"

The easiest way is to change "eval" to "print".  Or if you
wanna still run it, overload eval with a (Safe new)->reval. :)

-- 
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me

==== Want to unsubscribe from this list? (Don't you love us anymore?)
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org