17 respuestas en este tema

[Djcheats]

hola Saludos ala Comunidad en estos dias he tenido un problemita  intetando leer un array of byte .  e Intentado con un for pero funciona mal.. les dejo mi codigo a ver si me dan una mano
 
 

delphi

  var
  MyArray:Array[1..5] of Byte = ($46, $6F, $72, $6D,$31);
  s: byte;
  
  
  begin
for s := 0 to sizeof(MyArray) do
begin
for s := 0 to sizeof(MyArray) do
if Pbyte($000000+s)^ = MyArray[s] then
ShowMessage(' los 5 Bytes son correctos');
 
 
end;
end;
 
 
 
 
 
 
  
 

funciona muy mal. lo que quiero es que si son los 5 bytes del array Lanze un Mensaje ojala me den una manita 

[andres1569]

Hola y bienvenido al foro, Djcheats:

Puesto que el array está definido desde 1 hasta 5, debes recorrerlo desde y hasta esos valores, según veo empiezas desde 0. Tampoco entiendo muy bien ese código, ya que parece que metes un for dentro de otro utilizando la misma variable (s) para recorrerlo, lo cual el compilador no te va a dejar.

Una forma de no equivocarnos en los valores inicial y final al recorrer un array, es hacer uso de las funciones Low y High, que devuelven el índice mínimo y máximo del array, respectivamente:

delphi

for s:=Low(MyArray) to High(MyArray) do

Saludos

[andres1569]

Según lo que parece que quieres lograr, te aconsejo definir una variable Boolean que indique si son iguales, y en el momento en que alguno no lo sea, que salga del bucle:

delphi

var
  MyArray:Array[1..5] of Byte = ($46, $6F, $72, $6D,$31);
  s: byte;
  Iguales : Boolean; 
begin
  Iguales := TRUE;
  for s := Low(MyArray) to High(MyArray) do
     if Pbyte($000000 + s)^ <> MyArray[s] then 
    begin
      Iguales := FALSE;
      break;
    end;
  if Iguales then ShowMessage(' los 5 Bytes son correctos')
  else ShowMessage(' hay algún byte incorrecto');
end;
[/s]

[Djcheats]

Hola y bienvenido al foro, Djcheats:

Puesto que el array está definido desde 1 hasta 5, debes recorrerlo desde y hasta esos valores, según veo empiezas desde 0. Tampoco entiendo muy bien ese código, ya que parece que metes un for dentro de otro utilizando la misma variable (s) para recorrerlo, lo cual el compilador no te va a dejar.

Una forma de no equivocarnos en los valores inicial y final al recorrer un array, es hacer uso de las funciones Low y High, que devuelven el índice mínimo y máximo del array, respectivamente:

delphi

for s:=Low(MyArray) to High(MyArray) do

Saludos

el codigo funciona pero sigo teniendo el mismo problema. solo me lee el primer byte. del array y nos los 5 lo quiero hacer es que si los 5 bytes son Exactos enviar un mensaje.




Gracias.. por Responder.

[andres1569]

Hola

¿Probaste el código que te puse luego? Sólo debería salir del bucle si encuentra uno diferente, si son iguales no veo ningún motivo para que salga antes de hora 

Por cierto, cuando usas PByte($000000 + s), eso es un puntero ¿realmente sabes a qué dirección de memoria estás apuntando?

[Djcheats]

Hola

¿Probaste el código que te puse luego? Sólo debería salir del bucle si encuentra uno diferente, si son iguales no veo ningún motivo para que salga antes de hora 

ha ha.. no me había fijado.. del código de arriba.


lo probé.. pero hay un problemas los 5 bytes son correctos y aun me sigue diciendo  que hay un byte incorrecto

pd:
que dolor de cabeza me tienen esos array xD!

[andres1569]

¿Has probado a recorrer paso a paso con el Debugger de Delphi a ver en cuál falla?

Como te dije en mi anterior mensaje, parece que estás comparando con valores almacenados en algún lugar (una matriz, una cadena ...) que no muestras en el código, habría que ver qué clase de estructura manejas. Revisando MyArray, veo esos valores hexadecimales equivalen a una cadena que dice "Form1", ése código que pusiste te sirve si estás comparando con otra cadena convencional, de toda la vida, donde cada caracter ocupa 1 Btyte, pero quizás la que estás leyendo venga en UNICODE (1, 2 ó 4 Bytes), en cuyo caso tendrás que abordarlo de otra forma ¿pudiera tener algo que ver?

