Quizá me confundo pero yo a lo que me refiero es al código original que pone
dec antes de entrar a lo de convertir a base 64.
Él dice que en este código
Código Delphi
[-]
encryptedText := cipher.EncryptString(originalText, 'password', haSHA512);
Memo1.Text := encryptedText;
decryptedText := cipher.DecryptString(Memo1.Text, 'password', haSHA512);
ShowMessage(decryptedText);
Cita:
|
Empezado por dec
En este último caso, en lugar de mostrar mediante un "ShowMessage" la cadena cifrada, la guardamos en un "TMemo". Así que después, tratamos de descifrar la cadena que acabamos de guardar en dicho "TMemo", sin embargo, no obtendremos el resultado deseado, puesto que el "TMemo" sólo contendrá/mostrará parte de la cadena cifrada, y, por tanto, será imposible obtener la original a partir de ella.
|
Y, claro, es imposible que obtenga el resultado original porque un Memo no maneja strings con bytes no imprimibles. Pero eso no quiere decir que no pueda guardar el resultado y recuperarlo posteriormente.
Por ejemplo, puede meter
encryptedText en un TStringStream, copiar el stream a un TFileStream y guardarlo a disco. Siguiendo los pasos inversos necesariamente obtendrá el texto original.
// Saludos