Salvar senha criptografada no Firebird

Rogério, é o seguinte, não sei se entendi mas acho q é o seguinte vc deseja ter um cadastro de usuários em seu BD FireBird com as senhas cliptografadas.

Bom primeiro vc pode usar um componente chamado IBSeucurityService q tem na Paleta de Componentes InterBase Admin e então fazendo uso deste componente vc cadastra o usuário automáticamente no FireBird e usa a cliptografia de senha do próprio FireBird e pode ainda ter esse usuário em uma tabela do seu bando de dados para seu controle, sendo q a senha fica grava da no Banco de Dados de Usuários do próprio FireBird.

O Banco de Dados do FireBird que guarda os usuários fica em C:\Arquivos de programas\Firebird\Firebird_1_5\Security.fdb

// para criar e a senha

function CrySenha(Snh:String):String;
var I:Integer;
begin
for I := 1 to Length(Snh) do
Result := Result + Chr((Ord(Snh[I])+57));
end;
var S:String;
begin
S := BaseDadosPrincipal.Qr_Usuarios.FieldByName(´SENHA´).AsString;
BaseDadosPrincipal.Qr_Usuarios.FieldByName(´SENHA´).AsString := CrySenha(S);
BaseDadosPrincipal.Qr_Usuarios.Post;
end;



// para ler a senha

function CrySenha(Snh:String):String;
var I:Integer;
begin
for I := 1 to Length(Snh) do
Result := Result + Chr((Ord(Snh[I])+57));
end;
begin
FormMenuPrincipal.Qr_Senha.Close;
FormMenuPrincipal.Qr_Senha.ParamByName(´NOME_USUARIO´).Value :=EdUsuario.Text;
FormMenuPrincipal.Qr_Senha.ParamByName(´SENHA_USUARIO´).Value := Crysenha(EdSenha.Text);
FormMenuPrincipal.Qr_Senha.Open;

if FormMenuPrincipal.Qr_Senha.IsEmpty then begin
ShowMessage(´Usuario Não Cadastrado ou Senha Errada, Contate o Administrador do Sistema para Obter Informações´);
EdUsuario.Clear;
EdSenha.Clear;
EdUsuario.SetFocus;
Exit;
end;
Contador_Login := 1;
Close;
end;