Saludos
A caray de inicio no tengo mucho tiempo........... pero viendo rapido el codigo.
Inicializas Index1 a 0 y obtienes el valor de llave[Index1] esto es llave[0] y los string en delphi inician en el indice 1.
Otra cosa la funcion RigthString no se que haga..... pero obtienes los mismos resultados con:
Copy(MensajeCifrado,2,Length(MensajeCifrado));
Última edición por gabrielkc fecha: 29-06-2007 a las 07:56:02.
|