|
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.
|