Criptografia no Delphi 2010 diferente no Delphi 7

[lucas_rc 0]

Bom dia pessoal...

 

Aqui na empressa usamos o delphi 7, e estamos fazendo a migração para o delphi 2010, ja conseguimos migrar todos componentes so que estamos encontrando um problema na parte de usuarios do sistema, a função de criptografar não esta reconhecendo as senhas salvas no delphi 7, sendo que é a mesma função.

 

Segue a função :

function Criptografa(Senha: string): String;
var
 Key128 : TKey128;
begin
 GenerateLMDKey(Key128, SizeOf(Key128), 'MCS 5');
 Result := BFEncryptStringEx(Senha, Key128, True);
end;

 

Alguem tem ideia do que posso fazer?

 

 

Att

Lucas Ribeiro

Desenvolvendor de sistemas

[bdexterholland 0]

Isto acontece porque as strings do Delphi 7 são por padrão ANSI e no Delphi 2010 Unicode. Esta diferença afeta em quantos bits são necessários para formar cada caractere e altera diretamente o resultado de diversas funções de criptografia disponíveis na web já que elas analisam os bits e não o caractere impresso. Não tenho certeza, acho que o Delphi 2010 tem uma função chamada AnsiString que converte estas strings Unicode para Ansi, assim, as hashs seriam iguais as hashs geradas no delphi 7.