comment on

I was playing around with pack/unpack (for other purposes than obfuscation) and came up with this :)

#!/usr/bin/perl
$/=undef;$d=<DATA>;$d=~s/\s//g;eval unpack"a*",pack
"H*",join"",reverse split/(..)/,substr$d,0,128;&$a(
join"",reverse split/(..)/,substr$d,128);
__DATA__
0a3b7d292974666968732c222a4822286b6361702873736572706d6f636e7
520746e6  9727   07b6        27        57        3        3d6
1240a3b6  269  6  c5a  3a3a7  3  73657  2  706d6f4  32065  73
754e4669  be  03f  98  103f4  f  f6fa0  7  e3ff6f1  11579  9c
75c825e8  b  6a2a7  1        de        8a      9b2        f81
21  edbb  3         0  2188e  0  ed701  8  6bd67b4  06b  9579
9d  af2d  3  f5461  2  caced  c  c5309  a  f585397  51c1  0bb
e37      37  937ee  2        cd        c8        b  66e61  c7
f34d9eb415be54eef8d4309d8ef3d308388ccb25f7c9a92fb840c9b458d03
af53a5fddd8  bdd285  fd       f67      90  2e69  cd20e0367dbb
5177bdbc2e3  75  ad  b  5edc1  d  c2f9  e  ace  bcc675236356b
5a1e1b24d6c  8a  a6  c  edbd9  2  261a951  4d  3ca4bbb55e0c71
87482f9474e  94  60  3  18478  b  125680e     ac8b6bb3e71f61d
851f5ae6bbb  3e  8e  3  ac1ac  f  08ac917  c4  18dababf9c5c00
6fd2c97d5d1  12  50  8  d4b1a  a  7c56  d  76c  341a172890c5f
9bdfdc0ae4eb   8e   b50       264      6b  1d6f  f3889b5b8f8a
09e793f0420fb5275e741a70bc8063bd383e19f380be6582cf319df4373ca
504927866b9e8d531b2779d5d964db0d3aa56ae7b55533e675de963d837f0
fbaad0e85f580b04a592e339924fe09dcf3215c40397f70b4a5ad05ec3b82
d13ddcc6afe024a65ae065c58482472379dc782107f149e272c2699490b0a
f31f440218f307a5a0b956e7e040da3e4fcb5135a601f87e006ca0fe142b7
17c1c8238a01e7001d3f043e4d83305a76fd21c3867240862f6f7376f6525
f7fd711e81992bb4b69b28407ee872050410f6c9143d203f4d97a5ce82beb
bc0c30dc6ecb53ad9c78
[download]

/brother t0mas

In reply to Obfuscated Poetry by t0mas

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.


We don't bite newbies here... much
	PerlMonks