Saludos

[Djcheats]

¿Has probado a recorrer paso a paso con el Debugger de Delphi a ver en cuál falla?

Como te dije en mi anterior mensaje, parece que estás comparando con valores almacenados en algún lugar (una matriz, una cadena ...) que no muestras en el código, habría que ver qué clase de estructura manejas. Revisando MyArray, veo esos valores hexadecimales equivalen a una cadena que dice "Form1", ése código que pusiste te sirve si estás comparando con otra cadena convencional, de toda la vida, donde cada caracter ocupa 1 Btyte, pero quizás la que estás leyendo venga en UNICODE (1, 2 ó 4 Bytes), en cuyo caso tendrás que abordarlo de otra forma ¿pudiera tener algo que ver?

Saludos

sip.. estoy leyendo la Memoria de Mi Programa
Ejemplo.
el offset de Form1 es 009534F4 

delphi

if Pbyte($009534F4+s)^ <> MyArray[s] then[/s]

[s]


quiero leer la Memoria si es = al array entonces enviar un mensaje.

[Wilson]

Este código te sirve para probar:

delphi

procedure TForm1.Button1Click(Sender: TObject);
const
  MyArray: Array [1 .. 5] of Byte = ($46, $6F, $72, $6D, $31);
var
  s,p: Byte;
begin
  for s := Low(MyArray) to High(MyArray) do
  begin
  P:= Pbyte($000000 + s)^ ;
    if p <> MyArray[s] then
    begin
      ShowMessage('El byte -' + IntTostr(p) + '- es diferente de ' + IntTostr
          (MyArray) + '-');
      Exit;
    end
    else
      ShowMessage(' los 5 Bytes son correctos')
  end;
end;
[/s]

PD: Algunos caractéres del código se pierden al etiquetarlos en este caso algunas de  las llaves que encierran el índice del array.

[Djcheats]

Este código te sirve para probar:

delphi

procedure TForm1.Button1Click(Sender: TObject);
const
  MyArray: Array [1 .. 5] of Byte = ($46, $6F, $72, $6D, $31);
var
  s,p: Byte;
begin
  for s := Low(MyArray) to High(MyArray) do
  begin
  P:= Pbyte($000000 + s)^ ;
    if p <> MyArray[s] then
    begin
      ShowMessage('El byte -' + IntTostr(p) + '- es diferente de ' + IntTostr
          (MyArray) + '-');
      Exit;
    end
    else
      ShowMessage(' los 5 Bytes son correctos')
  end;
end;
[/s]

PD: Algunos caractéres del código se pierden al etiquetarlos en este caso algunas de  las llaves que encierran el índice del array.

Gracias Amigo.. ando probando... y el mismo problema solo lee bien el primer Byte.. gracias por su ayuda!!

[Sergio]

Si usas delphi 2009 o superior, posiblemente la cadena "Form1" no este en ascii o ansi, mas bien en unicode como ya te apunto delphius.

En ese caso, cada codigo ocupa dos bytes, pero el sgundo va a estar vacio siempre porque esas letras son caracteres ascii y tienen codigos cortos a proposito. Por eso solo te lee bien el primero.

Yo probaria a leer uno de cada dos bytes del nombre del form a ver que ocurre:

delphi

procedure TForm1.Button1Click(Sender: TObject);
const
  MyArray: Array [1 .. 5] of Byte = ($46, $6F, $72, $6D, $31);
var
  s,p: Byte;
begin
  for s := Low(MyArray) to High(MyArray) do
  begin
  P:= Pbyte($000000 + 2*s-1)^ ;
    if p <> MyArray[s] then
    begin
      ShowMessage('El byte -' + IntTostr(p) + '- es diferente de ' + IntTostr
          (MyArray) + '-');
      Exit;
    end
    else
      ShowMessage(' los 5 Bytes son correctos')
  end;
end;

[egostar]

Si usas delphi 2009 o superior, posiblemente la cadena "Form1" no este en ascii o ansi, mas bien en unicode como ya te apunto delphius.

