[firebase-br] Cryptografia

[Anderson Miranda Barrozo]

Olha eu aconcelho vc cryptografar antes de gravar. Segue abaixo funcao CRIP 
que recebe o texto a ser cryptografar, e opcao CRIPT-Cryptografa e DESCRIPT 
descriptgrafa.

(*
  Criptografar e descriptografar strings.
  Paramentros:
    mCad = texto
    mOp, se CRIPT, criptografa, se DESCRIPT, descriptografa
*)
function Cript(mCad, mOp : string):string;
var
  i, ate, x1, x2 : integer;
  r1, r2         : string[1];
begin
  if Odd(Length(mCad)) then mCad := mCad + ' ';
  ate := Length(mCad) div 2;
  for i := 1 to ate do
    begin
      x1 := ord(mCad[((i-1) * 2) + 1]);
      x2 := ord(mCad[((i-1) * 2) + 2]);
      if mOp = 'DESCRIPT' then
        begin
          r2 := chr((-x2 + x1 + 90) div 2);
          r1 := chr(x1 - ((-x2 + x1 + 90) div 2));
       end
     else
        begin
           r2 := chr(x1 + 90 - x2);
           r1 := chr( x1 + x2);
        end;
      result := result + r1 + r2;
    end;
end;

=============================================================


>From: "Fernando Reis Guimarães" <fernandobhz em gmail.com>
>Reply-To: FireBase <lista em firebase.com.br>
>To: FireBase <lista em firebase.com.br>
>Subject: Re: [firebase-br] Cryptografia
>Date: Fri, 22 Jun 2007 22:25:31 -0300
>
>ou melhor, já passe os dados criptografados....
>
>Em 22/06/07, Fernando Reis Guimarães <fernandobhz em gmail.com> escreveu:
> >
> > use stored procedures...
> >
> > é so apagar o código fonte dela, é melhor que udf
> >
> > Em 22/06/07, Alan Matos <alanladecasa em gmail.com > escreveu:
> > >
> > > se vc quiser fz isso dentro do Firebird, aconselho criar uma UDF, pois
> > > assim, algum "espertinho" tiver acesso a estrutura do seu banco, não 
>vai
> > > ver
> > > o seu algorítimo de criptografia, pois este vai estar compilado em uma
> > > dll...
> > >
> > > outro detalhe..
> > >
> > > na hora de validar, compare os dados criptogradados, não vá criar uma
> > > função
> > > de descriptografar publicar ela na dll. hehe!
> > > ______________________________________________
> > > FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> > > Para editar sua configuração na lista, use o endereço 
>http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
> > >
> > > Para consultar mensagens antigas: http://firebase.com.br/pesquisa
> > >
> >
> >
> >
> > --
> > Atenciosamente,
> > Fernando Reis Guimarães.
> > Analista/Programador - Free-Lancer - BH
> >
> > Contatos
> > fernandobhz em gmail.com
> > http://fernandobhz.com
> > Celular 9213-3727
> >
> >
> > 
>http://fernandobhz.com/apresentacao/fernando-reis-guimaraes-analista-programador-free-lancer-bh.html
>
>
>
>
>--
>Atenciosamente,
>Fernando Reis Guimarães.
>Analista/Programador - Free-Lancer - BH
>
>Contatos
>fernandobhz em gmail.com
>http://fernandobhz.com
>Celular 9213-3727
>
>http://fernandobhz.com/apresentacao/fernando-reis-guimaraes-analista-programador-free-lancer-bh.html
>______________________________________________
>FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
>Para editar sua configuração na lista, use o endereço 
>http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>Para consultar mensagens antigas: http://firebase.com.br/pesquisa

_________________________________________________________________
O Windows Live Spaces é seu espaço na internet com fotos (500 por mês), blog 
e agora com rede social http://spaces.live.com/