Componente pra encriptar String !! Onde tem um comp. bom ?

Nao sei se este funciona em Delphi de Dom Pedro I, mas e bom e de graca

http://sourceforge.net/projects/tplockbox/

Oi...

Já procurou no http://www.drdelphi.com.br/ ?


Tem tantos componentes!!

Gente por favor.... se cadastrem antes de usar o forum... preciso do e-mail do ´visitante´ p/ enviar o componente.....


Qual é seu e-mail ? acho q vai gostar de um q tenho aki...

oi, ja procurei sim, mas quando eu vou instalar os componenter que baixei dai, sempre da erro.

o drdelphi eh muito bom, mas a busca dele nunca funciona.. :cry:

como assim delphi de dom pedro I ?? nao entendi essa dai..

Pra que componentes de terceiros ????
Esta funcao funciona e fica dentro do Exe... e tem a vantagem de vc poder alterar facilmente pra adequar a vc e seus sistemas.

Um Abraço
Werlon Goulart

Neste caso a senha esta fixa em Jesus....

Altere pra uma de seu interesse... Mas TESTE ANTES de usar... Pois algumas senhas podem nao dar certo... com esta funciona 100¬ (Deve ser o poder Divino atuando ne ???)


//Criptografa e Descriptografa Textos (Senhas).

function Encrypt( Senha:String ): String;
Const
Chave : String = ´Jesus´;
Var
x,y : Integer;
NovaSenha : String;
begin
for x := 1 to Length( Chave ) do begin
NovaSenha := ´´;
for y := 1 to Length( Senha ) do
NovaSenha := NovaSenha + chr( (Ord(Chave[x]) xor Ord(Senha[y])));
Senha := NovaSenha;
end;
result := Senha;
end;


De lambuja vai uma pra criptografar imagens....

Criptografando Imagens com o Delphi

procedure cripto(const BMP: TBitmap; Key: Integer);
var
BytesPorScan: Integer;
w, h: integer;
p: pByteArray;
begin
try
BytesPorScan := Abs(Integer(BMP.ScanLine[1]) -
Integer(BMP.ScanLine[0]));
except
raise Exception.Create(´Erro !´);
end;
RandSeed := Key;
for h := 0 to BMP.Height - 1 do
begin
P := BMP.ScanLine[h];
for w := 0 to BytesPorScan - 1 do
P^[w] := P^[w] xor Random(256);
end;
end;

Agora vamos ao evento onclick do Button chamar a nossa procedure cripto, basta digitar o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);
begin
cripto(Image1.Picture.Bitmap, 1);
Image1.Refresh;
end;


Ao chamar a rotina passamos como parâmetro o caminho da imagem que no exemplo foi utilizado
o componente image e 1 como um valor inteiro para retornamos a imagem normal, logo após a
execução da nossa procedure atualizamos o image para que ele possa exibir nossa imagem criptografada.

valeu cara, vou testar essas dicas ai

valeu

[quote:2ebc1a2ab7=´Werlon Goulart´]Pra que componentes de terceiros ????
Esta funcao funciona e fica dentro do Exe... e tem a vantagem de vc poder alterar facilmente pra adequar a vc e seus sistemas.

Um Abraço
Werlon Goulart

Neste caso a senha esta fixa em Jesus....

Altere pra uma de seu interesse... Mas TESTE ANTES de usar... Pois algumas senhas podem nao dar certo... com esta funciona 100¬ (Deve ser o poder Divino atuando ne ???)


//Criptografa e Descriptografa Textos (Senhas).

function Encrypt( Senha:String ): String;
Const
Chave : String = ´Jesus´;
Var
x,y : Integer;
NovaSenha : String;
begin
for x := 1 to Length( Chave ) do begin
NovaSenha := ´´;
for y := 1 to Length( Senha ) do
NovaSenha := NovaSenha + chr( (Ord(Chave[x]) xor Ord(Senha[y])));
Senha := NovaSenha;
end;
result := Senha;
end;


De lambuja vai uma pra criptografar imagens....

Criptografando Imagens com o Delphi

