To be more productive, I have written the
following Perl 5.6 program, ob.pl:
print'$_="\160\162\151\156\164',join('.',map{ord}map/./gs,<>),'";s!\s!!g;s|t
|t\t|;eval'
Example use: perl ob.pl windows.txt >windows.pl
where windows.txt contains the text to be
output by the obsfucated windows.pl.
After running the above command, I hand-edited
windows.pl to produce this:
$_="\160\162\151\156\16466
.1 05 .1
08 .1 08
.3 2. 71
.9 7. 11
6. 10 1.
11 5. 32
.105.115.32.97.110.32.97.1
14 .1 15
.1 01 .1
04 .1 11
.1 08 .1
01 .3 3.
10 "; 11
;'"';s!\s!!g;s|t|t\t|;eval
As a golf tragic, I would welcome any golf
improvements to ob.pl above.
If anyone has written a similar program to generate
an obsfucated Perl program, I would be interested
to hear about it.
Andrew.
