É, não encontrei nada aqui, navegando na internet encontrei esta observação:
Se você disser que o campo não pode passar de 16 caracteres, então você poderia usar algum algoritmo que cifrasse 16 bytes para 16 bytes (por exemplo, o AES), tendo um resultado final de 32 caracteres hexadecimais. E como eu citei o Hexadecimal, então bateu.... Pesquise sobre o AES. Blz. Luis Hilário Tobler Garcia escreveu: > > Então, o meu sistema precisa funcionar com uma criptografia de duas > chaves, eu não pretendo somente embaralhar as letras, acho isso fácil > de gerar a desincriptação, porém gostaria de saber se ao menos há > alguma descrição do aumento de caracteres, por exemplo, pelo método X > tenho um aumento de 3 casas, pelo metodo Y tenho um aumento > equivalente a 1/3 das casas originais, ou algo do tipo. > > Grato, Hilário. > > ----- Original Message ----- > From: Onjahyr - GMAIL > To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> > Sent: Tuesday, July 01, 2008 11:22 PM > Subject: Re: [delphi-br] dll - access violation > > Bom, não entendo de Banco de Dados não, é só uma idéia (isso se vc sabe > o que vai conter este campo), você pode mudar associando cada palavra > por um código numérico, por exemplo: os estados brasileiros, então, cada > um você insere no banco um código qualquer. Eu faço isso! Se são dados > desconhecidos acho pouco provável existir, uma vez que a criptografia > sempre aumenta a quantidade de caracteres, a não ser daquele tipo que > ele muda as letras (embaralha) de acordo com uma key. > > Luis Hilário Tobler Garcia escreveu: > > > > Aproveitando o assunto de encriptação, > > eu estou usando uma função para encriptar alguns dados que são > > armazenados em meu banco de dados interbase, o que eu não achei, foi > > uma função que encriptasse e mantesse a string final do mesmo tamanho > > que a string original, tive que chutar um número de espaços adicionais > > para meus campos, para tentar acabar com os erros gerados ao exceder o > > tamanhos dos mesmos. Será que alguém já resolveu esse problema? > > > > Valeu, Hilário. > > > > ----- Original Message ----- > > From: felipe govoni > > To: delphi-br@yahoogrupos.com.br > <mailto:delphi-br%40yahoogrupos.com.br> > <mailto:delphi-br%40yahoogrupos.com.br> > > Sent: Tuesday, July 01, 2008 4:39 PM > > Subject: [delphi-br] dll - access violation > > > > boa tarde galera > > > > estou tentando criar uma dll pra criptografar dados > > mas quando tento compilar o projeto q chama essa dll da um erro de acces > > violation > > ja coloquei a dll na pasta do projeto e mesmo assim nao fuinciona. > > > > o codigo da dll: > > > > function ValorAsc(Letra: String): Byte; > > begin > > if Length(letra) > 0 then ValorAsc := Ord(Letra[1]) else ValorAsc := 0; > > end; > > > > function Cripto(Texto: String): String; export; stdcall; > > var > > Cont, Cod: Integer; > > Retorna: String; > > begin > > for Cont := 1 to Length(Texto) do begin > > Cod := ValorAsc(Copy(Texto, Cont, 1)); > > Retorna := Retorna + Chr(Cod + 57(*valor a ser adicionado - pode ser > > modificado*)); > > end; > > Cripto := Retorna; > > end; > > > > e o codigo q chama a dll > > > > function cripto(texto :string):string;external 'cript.dll'; > > > > procedure TfrmNovo.BitBtn1Click(Sender: TObject); > > var > > nome: string; > > Arquivo: TextFile; > > begin > > nome := 'C:\finalcard\data\cadpers.prs'; > > > > AssignFile(Arquivo, nome); > > > > if FileExists(nome) then > > Append(arquivo) { se existir, apenas adiciona linhas } > > else > > ReWrite(arquivo); { cria um novo se não existir } > > try > > WriteLn(arquivo, cripto(edit1.Text)); > > WriteLn(arquivo, formatdatetime('dd-mm-yyyy',now)); > > WriteLn(arquivo, '-------'); > > finally > > CloseFile(arquivo) > > end; > > > > alguem sabe oq pode ser? > > > > -- > > Felipe Govoni > > --------------------- > > Programador > > Fone 8472-8718 > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > [As partes desta mensagem que não continham texto foram removidas] > >
