Gracias Estoy trabajando con Delphi v7 con el parche y con WinXp Pro Parche 2 Como comente estoy cambiando de un sistema realizado en VB .Net a Delphi, lo estoy cambiando de partes. En una parte existe este.
En VB
Código:
Rnd(-1)
Randomize(qq0)
qq1 = CInt(Int(24 * Rnd() + 11))
qq2 = CInt(Int(24 * Rnd() + 11))
qq3 = CInt(Int(24 * Rnd() + 11))
qq4 = CInt(Int(24 * Rnd() + 11))
qq5 = CInt(Int(24 * Rnd() + 11))
En Delphi
Código Delphi
[-]
Random(-1);
RandSeed := qq0;
qq1 := StrToInt( FloatToStr(Int(24 * Random + 11)));
qq2 := StrToInt( FloatToStr(Int(24 * Random + 11)));
qq3 := StrToInt( FloatToStr(Int(24 * Random + 11)));
qq4 := StrToInt( FloatToStr(Int(24 * Random + 11)));
qq5 := StrToInt( FloatToStr(Int(24 * Random + 11)));
Donde qq0 es 29 la Semilla El problema que aún no puede utilizar otro sistema de encriptación, ya que la aplicación la están utilizando. Por mi parte yo utilizo los componentes DCPcrypt Cryptographic
Lo otro, con la misma aplicación VB en WinXp Pro y Server 2003 generan lo mismo.
lo otro, cual será en método utiliza VB, ya que he leído más de 10. lo otro, se probó random en delphi con semilla iguales en varios equipos distintos y generando los mismo valores.
Gracias
Espero como siempre sus valiosos comentarios.
JC