[oak perl] Perl for physical security :-)

[George Woolley]

When I saw the subject, I thought "No way!".
Then I thought surely he hasn't created 
 a security guard robot powered by Perl. 
But having read your post,
I now understand that the subject makes sense.

Practical, and, to me, humorous,
which is one of my favorite combinations.
Thanks.
   -- George

P.S. I suggest posting your sample output somewhere,
and challenging readers to determine it's purpose.
Hey, give them a break; post two samples.

On Wednesday 04 December 2002 3:49 pm, David Alban wrote:
> Greetings!
>
> I was getting ready to mail a check to my credit union for depositing
> when I remembered how much the particular "security" envelopes that I
> have, suck.  If you hold them up to a bright light, you can identify
> that there is a check inside.
>
> So I've implemented a perl solution.  I call the program obfuscate.  I
> establish the decimal character codes for the printable ascii characters
> then I print $rows lines of $columns columns with random ascii
> characters whose codes I have put in an array.
>
> I then do:
>
>   $ obfuscate | enscript -B
>
> once for each side of a sheet of paper I can feed to the printer.  Now I
> have a wrapper for the contents of my envelope that supplent the crappy
> security of the security envelopes.
>
> It was fun to write.  Here is example output:
>
>   $ obfuscate 8 72
>   obfuscate: using rows x columns => 8 x 72
>   5P~N)k<54Fuy9r]PO:4m^[oYA3h72$6+tO}y$-*I"XcRL9R1zJ2MEcv{HS1]j:XFa4A2Azs;
>   rpyMcSfb|84#M2lt6Q/*'5;;{x!(A'GZ?`)R06"G_"37.2=r$(fg`|1Y!^4W:C64"#MV|28`
>   1V6s15i`W0IM~xg+(/.eA*,V*PO3#RwC2p73>J]Jqhn-%1sD')7y!5:S6TGXKPn9IRc1s%vz
>   gB'E9,,qKFy-Y#U9 at -xN<,Svd:z];HhHa$?_a#vb&R*(CoH%lPB at u\!T%3HzuE?Ozv%u.h=f
>   '0nUe'oKYCOVSi$C-qYha;Wb3:E:vOdClh"jy=}Ef(-.`uwq$Ot>3(8+Sz3i>W-CgG<`,cuF
>   ^KE)QroU<e)aH>~UpTBjh@;bFd\@JMox#EKB2lKn$Wzaz-P}]h^Fh-?G at wECucfrD,?`5U>$
>   ]|5cy%x<.[wzE7T:)~$H3.:u4Qwn\4JlLLf/Ow4H~vf#d)R[8%?Z+N~@ue,b=(b\|N0rfZcw
>   ';Noe77#D`*.&N1`+z8u!t>S!ra.Figc#ft,'if"1ZRh1^_S!dO5^D:3Pq:e)IU>pkt=JEh]
>
> The line beginning "obfuscate: using rows ..." goes to stderr.
>
> usage: obfuscate [ rows [ columns ]]
>
> David