[Cascavel-pm] Curiosidade

[Fabiano]

   Ola' pessoal, como muitos dizem "eta coisa cabuloza" hehe...

   Exemplo de como transformar um codigo perl em "nada" e como
executar este "nada", por Samy Kamkar.

Encodes perl code (from file: code) and outputs 'nothing':
perl -ne 'for(split//){print"\t"x(ord()/50)." "x(ord()%50)."\n"}' code

Decodes 'nothing' (from file: new) and evaluates it:
perl -e 'open_;$f.=chr s/ //g+s/\t//g*50while<>;eval$f' new


Example:

bash# cat code 
print "yo\n";
bash# perl -ne 'for(split//){print"\t"x(ord()/50)." "x(ord()%50)."\n"}' code > new
bash# cat new
                            
                              
                     
                          
                                
                                
                                  
                                     
                           
                                                  
                          
                                  
                 
bash# perl -e 'open_;$f.=chr s/ //g+s/\t//g*50while<>;eval$f' new
yo
bash# 


[]s

--Fabiano Righetti <fabiano em cascavel.pm.org>