En ese caso, cada codigo ocupa dos bytes, pero el sgundo va a estar vacio siempre porque esas letras son caracteres ascii y tienen codigos cortos a proposito. Por eso solo te lee bien el primero.

Yo probaria a leer uno de cada dos bytes del nombre del form a ver que ocurre:

delphi

procedure TForm1.Button1Click(Sender: TObject);
const
  MyArray: Array [1 .. 5] of Byte = ($46, $6F, $72, $6D, $31);
var
  s,p: Byte;
begin
  for s := Low(MyArray) to High(MyArray) do
  begin
  P:= Pbyte($000000 + 2*s-1)^ ;
    if p <> MyArray[ s ] then
    begin
      ShowMessage('El byte -' + IntTostr(p) + '- es diferente de ' + IntTostr
          (MyArray) + '-');
      Exit;
    end
    else
      ShowMessage(' los 5 Bytes son correctos')
  end;
end;

He ejecutado el código propuesto, hay una pequeña omisión al intentar ejecutar IntTostr(MyArray) le hace falta el indice IntToStr(MyArray[ s ]).

Una vez corregido, al ejecutarlo muestra un error en la función PByte.

Estoy usando Delphi XE

Salud OS

Archivos adjuntos

•  2296_60e6d96f5cd8d9bae3ac079e73cfaf529fbc1eed.jpg   590,88KB   8 descargas

[Sergio]

El error en IntTostr(MyArray) lo copie del codigo de Wilson, asi que yo no he sido!

Suena a lo que te digo de unicode, aunque mi intento no haya dado sus frutos... si miras los P y los pones en un TLabel todos juntos, en lugar de "Form1" ¿Que letras te salen? yo esperaba algo como "F_o_r_m_1" donde los _ son ceros.

[andres1569]

Hola:

djCheats, dices que lees de la memoria de la misma aplicación y que conoces el offset donde debe poner Form1, lo único que te puedo recomendar es que vayas leyendo bytes desde esa dirección y los anotes -o muestres en pantalla por ejemplo mediante ShowMessage(IntToStr(PByte($00000 + loquesea)^))), a ver si los valores que te va mostrando guardan semejanza con los que tú esperas que haya (mira a ver si son los mismos pero espaciados entre ellos). De todas formas, tengo curiosidad de saber cómo conoces que en dicha posición de memoria se encuentra esa cadena ...

Egostar, PByte puede estar definida como una función pero normalmente es un puntero a Byte, definido así en la unit Windows.pas, no me extraña que te pete si estás accediendo a un posición de memoria aleatoria.

Saludos

[escafandra]

Yo tengo curiosidad de saber porqué le interesa tanto esa dirección y la cadena encontrada en ella, justamente Form1. Me llama la atención que encuentre la cadena en 009534F4h pues esa posición suele estar fuera del alcance de la aplicación. Digo esto porque Windows carga la aplicación en 00400000h (Image Base) a no ser que en el linker se especifique otra cosa o que la aplicación pese algo mas de 5 Mb. 


Saludos.

[Wilson]

El error en IntTostr(MyArray) lo copie del codigo de Wilson, asi que yo no he sido!

Tampoco es mío,  es de las etiquetas, algo ocurre con las llaves [].

En la Pos Data del mismo "post" yo había hecho la advertencia, cuando intentaba corregir me aparecía todo el texto tachado, un muy extraño comportamiento.

PD: Algunos caractéres del código se pierden al etiquetarlos en este caso algunas de  las llaves que encierran el índice del array.

[egostar]

El error en IntTostr(MyArray) lo copie del codigo de Wilson, asi que yo no he sido!

    Tampoco es mío,  es de las etiquetas, algo ocurre con las llaves [].

En la Pos Data del mismo "post" yo había hecho la advertencia, cuando intentaba corregir me aparecía todo el texto tachado, un muy extraño comportamiento.

PD: Algunos caractéres del código se pierden al etiquetarlos en este caso algunas de  las llaves que encierran el índice del array.

Voy a revizar que paso con eso, igual que los emoticons que desaparecen cuando editas un mensaje, por ahi se dice que son los daños colaterales

Salud OS

[c0lo]

mm  imagino que solo quiere leer un array of byte desde la memoria usando punteros y el intento explicar o dar su pregunta sin profundizar o expandiser mucho...