[perl] OBBBBB-fuscation! - Tilted Forum Project Discussion Community

ratbastid · 10-15-2003, 07:24 AM

Here's an easy one--a.k.a. "Fun with tr///"

<code>$s='Lvtu Copuifs Rfsm Jbdlfs';$s=~tr/[b-zB-Z]/[a-zA-Z]/;print $s;</code>

ratbastid · 10-15-2003, 07:26 AM

Here's the above, but kicked up a little bit. I put it on three lines for *koff* readability....

I call this one "Fun with tr/// Part II: Around your Ass to Get to your Elbow". Just LOOKIT that line noise in line #2!

<code>$s='Lvtu Copuifs Rfsm Jbdlfs';
print "${\&t($s)}\n";
sub t{$x=shift;$x=~tr/[b-zB-Z]/[a-zA-Z]/;return($x)}</code>

ratbastid · 10-15-2003, 07:32 AM

And here's "In Reverse Around your Ass..."

<code>sub t{$x=shift;$x=~tr/[b-zB-Z]/[a-zA-Z]/;return($x)}
sub r{$b=shift;@b=split('',$b);foreach $l(@b){unshift @o,${\t($l)}};$o=join('',@o)}
$b='sfldbJ msfR sfiupoC utvL';
print "${\r($b)}\n";</code>

Okay, now what 'choo got???

ratbastid · 10-15-2003, 11:58 AM

Surely I'm not the only Perl geek at TFP??

Oh well. As long as you've got a camel, you're never really alone....

manalone · 10-15-2003, 12:11 PM

TMTOWTDI

I too, am a perl nerd, but I try not to show it off

cheerios · 10-15-2003, 07:56 PM

perl, maybe, but that? not thanks, I LIKE readable code! :P

Latch · 10-15-2003, 09:51 PM

I love perl.. but that stuff is just a nightmare hehe.

How about perl poetry?

seretogis · 10-15-2003, 10:21 PM

Yeah, perl is great, but it always makes me wince when I see code like that.

The_Dude · 10-15-2003, 10:32 PM

i dont get it at all.

wait...i barely know perl

.

i see that you are assigning something to a string and then outputting it in the end. that's 'bout all i get

>

cheerios · 10-15-2003, 11:38 PM

@date = split ' ', `date` #lastest perl command used, to write a cgi script to draw a calendar that highlights the correct day.

ratbastid · 10-16-2003, 12:35 PM

Quote:

Originally posted by seretogis
Yeah, perl is great, but it always makes me wince when I see code like that.

Yeah. That's kinda the point.

It warms my... well, not my heart...

oberon · 10-18-2003, 08:17 AM

ratbastid, have you considered learning C and then trying your newly-obtained skills in obfuscation in the IOCCC?

oblar · 10-18-2003, 09:15 AM

i love that site

I dont know enough perl to truly begin to read obfuscated code, although the perlmonks website is a great resource for obfuscated perl, but it just makes me shudder to look at it

at least with obfuscated c, i can still read it

Latch · 10-19-2003, 02:00 AM

Here's a couple that I've done:

$line =~ s/\\/\\\\/g; # Replaces "\" with "\\"
$line =~ s/'/\\\'/g; # Replaces "'" with "\'"
$line =~ s/\//\\/g; # Replaces "/" with "\"

Now, nothing like above.. but I was still proud of my little work. I'm not a guru yet

ratbastid · 10-19-2003, 10:49 AM

A worthy effort, senor Latch! Just LOOK at all those leaning toothpicks!

oberon · 10-19-2003, 06:54 PM

What, you don't like IOCCC? Why don't you start one for perl?

Pragma · 10-19-2003, 09:46 PM

I thought there already was one for Perl? Such a useful language, but so easy to obfuscate. I love watching people's brain's explode when they try to read obfuscated Perl.

10-15-2003, 07:24 AM	#1 (permalink)
ratbastid Darth Papa Location: Yonder	[perl] OBBBBB-fuscation! Here's an easy one--a.k.a. "Fun with tr///" <code>$s='Lvtu Copuifs Rfsm Jbdlfs';$s=~tr/[b-zB-Z]/[a-zA-Z]/;print $s;</code> Last edited by ratbastid; 10-15-2003 at 07:27 AM..

