I was playing with the bytes of "Just another Perl hacker,". This is the result. 
#!/usr/bin/perl -w
use strict;@$=qw(170 234 148 10 8 58 159 84 100 81
10 128 21 165 76 0 50 56 92 22 165 12);undef$;;for
(@$){$;.=unpack("b8",chr($_));}while($;=~/([10]{7}
)/gx){print(chr(ord(pack("b7",$1))+32));}print"\n"

[download]
-- 
arneb@emergency:~ > perl -MO=Deparse -e "(0);" 2> /dev/null
'???';
arneb@emergency:~ >

Replies are listed 'Best First'.
Re: Playing with bytes
by tachyon (Chancellor) on May 21, 2001 at 08:27 UTC 
    
Intersting if fairly simple bitstream shift. Have a look in
perlop for the Bitwise Sting Operators(~ | & ^) which can
really muddy the waters.

tachyon

Dissection:

use strict;
@$=qw(170 234 148 10 8 58 159 84 100 81 10 128 21 165 76 0 50 56 92 22
+ 165 12);
undef$;;                        # nice obfu var $SUBSEP
for(@$){
    $;.=unpack("b8",chr($_));   # convert dec into bit stream
}
while($;=~/([01]{7})/gx){       # grab seven bits => $1
    # this line converts the 7 bits to ASCII char, then uses ord, 
    # adds 32, back to ASCII with chr and prints it
    print(chr(ord(pack("b7",$1))|32));
}
print"\n";

    [download]
[reply]
[d/l]

Back to Obfuscated Code