na verdade eu to tentando implementar o AES... mas não achei o fonte dele na
internet..
=(
---------- Cabeçalho original -----------
De: delphi-br@yahoogrupos.com.br
Para: delphi-br@yahoogrupos.com.br
Cópia:
Data: Sun, 11 Mar 2007 13:28:57 -0300
Assunto: Re: [delphi-br] Operação Bit a Bit
> humbertogrupos wrote:
>
> > Olá caros colegas, estou desenvolvendo uma rotina de criptografia e
> > gostaria de saber se, algum dos colegas
> > sabe como trabalhar com o BIT.
> >
> > Tipo digamos que eu tenha o carácter 'A'..
> > O mesmo possui 1 Bytes, o qual possui 8 bits.. gostaria de poder alterar
> > esses Bits de forma q 'A' não seja
> > mais 'A' e sim um outro carácter qualquer.
>
> Basta fazer Ord('A') <operador> <algum numero>.
>
> <operador>:
> or - liga bits
> and - desliga bits
> xor - altera bits
>
> Ord('A') == 65 == 01000001
> 5 == 00000101
>
> 65 or 5:
> 01000001
> 00000101
> --------
> 01000101 == 69
>
> 65 and 5:
> 01000001
> 00000101
> --------
> 00000001 == 1
>
> 65 xor 5:
> 01000001
> 00000101
> --------
> 01000100 == 68
>
> Agora, bom mesmo é você usar algum algoritmo de criptografia de código
> aberto. Blowfish (cipher) e md5 (hash) são dois exemplos. Procure por
> "Delphi Encryption Compendium".
>
> --
> Joao Morais
>
>