procedure cripto(const BMP: TBitmap; Key: Integer);
var
BytesPorScan: Integer;
w, h: integer;
p: pByteArray;
begin
try
BytesPorScan := Abs(Integer(BMP.ScanLine[1]) -
Integer(BMP.ScanLine[0]));
except
raise Exception.Create(´Erro !´);
end;
RandSeed := Key;
for h := 0 to BMP.Height - 1 do
begin
P := BMP.ScanLine[h];
for w := 0 to BytesPorScan - 1 do
P^[w] := P^[w] xor Random(256);
end;
end;

Agora vamos ao evento onclick do Button chamar a nossa procedure cripto, basta digitar o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);
begin
cripto(Image1.Picture.Bitmap, 1);
Image1.Refresh;
end;


Ao chamar a rotina passamos como parâmetro o caminho da imagem que no exemplo foi utilizado
o componente image e 1 como um valor inteiro para retornamos a imagem normal, logo após a
execução da nossa procedure atualizamos o image para que ele possa exibir nossa imagem criptografada.[/quote:2ebc1a2ab7]



Valeu cara!!! como faço pra criptografar uma jpeg ou tiff, ao inves de bmp??

Boa tarde.

Teste a rotina:

procedure cripto(const BMP: TBitmap; Key: Integer);
var
BytesPorScan: Integer;
w, h: integer;
p: pByteArray;
begin
try
BytesPorScan := Abs(Integer(BMP.ScanLine[1]) -
Integer(BMP.ScanLine[0]));
except
raise Exception.Create(´Erro !´);
end;
RandSeed := Key;
for h := 0 to BMP.Height - 1 do
begin
P := BMP.ScanLine[h];
for w := 0 to BytesPorScan - 1 do
P^[w] := P^[w] xor Random(200);
end;
end;


funciona perfeitamente, porem, preciso que faca o mesmo com JPG.
Ja mudei algumas coisas, porem, nada funcionou..

Alguem poderia adaptar ou sugeriu uma outra procedure/funcao que criptografasse o JPG.

Tenho 13.000 Imagens, em JPG. Estou desenvolvendo um catálogo eletrônico, para rodar direto no CD. Estas imagens serao salvas no CD (criptografadas), e o meu .EXE, ao clicar num item por exemplo, ira mostar a imagem ja sem criptografia.

Bom. é isso ae.

Grato a todos.

No aguardo.

Tenta ai, vai q da certo.

Transforma o JPG em BMP e criptografa, apos isso converta o novo BMP em JPG.

Depois pegue o JPG criptografado tranforme em BMP e tente descriptografar..

Não garanto que isso funcione, mas não custa tentar.

Eu acredito que ficar na dependência de um componente de terceiro não é o melhor caminho. Tenho minhas próprias funções e sempre que preciso é só alterar algo.

Estou com os colegas que enviaram as funções de criptografia, se precisar tenho uma boa aqui também.

Falow.

Um amigo da comunidade ClubeDelphi me indicou um muito bom que inclusive conta com os fontes.

entre no link
http://www.torry.net/quicksearchd.php?SID=c40cb58c8bf75eb3d802cfa737638636&String=DCPcrypt&Title=Yes

se não der, entre em http://www.torry.net/ e procura por DCPcrypt

Um Abraço a todos!

Bom, complementando o que eu disse.
Sou contra o uso de componentes de terceiros sem fontes, pois você fica vinculado a ele. Numa eventual migração de delphi você pode ficar chupando dedo.

[quote:867b226259=´Enio Marconcini´]

Tenta ai, vai q da certo.

Transforma o JPG em BMP e criptografa, apos isso converta o novo BMP em JPG.

Depois pegue o JPG criptografado tranforme em BMP e tente descriptografar..

Não garanto que isso funcione, mas não custa tentar.[/quote:867b226259]


Amigo, esta alternativa nao resolve.

Motivo: o BMP fica enorme, 10 vezes maior.. hje, com minhas 13.000 imagens, tenho um total de 250MB. e transformando todas em BMP. passa dos 2 GB.. e preciso colocar tudo num unico CD. preciso realmente criptografar o JPG. (sem transformar em BMP).

No aguardo. Obrigado.