Problem encryption!!!

[Gustavo.deo]

 

Good Morning!!! I have a password encryption function to write to the database !!! But I'm having problems ... in the application to win the word pave2010 in function gets zk€o<:;: However due to unigui using utf-8, it returns zk'#$0080'o<:;: I have tried to change the charset in servermodule but I did not succeed ... Any suggestion??

 

 

 

function TFuncoes.EncryptPassWord(sPassWord:String):String;

var

  i   : Integer;

begin

  Result := sPassWord;

  for i := 1 to Length(Result) do

    Result := Chr(Ord(Result) + 10);

end;

[Sherzod]

Hi,

 

Which edition and build are you using ?!

[mhmda]

We do encrypt passwords using hash algorithm and when it comes to sensitive data we encrypt it using RSA (with salt), and we never had a problem at all with unigui.  

[Marlon Nardi]

If it helps.

FS.Crypt.rar

[bahry]

There is a lot of function to help you deal with UTF8 and strings 

http://docwiki.embarcadero.com/RADStudio/Tokyo/en/UTF-8_Conversion_Routines

[Gustavo.deo]

Thank you all!!!

All the reviews were very helpful !!!