[delphi-br] Delphi 2007 x Delphi 2008

Tue, 08 Sep 2009 19:22:21 -0700 

Pessoal tenho uma rotina que grava em um ini a senha criptogravada...
no delphi 2007 funciona no delphi 2009 não
já debuguei e aparentemente a string aparece criptografada no debub.. mas ao 
gravar no ini fica ?????
segue abaixo a rotina onde eu uso e tb a função

    ArquivoIni := TIniFile.Create(svdConfiguracao.FileName);
    
ArquivoIni.WriteString('BancoDados','Senha',EnDecryptString(edtSenha.Text,1024));
    ArquivoIni.Free;


function EnDecryptString(StrValue: String; Chave: Word): String;
var
  I: Integer;
  OutValue : String;
begin
  OutValue := '';
  for I := 1 to Length(StrValue) do
    OutValue := OutValue + char(not(ord(StrValue[I])-Chave));
  Result := OutValue;
end;

dentro do arquivo ini no delphi 2007 fica
Senha='zO<s"s?

mas no delphi 2009 fica
Senha=?????????

alguem já viu isso ? 

__________________________________________________
Faça ligações para outros computadores com o novo Yahoo! Messenger 
http://br.beta.messenger.yahoo.com/

Responder a