Aqui traigo un codigo en Perl que sirve para desofuscar Batchs, con los que he probado funciona bien. Si da errores reportadlo y veo como arreglarlo ;).
El codigo.
#!/usr/bin/perl
my %vars;
my @newcode="";
open(FILE, "<$ARGV[0]");
@codigo=<FILE>;
close(FILE);
foreach $linea(@codigo)
{
if($linea=~/set (.+)="(.+)"/)
{
$vars{$1}=$2;
}
$linea=~s/%(\w+):~(\d+),(\d+)%/substr($vars{$1},$2-1,$3)/eg;
push(@newcode,$linea);
}
print @newcode;
Sa1uDoS
buen code bro , deberias agregarle el "#usr/bin/perl" al inicio del codigo.
Gracias por el Aporte, muy bueno...
Saludos! :D
Gracias a los dos.
Doddy ya esta agregado!
Sa1uDoS