Criptografia no Delphi 2010 diferente no Delphi 7

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