4 replies to this topic

[eduarcol]

Estoy realizando la siguiente conversion sencilla,

delphi

for nIndice := 2 to 53 do
   begin
      arAscii[nIndice] := Integer(char(arClave[nIndice])) + n;
      arClave[nIndice] := Chr(arAscii[nIndice] + 100);
   end;

El asunto esta que en xp funciona de lo mejor, pero cuando migre a 7 me comienza a dar problemas con caracteres especiales, ya que me mete algunos saltos de carro y otros que no me permiten asignar la cadena completa resultante a una variable, ya probe agregandole el +100 para asegurarme que no quede entre el 0 y 32 pero aun asi no funciona, alguna idea en especial???

[andres1569]

Eduarcol, ¿en qué versión de Delphi estás compilando?

Saludos

[escafandra]

Yo preguntaría, ademas de lo que pregunta andres1569:
¿Que pretende realizar el código?  Quizás pueda optimizarse de otra forma.
¿De qué tipo son las variables arAscii y arClave?
¿Tiene n siempre el mismo valor?
Me da la impresión que es un problema con el unicode y aquí juega el tipo de  arAscii y arClave además del compilador, pues por defecto puede trabajar en unicode o no. 


Saludos.

[eduarcol]

Compilado en 2007
arAscii array of Integer;
arClave array of char
n varia entre 0 y 51

El codigo lo que hace es que toma una palabra que puede tener una longuitud maxima de 52caracteres y cada caracter individual lo convierte a su valor en ASCII sumandole un valor "n".  Luego le suma cien y el numero resultante lo convierte en caracter. Luego de esto hace varias operaciones de cambio de orden.

Es un sencillo encriptador que me ha funcionado por ya 8 años seguidos.

[escafandra]

No entiendo para que te sirve arAscii, parece una variable intermedia de la que se podría prescindir, a no ser que mas adelante tenga un uso diferente...

No dispongo de 2007 así que no puedo realizar pruebas.
Si arClave toma el valor de una variable String el Unicode podría hacer de las suyas...

Por otro lado está la conversión pasando por un integer...
Realiza una depuración paso a paso y mira el valor de cada variable y elemento del array, su tamaño y lo que sucede. 

Prueba a compilarlo así:

delphi

var
   arAscii: array[0..51] of DWORD;
   arClave: array[0..51] of char;
   nIndice, n: integer;
begin
    for nIndice := 2 to 53 do
    begin
         arAscii[nIndice] := DWORD(char(arClave[nIndice])) + n;
         arClave[nIndice] := Chr(arAscii[nIndice] + 100);
   end;
end;

Saludos.