info
Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Obfuscated Parrot
11 views
Skip to first unread message
Leopold Toetsch
Feb 16, 2004, 4:45:37 AM2/16/04
to P6I
# obf1.pasm
bounds 1
trace 0
split P0, '', "\nrekcaH torraP rehtona tsuJ"
add I1, 3
add I2, 4
branch I2
pack S23, 793, I1, I0
branch I2
add I2, 382, I1
branch I2
new S23, 911, I0, I0
branch I1
transcode S23, S0, -19
end
bounds 1
trace 0
split P0, '', "\nrekcaH torraP rehtona tsuJ"
add I1, 3
add I2, 4
branch I2
pack S23, 793, I1, I0
branch I2
add I2, 382, I1
branch I2
new S23, 911, I0, I0
branch I1
transcode S23, S0, -19
end
Have fun,
leo
Leopold Toetsch
Feb 16, 2004, 8:24:42 AM2/16/04
to perl6-i...@perl.org
Another one, OO-style with subroutines:
$ cat obf2.pasm
bounds 1
trace 0
newclass P0, "Just another Parrot Hacker\n"
shift S0, P5
does I0, P0, S0
add I0, 4
bsr I0
pack S0, 381, I0, I0
invoke
ret
$ parrot obf2.pasm
Just another Parrot Hacker
leo
0 new messages