Paul Timmins (noweb4u) wrote,
Paul Timmins
noweb4u

  • Mood:
~xH3Yx~~x3V3RYON3x~~xIx~~xWROT3x~~xAx~~xBITx~~xOFx~~xOBSFUCAT3Dx~
~xP3RLx~~xTHATx~~xTRANSLAT3Zx~~x3V3Nx~~xTH3x~~xB3STx~~xWRITT3Nx~
~xPROS3x~~xINTOx~~xSOM3THINGx~~xTHATx~~xBL3NDZx~~xINx~~xMOR3x~
~xWITHx~~xTH3x~~xAV3RAG3x~~xLIV3JOURNALx~~xPOSTx~!!!!!!!!!!!1111oneoneone~xR3M3MB3R,x~~xIFx~~xYOUx~~xN33Dx~~xANYx~~xCUSTOMx~
~xP3RLx~~xPROGRAMMING,x~~xMYx~~xCONTACTx~~xINFORMATIONx~~xIZx~
~xINx~~xMYx~~xUS3RINFOx~!!!!!!!!!!!1111oneoneone!!!!!!!!!!!1111oneoneone

:-)!!!!!!!!!!!1111oneoneone

Sorry about your eyes...
What that said was:

Hey everyone I wrote a bit of obsfucated perl that translates even the best written prose into something that blends in more with the average livejournal post
Remember, if you need any custom perl programming, my contact information is in my userinfo

:-)


#!/usr/bin/perl
while($_=uc <STDIN>){$_=~s/S /Z /g;$_=~s/\s*([A-Z,0-9]+)\s*/~x$1x~/g;$_=~s/E/3/g;$_s=~s/I/1/g;$_=~s/$/!!!!!!!!!!!1111oneoneone/;print $_; };

(The next program reverses the effect)
#!/usr/bin/perl
while($_=<STDIN>){$_=~s/!+1+oneoneone//g;$_=~s/~x([A-Z,0-9]+)x~/ $1 /g;$_=~s/Z /S /g;$_=~s/3/E/g;$_s=~s/1/I/g;print lc $_; };
Subscribe
  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 11 comments