[Cascavel-pm] Curiosidade
Fabiano
fabiano em cascavel.pm.org
Segunda Dezembro 9 11:32:06 CST 2002
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>
Mais detalhes sobre a lista de discussão Cascavel-pm