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.
Please excuse my penchant for making each line of similar length :)# 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",$_
jynx
In Section
Obfuscated Code