Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Yet Another**2 Obfuscation Engine

by mtve (Deacon)
on Apr 27, 2002 at 17:22 UTC ( #162538=obfuscated: print w/replies, xml ) Need Help??

Let's continue. Now it's /^[a-zA-Z^|]$/.

@a=grep/[^mqsvy]/,a..z,A..Z; $a{$_}=$_ for@a; for$i(@a){for(@a){ $a{$i|$_}||="$i | $_"; $a{$i^$_}||="$i ^ $_"; }} for$i(@a){for$j(@a){ $a{$i^$j^$_}||="$i ^ $_ ^ $j"for@a; }} exists$a{chr$_}or die"no $_"for 9,10,32..126; undef$/; $_=join'',map{ $b=qw(| ^)[$a{$_}=~/../?$a{$_}=~/\|/:rand 2]; $c=qw(^ |)[rand 2]; "s $b$b $a{$_} ${b}e $c " }reverse<>=~/./gs; $_.="s || LZ ^ Ea ^ ad ^ L |eee"; s/((\S *){1,79})( |$)/$1\n/g; s/ //g; print;
Hope it's not too tiresome.
s||a^C|e^s^^n^e^s^^D|X^e^s||r|e^s||e|e^s||k|e^s^^c^e|s||a|e|s^^h^e|s|| +a^A|e|s^^ l^e^s||r|e|s||e|e^s||P|e|s||a^A|e^s||r|e^s||e|e^s||h|e|s^^t^e^s^^o^e|s +||n|e|s|| a|e^s||a^A|e^s||t|e|s^^a|r^e|s||u|e^s||J|e^s||a^C|e|s||t|e^s^^n^e|s||i +|e|s^^r^e ^s||p|e|s||LZ^Ea^ad^L|eee

Replies are listed 'Best First'.
Yet Another**3 Obfuscation Engine
by mtve (Deacon) on Apr 29, 2002 at 07:39 UTC

    And another one, /^[a-zA-Z ^]$/.

    @a=(a..x,A..Z,' '); for$i(@a){for$j(@a){ push@{$a{$i^$j^$_}},[$i,$j,$_]for@a }} exists$a{chr$_}or die"no $_"for 9,10,32..126; undef$/; $_=<>; for(/./sg){ $c=$a{$_}[rand @{$a{$_}}]; $b[$_].=$c->[$_]for 0..2 } while(/.{1,67}/sg){ print"s zzq y", join("y\n ^q y",map{substr$_,y///c-$+[0],$+[0]-$-[0]}@b), "yze x\n" } print"eval\n"

    Enjoy.

    s zzq yhZrRQ DrjR prVsHIa tSRMekflQxvhI y ^q yrnTLceZoMldulZjAnkXqYOreUmwmUhfcay ^q yjFOpFgThTJddpcmaBxXUooS VjxWHlRDcyze x eval

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://162538]
Approved by giulienk
help
Chatterbox?
[ELISHEVA]: I may have to resort to SOPW - but was hoping that this would be something simple
[erix]: I'd just remove the BOM, it is pretty simple
[ELISHEVA]: Simple yes. and I did consider that. but this isn't one off . An important data source that I don't control is generating bom prefixed utf8 files and I'd rather not have to be munging files every few months.
[erix]: on teh other hand a SOPW is pretty much garanteed to get an answer from tux (and probably the module fixed)
[ELISHEVA]: plus it bugs me that something that *should* be simple, *should* work- unicode and noms aren't exactly the new kids on the block
[ELISHEVA]: well then since the obvious possible mistakes on my part have been ruled out, SOPW it is.
[ELISHEVA]: the data source, or one of them, is the OECD - they provide a *lot* of data that ought to be easily available to perl programmers.
[erix]: it might be cunning to mention the module in the title... :)
[ELISHEVA]: fancy that - a title that actually describes the problem :-)
[ELISHEVA]: but actually thanks for the reminder

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (8)
As of 2017-05-28 20:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?