[firebase-br] Criptografia....

[Magno]

Segue a rotinha q eu uso pra criptografia de arquivos...

function TfUsuarios.Criptografia(mStr, mChave: string): string;
var
  i, TamanhoString, pos, PosLetra, TamanhoChave: Integer;
begin
  Result := mStr;
  TamanhoString := Length(mStr);
  TamanhoChave := Length(mChave);
  for i := 1 to TamanhoString do
    begin
      pos := (i mod TamanhoChave);
      if pos = 0 then
         pos := TamanhoChave;
      posLetra := ord(Result[i]) xor ord(mChave[pos]);
      if posLetra = 0 then
         posLetra := ord(Result[i]);
      Result[i] := chr(posLetra);
    end;
Senha_Crip := Result;
end;

Para Criptografar e Descriptografar chama a função... o campo criptografado
ou nao.. e chave.. q pode ser uma palavra qq... lembrando q tem q ser a
mesmo q usou pra criptografar qdo for descriptografar....

Criptografia(Edit1.text, 'CHAVE');

Vlw Magno



----- Original Message -----
From: "Elizabeth Cosati" <bethcosati em yahoo.com.br>
To: "Karkaju Karkamano" <karkaju em gmail.com>; "FireBase"
<lista em firebase.com.br>
Sent: Wednesday, February 23, 2005 3:32 PM
Subject: [firebase-br] Criptografar em Firebird


>
> Tenho interesse em guardar as informações criptografadas para evitar
> o acesso, pois o que quero guardar é senha. O que aconselha?
>
>
> Karkaju Karkamano <karkaju em gmail.com> wrote:Vc tem interesse em guardar as
informacoes criptografadas para evitar
> o acesso ou você quer manter a integridade dos dados usando
> criptografia ?
>
>
>
>
> On Wed, 23 Feb 2005 13:54:55 -0300 (ART), Elizabeth Cosati
> wrote:
> > Obirgada pela correção! Mas poderiam me enviar a resposta de como posso
usar a criptografia no Firebird.
> >
> >
> > ---------------------------------
> > Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do
Yahoo! agora.
> > ______________________________________________
> > FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> > Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> >
>
>
> --
>
>
> ---------
> ( '>
> //\ karkaju em gmail.com
> v_/_ ICQ 2199001
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>
>
>
> ---------------------------------
> Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador do
Yahoo! agora.
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br