10-15-2003, 07:32 AM	#3 (permalink)
ratbastid Darth Papa Location: Yonder	And here's "In Reverse Around your Ass..." <code>sub t{$x=shift;$x=~tr/[b-zB-Z]/[a-zA-Z]/;return($x)} sub r{$b=shift;@b=split('',$b);foreach $l(@b){unshift @o,${\t($l)}};$o=join('',@o)} $b='sfldbJ msfR sfiupoC utvL'; print "${\r($b)}\n";</code> Okay, now what 'choo got??? Last edited by ratbastid; 10-15-2003 at 07:35 AM..

10-15-2003, 12:11 PM	#5 (permalink)
manalone Once upon a time...	TMTOWTDI I too, am a perl nerd, but I try not to show it off __________________ -- Man Alone ======= Abstainer: a weak person who yields to the temptation of denying himself a pleasure. Ambrose Bierce, The Devil's Dictionary.

10-15-2003, 10:21 PM	#8 (permalink)
seretogis Huggles, sir? Location: Seattle	Yeah, perl is great, but it always makes me wince when I see code like that. __________________ seretogis - sieg heil perfect little dream the kind that hurts the most, forgot how it feels well almost no one to blame always the same, open my eyes wake up in flames

10-15-2003, 10:32 PM	#9 (permalink)
The_Dude The GrandDaddy of them all! Location: Austin, TX	i dont get it at all. wait...i barely know perl . i see that you are assigning something to a string and then outputting it in the end. that's 'bout all i get > __________________ "Luck is what happens when preparation meets opportunity." - Darrel K Royal

10-15-2003, 07:26 AM	#2 (permalink)
ratbastid Darth Papa Location: Yonder	Here's the above, but kicked up a little bit. I put it on three lines for koff readability.... I call this one "Fun with tr/// Part II: Around your Ass to Get to your Elbow". Just LOOKIT that line noise in line #2! <code>$s='Lvtu Copuifs Rfsm Jbdlfs'; print "${\&t($s)}\n"; sub t{$x=shift;$x=~tr/[b-zB-Z]/[a-zA-Z]/;return($x)}</code>

10-15-2003, 11:58 AM	#4 (permalink)
ratbastid Darth Papa Location: Yonder	Surely I'm not the only Perl geek at TFP?? Oh well. As long as you've got a camel, you're never really alone....

10-15-2003, 07:56 PM	#6 (permalink)
cheerios Banned Location: 'bout 2 feet from my iMac	perl, maybe, but that? not thanks, I LIKE readable code! :P

10-15-2003, 09:51 PM	#7 (permalink)
Latch In Your Dreams Location: City of Lights	I love perl.. but that stuff is just a nightmare hehe. How about perl poetry?

10-15-2003, 11:38 PM	#10 (permalink)
cheerios Banned Location: 'bout 2 feet from my iMac	@date = split ' ', `date` #lastest perl command used, to write a cgi script to draw a calendar that highlights the correct day.

10-18-2003, 08:17 AM	#12 (permalink)
oberon Quadrature Amplitude Modulator Location: Denver	ratbastid, have you considered learning C and then trying your newly-obtained skills in obfuscation in the IOCCC? __________________ "There are finer fish in the sea than have ever been caught." -- Irish proverb

10-18-2003, 09:15 AM	#13 (permalink)
oblar Über-Rookie Location: No longer, D.C	i love that site I dont know enough perl to truly begin to read obfuscated code, although the perlmonks website is a great resource for obfuscated perl, but it just makes me shudder to look at it at least with obfuscated c, i can still read it __________________ "All that we can do is just survive. .All that we can do to help ourselves is stay alive." - Rush

10-19-2003, 02:00 AM	#14 (permalink)
Latch In Your Dreams Location: City of Lights	Here's a couple that I've done: $line =~ s/\\/\\\\/g; # Replaces "\" with "\\" $line =~ s/'/\\\'/g; # Replaces "'" with "\'" $line =~ s/\//\\/g; # Replaces "/" with "\" Now, nothing like above.. but I was still proud of my little work. I'm not a guru yet

10-19-2003, 10:49 AM	#15 (permalink)
ratbastid Darth Papa Location: Yonder	A worthy effort, senor Latch! Just LOOK at all those leaning toothpicks!

10-19-2003, 06:54 PM	#16 (permalink)
oberon Quadrature Amplitude Modulator Location: Denver	What, you don't like IOCCC? Why don't you start one for perl? __________________ "There are finer fish in the sea than have ever been caught." -- Irish proverb

10-19-2003, 09:46 PM	#17 (permalink)
Pragma I am Winter Born Location: Alexandria, VA	I thought there already was one for Perl? Such a useful language, but so easy to obfuscate. I love watching people's brain's explode when they try to read obfuscated Perl. __________________ Eat antimatter, Posleen-boy!