Error al encriptar una cadena de texto
 

Hola.
Tengo este código para encriptar una cadena, que en Delphi me funciona bien, pero al intentar hacer lo mismo en Lazarus me da este error:

Código Delphi [-]
  for i := 1 to Length(sClave) do
    sClave[i] := Chr(Ord(sClave[i]) Xor $95);

Dynamic SQL Error
SQL error code = -303
Malformed string.

Alguna idea para corregirlo.
Gracias.

Falta información. Está claro que no descifra correctamente, pero no sabemos cómo está cifrada.
Seguramente por el cambioa ansistring a unicode.

El error no es al desencriptar, es al encriptar, y como da el error no he podido probar lo que ocurre al desencriptar.

Ya, pero ese error es de una sentencia sql que está mal.

Hola fidel.

Por el mensaje,
dudo mucho que el error se provoque en las líneas que has puesto. Da la impresión que lo está lanzando algún componente de tipo Query o DataSet.

Saludos :)

Edito: No había visto el mensaje de Casimiro, pero pienso lo mismo.

Solucionado.
He revisado el DataSet (TIBDataSet) con los botones Test que tiene y me daba correcto, creo que no he tocado nada en él.
La tabla que estoy manejando está creada con CharacterSet DOS850, entonces he revisado la conexión de la base de datos (TIBDatabase) y he visto que en el Character Set tenía puesto UTF-8 y lo he cambiado a DOS850 y ya no da error.

Gracias a los dos.
Un saludo.