Foro - Perl en Español

por **ricar** » 2009-09-24 08:28 @394

Hola a todos.

Quiero editar el fichero Registry.pol (de un Windows) pero tiene una codificación particular, creo que está en ABNF.

¿Alguien sabe cómo puedo editarlo sin que aparezcan caracteres extraños para extraer su información?

Muchas gracias.

Un saludo,
Ricar.

Tienes razón. Se trata de un fichero donde se guardan las políticas del sistema.

Los caracteres que ves mal codificados, en realidad se trata del cómo está codificado el fichero por dentro. No se trata de un fichero de texto completo, si no que tiene alguna parte en binario, como la cabecera. Y los textos podrían estar codificados en alguna tabla de caracteres propia de Windows.

Puedes usar el programa poledit.exe para editarlos.

El formato lo tienes en la página Registry Policy File Format.

por **ricar** » 2009-09-25 03:09 @173

Hola, explorer.

El fichero está codificado en ABNF según http://download.microsoft.com/download/9/5/E/95EF66AF-9026-4BB0-A41D-A4F81802D92C/%5BMS-GPREG%5D.pdf,

The contents of the Registry.pol file read above MUST be formatted according to the following Augmented Backus-Naur Form (ABNF) (as specified in the [RFC4234]) description).

, por lo que entiendo que no sabe interpretar una sería de códigos y de ahí que los muestre con caracteres "raros".

El formato del fichero en cuestión ya lo conocía, vamos, encontré la página en MS, pero como no me muestra el código "virgen" no puedo interpretarlo yo mismo (¿me he explicado?).

poledit.exe se encuentra en versiones antiguas de Win. Para versiones a partir de W2K, se utiliza gpedit.msc. Esto es un GUI y no puedo interactuar (o al menos no sé cómo hacerlo) con él, así que no puedo utilizarlo para editar, modificar, comparar, etc. ficheros de tipo .pol.

Muchas gracias por todo.

Un saludo,
Ricar.

por **explorer** » 2009-09-25 04:26 @226

No, no está codificado en ABNF. El párrafo dice:

The contents of the Registry.pol file read above MUST be formatted according to the following Augmented Backus-Naur Form (ABNF) (as specified in the [RFC4234]) description).

que quiere decir

Los contenidos del fichero Registry.pol leído antes DEBEN estar formateados de acuerdo a la siguiente descripción de formato aumentado de Backus-Naur (ABNF) (como se especifica en el [RFC4234])).

Es decir, lo que sigue,

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

PolicyFile = Header Body

Header = Signature Version

Signature = %x50 %x52 %x65 %x67

Version = %x01 %x00 %x00 %x00

Body = Instructions

Instructions = Instruction / (Instructions Instruction)

IdCharacter = %x0020-005B / %x005D-007E

ValueCharacter = SP / VCHAR

Key = 1*IdCharacter

Instruction = " [" KeyPath ";" Value ";" Type ";" Size ";" Data "]"

KeyPath = Key / KeyPath "\" Key

Value = 1*259ValueCharacter

Type = %x01 / %x02 / %x03 / %x04 / %x05 / %x07 / %x0B

Size = 1*5DIGIT

Data = *65535OCTETColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

sí que es formato ABNF, pero es la representación del contenido del fichero. (Explicación de lo que es Backus-Naur: una metasintaxis)

En otras palabras, esa docena de líneas debe servirte para ver cómo es el fichero por dentro y de cómo hacer un intérprete de él (parser).

Un ejemplo: mira que al principio pone que el fichero de políticas se compone de una cabecera (Header) seguida de un cuerpo (Body). Y la cabecera a su vez se compone de una firma (Signature) y un número de versión (Version). Y que la firma es la combinación de los bytes %x50, %x52, %x65 y %x67, mientras que la versión se compone (al principio) de los números %x01, %x00, %x00 y %x00 (el número de versión va cambiando). Si abres el fichero con un editor hexadecimal los verás. Y así el resto de la definición del fichero.

