Función de Delphi a C++
 

Buenas,

Resulta que tengo una aplicación en Delphi que me genera un fichero con una serie de cadenas con una simple encriptación XOR mediante esta función:

Código Delphi [-]
function DecryptString(const ToDecript: string; Key: Word): string;
var
  I: byte;
begin
  Result := '';
   RandSeed := Key;
   for i := 1 to Length(ToDecript) do
    Result := Result + Chr(Ord(ToDecript[i]) xor Random(256));
end;

El fichero encriptado lo voy a leer desde C++ y estoy intentando traducir esta función a C++ pero sin demasiada suerte

La cuestión es que al intentar desencriptar los datos, no me devuelve la cadena esperada.

Alguien puede hacerme la luz diciéndome dónde tengo el error? Gracias

O estoy dormido o no hay manera de que nunca te devuelva la cadena esperada. Como cuernos sabe la función de desencriptado que valor asigno en una posición el random(256)?????:confused:

Cada vez que llamas a random(256) genera un numero aleatorio del 0 al 255, entonces al desencriptar como sabes con que numero desencriptar?

Hola

Sinceramente no sabría decirte del cierto, pero imagino que es gracias a RandSeed y que se le tiene que pasar la misma Key. Es un código que he encontrado por la web (y en varias páginas), no es mío.

Probado en Delphi la encriptación de una frase y la posterior desencriptación y funciona a las mil maravillas.

El problema lo sigo teniendo al pasarlo a C++, que no hay manera de que me funcione :(

Alguna sugerencia?

Gracias

Me llama mucho la atención como funciona, tienes un proyecto simple para probarlo en Delphi?

Saludos.

Sí, claro, no hay problema, es tan sencillo como copiar esa función, poner 3 edits y 2 buttons y llamar a esa función desde los buttons.....

Pero alguien puede ayudarme a pasar esa función a C++?? :D :D

no deberia ser

?

suponiendo que los tipos sean correctos (unsigned_int8, AnsiString).Quizas deberias probarlo con unsigned char * directamente, y i = 0; i<Length...

nada, perdon me hice un lio con los parentesis, parecen correctos...eso si, no deberias sumar al ansistring como char, una vez vuelto hecho el ^ ?

siempre y cuando randseed funcione de la misma manera en C...creo recordar que randomize en C acepta un parametro como semilla.

Hola

También lo he probado y nada, sigue dándome un valor erróneo (o que yo no espero).

Referente al randsee, pues no sabría decirte si funciona igual en ambos lenguajes :confused:

Miraré por ahí a ver

Gracias

Respondo rápido y sin probar. randomize en C no tiene semilla.
random debería ser sustituida por Random que no es ansi C pero si viene en el Builder. C es sensible al "Case".

Espero estar en lo cierto.

Saludos.

no, random va en minusculas, como printf o getc o atoi, atof...casi todas las funciones de estandar c estan en minusculas.

ahhhh vale

me da que el error es por los tipos...yo de ti probaria hacerlo todo en tipos nativos puros (char * para string, unsigned int o unsigned long int, etc...) y usar strlen etc tambien, ya q el xor es a nivel de bits y quizas cambie su tratamiento segun el tipo.

Estoy de acuerdo con coso.
En mi Builder 5 no puedo probar, Random no está implamentada y la función random del C no es adecuada. En delphi 6 si está implementada y supongo que en Builder 6.

Yo probaría con esto:
Saludos.

Me pregunto el porqué de la necesidad de la traducción, es decir Random(256) debe generar siempre el mismo número del 0 al 256 (un Byte) para que el algoritmo funcione, y ese valor depende de Key (RandSeed = Key) luego es posible realizar la función prescindiendo de Random si conocemos como convertir el valor.

Por otro lado es un sistema excesivamente simple pues el xor se hace con 8 bits....

Solamente si estás obligado a seguir ese tipo de codificación pues no te queda otro remedio.

Una opcion que site va a funcionar es realizar una unit con esa funcion en delphi y compliarla talcual con el Builder, puesto que compila pascal...

Saludos.

Recuerda que las cadenas en C, comienzan con 0 y terminan con Length()-1
Saludos

Hola

Pues o no se en que librería o Random no existe en Builder 6 :(

jejeje, pues dime cómo, que yo ni idea :D

No, no estoy obligado, sólo es para que lleve "algo" de protección ese dato, que ya se tengan que molestar en hacer la desencriptación aunque sea un proceso sencillo. Además, necesito una que sea "reversible" como esta.

Si entiendo bien lo que me comentas..... ¿puedo coger la unit donde tengo esta función y añadirla al proyecto de Builder y compilar tal cual? Eso sería genial y me ahorraría cantidad de trabajo ;)

Gracias por todos los aportes

Esta función te puede servir:

Saludos.