Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: My first Obfuscated Perl Attempt

by jynx (Priest)
on Aug 06, 2002 at 19:19 UTC ( #188124=note: print w/ replies, xml ) Need Help??


in reply to My first Obfuscated Perl Attempt


For further reference,

There are many techniques for breaking up long lines, the two most common seem to be:

  • Concatenation
    Concatenating seperate lines together with the dot allows you to break things up, but it requires each seperate piece to be quoted.
  • Substitution
    You can also just run the string past a substitution that eliminates newlines, which seems to be the more common method for lines as long as what you have there.
Applying each technique you could either get:
# concatenation eval pack"B416","0111000001110010011010010110111001110100001000". "00011100000110000101100011011010110010000000100010010000100011". "00110011001000100010001011000010000000100010001100000011000100". "11000100110000001100010011000000110001001100000011000000110001". "00110001001100000011000000110000001100000011000100110000001100". "01001100010011000100110000001100000011000000110000001100000011". "000100110001001100000011000100110000001100000011000000100010";;; # -or- # substitution $_="011100000111001001101001011011100111010000100000011100000110 0001011000110110101100100000001000100100001000110011001100100010 0010001011000010000000100010001100000011000100110001001100000011 0001001100000011000100110000001100000011000100110001001100000011 0000001100000011000000110001001100000011000100110001001100010011 0000001100000011000000110000001100000011000100110001001100000011 000100110000001100000011000000100010";s;\s;;g;eval pack"B416",$_
Please excuse my penchant for making each line of similar length :)

jynx


Comment on Re: My first Obfuscated Perl Attempt
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://188124]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (7)
As of 2015-07-03 22:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (57 votes), past polls