Otro ejemplo, pone que las claves (Key) se forman como uno o más IdCharacter (1*IdCharacter), siendo IdCharacter el rango de bytes que van del %x0020 al %x005B o (/) del %x005D al %x007E (todos los caracteres que van desde el espacio en blanco a la virgulilla de la eñe, salvo el carácter '\').

En cuanto a la codificación interna, tienes un ejemplo de volcado binario de un fichero pol en la página 24 del documento enlazado, y se ve claramente que la codificación de los caracteres es en Unicode (creo que utf-16, pero no estoy seguro. Al menos veo que todos los caracteres del ejemplo tienen 16 bits de largo).

Con todo esto, no deberías tener problemas para leer el fichero...

por **ricar** » 2009-09-25 05:20 @264

Hola, explorer.

Ok, cierto, me he equivocado a la hora de confundir codificar con formatear.

Pero el problema sigue siendo el mismo. No puedo leerlo porque no sé cómo está codificado.

Intenté codificarlo de la siguiente manera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(FICHERO,"<:encoding(utf16le)",$registryPOL)Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

y si bien es cierto que es más "legible" (puesto que puedo ver los registros y la claves) continúo sin ver correctamente los valores.

He probado también con utf16be. Por cierto, encoding(utf16) no está permitido.

Entonces, como veo que tu lo tienes bastante más claro que yo, ¿qué debo hacer para extraer la información y "jugar" con ella? ¿Me puede dar unas indicaciones claras y sencillas (for dummies

), please?

Muchas gracias.

Un saludo,
Ricar.

por **explorer** » 2009-09-25 07:45 @365

Explicaciones sencillas, no, porque estamos en el foro Intermedio

Lo que sí puedo darte es un programa que me he hecho en un rato (por lo que seguro que no funcionará siempre):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
#
# Volcado de ficheros .pol
#
# Joaquín Ferrero. Septiembre 2009.
#
use strict;
use warnings;
use diagnostics;

use Encode;

## Fichero a procesar
my$pol_file=$ARGV[0]||'Registry.pol';

openmy$pol_fh,q[<],$pol_fileordie"ERROR: No puedo abrir $pol_file: $!\n";
binmode$pol_fh;


## Cabecera
read$pol_fh,my$pol_head,4;
die"ERROR: No es un fichero POL\n"if$pol_headne'PReg';
print"Fichero POL $pol_file\n";


## Versión
read$pol_fh,my$pol_vers,4;
$pol_vers=unpack"L",$pol_vers;
print"Versión del fichero: $pol_vers\n";


## Contenido
read$pol_fh,my$pol_content,(-s$pol_file)-8;
print"Longitud de los datos: ",length($pol_content)," bytes\n";
close$pol_fh;


## Extracción de las reglas
my%pol_types=(
1=>'REG_SZ',
2=>'REG_EXPAND_SZ',
3=>'REG_BINARY',
4=>'REG_DWORD',
5=>'REG_DWORD_BIG_ENDIAN',
7=>'REG_MULTI_SZ',
11=>'REG_QWORD',
);

while($pol_content=~/\x5b\0 (.*?) \x5d\0/gx){

my($KeyPath,$Value,$Type,$Size,$Data)=split";\0",$1;


# decodificación
$KeyPath= decode('UTF-16LE',$KeyPath);# Pasamos de unicode 16 a iso-8859-1
$Value= decode('UTF-16LE',$Value);

$KeyPath=unpack"Z*",$KeyPath;# Quitamos los ceros finales
$Value=unpack"Z*",$Value;

$Type=$pol_types{unpack"L",$Type};# Tipo de datos: pasamos de largo a cadena

$Size=unpack("L",$Size);# El tamaño de datos es otro largo


# decodificación de los datos
my$Data_hexa# Datos en formato hexadecimal
=join' ',
map{sprintf"0x%02x",$_}
unpack"C[$Size]",
$Data
;
my$Data_repr# Datos en formato original (si se puede)
=($Typeeq'REG_SZ')?unpack("Z*",$Data)
:($Typeeq'REG_EXPAND_SZ')?unpack("Z*",$Data)
:($Typeeq'REG_BINARY')?'binario'
:($Typeeq'REG_DWORD')?'32 bit LE'
:($Typeeq'REG_DWORD_BIG_ENDIAN')?'32 bit BE'
:($Typeeq'REG_MULTI_SZ')?do{
my$valor= decode('UTF-16LE',$Data);
$valor=~s/\0/-/g;
$valor;
}
:($Typeeq'REG_QWORD')?unpack("Q",$Data)
:'desconocido'
;


# salida
printjoin" : ",
$KeyPath,$Value,$Type,"$Size bytes","[$Data_hexa]","[$Data_repr]";

print"\n";
}

__END__Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Lo he probado con un fichero que he encontrado en un ordenador de mis compañeros, y me sale esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Fichero POL Registry.pol

Versión del fichero: 1

Longitud de los datos: 1288 bytes

Software\Policies\Microsoft\Windows\BITS : **del.EnableBITSMaxBandwidth : REG_SZ : 4 bytes : [0x20 0x00 0x00 0x00] : [ ]

Software\Policies\Microsoft\Windows\BITS : **del.MaxTransferRateOnSchedule : REG_SZ : 4 bytes : [0x20 0x00 0x00 0x00] : [ ]

Software\Policies\Microsoft\Windows\BITS : **del.MaxBandwidthValidFrom : REG_SZ : 4 bytes : [0x20 0x00 0x00 0x00] : [ ]

Software\Policies\Microsoft\Windows\BITS : **del.MaxBandwidthValidTo : REG_SZ : 4 bytes : [0x20 0x00 0x00 0x00] : [ ]

Software\Policies\Microsoft\Windows\BITS : **del.UseSystemMaximum : REG_SZ : 4 bytes : [0x20 0x00 0x00 0x00] : [ ]

Software\Policies\Microsoft\Windows\BITS : **del.MaxTransferRateOffSchedule : REG_SZ : 4 bytes : [0x20 0x00 0x00 0x00] : [ ]

Software\Policies\Microsoft\Windows\Psched : **del.MaxOutstandingSends : REG_SZ : 4 bytes : [0x20 0x00 0x00 0x00] : [ ]

Software\Policies\Microsoft\Windows\Psched : NonBestEffortLimit : REG_DWORD : 4 bytes : [0x00 0x00 0x00 0x00] : [32 bit LE]Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **ricar** » 2009-09-25 11:06 @504

De veras que me siento realmente inútil.

En fin, no lo he analizado y mucho menos probado, a ver si saco tiempo este fin de semana y le echo un vistazo.

Muchas gracias por tu ayuda y el tiempo dedicado.

Un saludo,
Ricar.

por **explorer** » 2009-09-28 06:07 @296

Ya sabes que estamos para resolver cualquier duda.

Y que el programa propuesto es solo eso, una propuesta. Solo saca información. Otro tema es modificar el fichero.

Foro - Perl en Español

Cómo puedo editar un fichero de políticas de Windows (POL)

Cómo puedo editar un fichero de políticas de Windows (POL)

Publicidad

Re: Cómo puedo editar un fichero codificado en ABFN

Re: Cómo puedo editar un fichero codificado en ABFN

Re: Cómo puedo editar un fichero codificado en ABFN

Re: Cómo puedo editar un fichero codificado en ABFN

Re: Cómo puedo editar un fichero codificado en ABFN

Re: Cómo puedo editar un fichero codificado en ABFN

Re: Cómo puedo editar un fichero codificado en ABFN

Re: Cómo puedo editar un fichero de políticas de Windows (POL)

Re: Cómo puedo editar un fichero de políticas de Windows (POL)

¿Quién está conectado?