E para quem quiser trollar, o módulo que faz esse tipo de ofuscamento é o Acme::EyeDrops (<a href="http://search.cpan.org/~asavige/Acme-EyeDrops/lib/Acme/EyeDrops.pm">http://search.cpan.org/~asavige/Acme-EyeDrops/lib/Acme/EyeDrops.pm</a>). Já para converter imagem em texto, o Image::Magick (<a href="http://search.cpan.org/~jcristy/PerlMagick-6.66-1/Magick.pm.in">http://search.cpan.org/~jcristy/PerlMagick-6.66-1/Magick.pm.in</a>) quebra o galho.<br clear="all">

<br>ABS()<br><br>
<br><br><div class="gmail_quote">2011/2/2 Gabriel Andrade <span dir="ltr">&lt;<a href="mailto:gabiruh@gmail.com">gabiruh@gmail.com</a>&gt;</span><br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">

<div class="im"><br>
On Feb 2, 2011, at 9:54 AM, Stanislaw Pusep wrote:<br>
<br>
&gt; E nesse caso, vai imprimir o que?<br>
&gt;<br>
&gt; #!/usr/bin/perl<br>
&gt; eval eval &#39;&quot;&#39;.<br>
&gt;<br>
&gt;<br>
&gt;            (&#39;[&#39;^&#39;+&#39;).(&#39;[&#39;^&quot;\)&quot;).( &#39;`&#39;|&#39;)&#39;)<br>
&gt;        .(&#39;`&#39;|&#39;.&#39;).(&#39;[&#39;^&#39;/&#39;).(&#39;{&#39;^ &#39;[&#39; ).&#39;(&#39;.<br>
&gt;      &#39;(&#39;.&quot;&#39;&quot;.(&#39;`&#39;^(&#39;&amp;&#39;)). &quot;&#39;&quot;.((&#39;{&#39;)^ (( &#39;[&#39;)<br>
&gt;     )).(&#39;[&#39;^&#39;#&#39;). (&#39;{&#39;^&#39;[&#39;).(&#39;^&#39;^(&#39;`&#39; | &#39;/&#39;)).<br>
&gt;     ((&#39;^&#39;)^(  &#39;`&#39;|&quot;\.&quot;)).(   (       &#39;^&#39;)^(&#39;`&#39;|<br>
&gt;   ((    (         &#39;.&#39;)))  ))          .( &#39;^&#39;<br>
&gt; ^ ( &#39;`&#39;|&#39;.&#39;)).&#39;)&#39;  .(&#39;{&#39;^  &#39;[&#39;). (&#39;.&#39;).(       ((<br>
&gt; (( (  (   (  &#39;{&#39;) ))))))^&#39;[&#39;).&#39;(&#39;.     &quot;&#39;&quot;. ((( &#39;{&#39;)<br>
&gt; )^ &#39;.&#39; ).&quot;\&#39;&quot;.(  &#39;{&#39;^&#39;[&#39;)   .(&#39;[&#39;^&#39;#&#39;).(     &#39;{&#39; ^((<br>
&gt;   &#39;[&#39;)  )).+(   &#39;;&#39;&amp;&#39;=&#39;  ). ((&#39;^&#39;)^(   &#39;`&#39;| &#39;.&#39;  )).<br>
&gt;   (((    &#39;^&#39;))^(  ( (&#39;`&#39;))| ((    &#39;.&#39; )))   ).&#39;)&#39; .<br>
&gt;   (((  (      &quot;\{&quot;)))^        &#39;[&#39;).     ( &quot;\.&quot;).(<br>
&gt;   &#39;{&#39;  ^ ((  &#39;[&#39;  ))). (&#39;(&#39;). (       (( &quot;&#39;&quot;))).<br>
&gt;    ((                           &#39;!&#39;)    ).&quot;&#39;&quot;.(<br>
&gt;   &#39;{&#39;                     ^&#39;[&#39; ).&#39;&#39;.  (&#39;[&#39;^&#39;#&#39;<br>
&gt;   ).+(   ( ((  (  &#39;{&#39;)) ))^&#39;[&#39;  )  .((&#39;^&#39;)^(<br>
&gt;   &quot;\`&quot;|  (( (  ((  &#39;,&#39;) )))))   ).+( &#39;^&#39;^(<br>
&gt;   &#39;`&#39;|&#39;.&#39;)).              &quot;\)&quot;.( &#39;{&#39; ^+<br>
&gt;   &quot;\[&quot;). &#39;.&#39;.(&#39;{&#39;^&#39;[&#39;).&#39;\\&#39;. &#39;&quot;&#39; .((<br>
&gt;   &#39;\\&#39; )).&#39;\\&#39;.(&#39;`&#39;|&#39;.&#39;).  &#39;\\&#39;.<br>
&gt;    &#39;&quot;&#39;.&#39;)&#39;.&#39;;&#39;.(&#39;!&#39;^&#39;+&#39;).&#39;&quot;&#39;<br>
&gt;     ;$:=&#39;.&#39;^&#39;~&#39;;$~=&#39;@&#39;<br>
<br>
</div>Pros que ainda estão coçando a cabeça (como eu, que ficava quando via códigos assim):<br>
<br>
$ perl -MO=Deparse <a href="http://trollface.pl" target="_blank">trollface.pl</a><br>
eval eval qq[&quot;print ((&#39;F&#39; x 1000) . (&#39;U&#39; x 900) . (&#39;!&#39; x 20) . \\&quot;\\\\n\\&quot;);\n&quot;];<br>
$: = &#39;P&#39;;<br>
$~ = &#39;@&#39;;<br>
<br>
A mágica desse código reside na possibilidade de se realizar operações bitwise sobre string de bits em perl.<br>
<br>
&#39;[&#39; ^ &#39;+&#39;  produz &#39;p&#39;<br>
&#39;[&#39; ^ &quot;\)&quot; produz &#39;r&#39;<br>
&#39;`&#39; | &#39;)&#39;  produz &#39;i&#39;<br>
<br>
e assim por diante, até formar a string usada no &#39;eval&#39;. O resto é usar a imaginação e ir inserindo espaços em branco no código pra formar o desenho.<br>
<br>
Em python isso não iria dar certo... o parser daria chilique no primeiro parágrafo mal indentado.<br>
<div><div></div><div class="h5"><br>
=begin disclaimer<br>
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
 L&lt;<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>&gt;<br>
=end disclaimer<br>
</div></div></blockquote></div><br>