eu consegui ... pegando na net uma função semelhante .. basicamente deve-se
trocar por String por ansistring, onde estava Char colocar AnsiChar
segue abaixo a função corrigida
function EnDecryptString(StrValue: AnsiString; Chave: Word): AnsiString;
var
I: Integer;
OutValue : AnsiString;
begin
OutValue := '';
for I := 1 to Length(StrValue) do
OutValue := OutValue + AnsiChar(not(ord(StrValue[I])-Chave));
Result := OutValue;
end;
From: Walter Chagas (Bol)
Sent: Wednesday, September 09, 2009 8:29 AM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Delphi 2007 x Delphi 2008
Teve um cara lá na Lista-delphi que teve o mesmo problema com uma unit de
criptografia.
Teria que ver se tem como desabilitar o Unicode do D2K9 pelo menos para os
projetos antigos.
[]s
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://delphitocorporerm.blogspot.com/
http://twitter.com/wchagas
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr
----- Original Message -----
From: Valdemir (yahoo)
To: delphibr
Sent: Tuesday, September 08, 2009 11:21 PM
Subject: [delphi-br] Delphi 2007 x Delphi 2008
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/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
