Fórum Componente pra encriptar String !! Onde tem um comp. bom ? #139688

22/02/2003

0

Delphi

onde eu acho um bom componente pra D3, pra encriptar/desencriptar string? quero criptografar uma senha e preciso fazer isso...


valeu

[i:376d553708]Título em maiúsculas editado. (marcelo.c - Moderador)[/i:376d553708]


Anonymous

Anonymous

Responder

Posts

22/02/2003

Anonymous

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

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


Responder

Gostei + 0

22/02/2003

Sandra

Oi...

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


Tem tantos componentes!!


Responder

Gostei + 0

22/02/2003

Marfred

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...


Responder

Gostei + 0

22/02/2003

Anonymous

Oi... Já procurou no http://www.drdelphi.com.br/ ? Tem tantos componentes!!


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:


Responder

Gostei + 0

22/02/2003

Anonymous

Nao sei se este funciona em Delphi de Dom Pedro I, mas e bom e de graca http://sourceforge.net/projects/tplockbox/


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


Responder

Gostei + 0

23/02/2003

Anonymous

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.


Responder

Gostei + 0

23/02/2003

Anonymous

valeu cara, vou testar essas dicas ai

valeu


Responder

Gostei + 0

22/04/2004

Ronnie

[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??


Responder

Gostei + 0

24/06/2005

Pedih

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.


Responder

Gostei + 0

25/06/2005

Eniorm

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


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.


Responder

Gostei + 0

25/06/2005

Adriano Santos

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.


Responder

Gostei + 0

25/06/2005

Maxadens

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!


Responder

Gostei + 0

25/06/2005

Adriano Santos

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.


Responder

Gostei + 0

27/06/2005

Pedih

[quote:867b226259=´Enio Marconcini´]
funciona perfeitamente, porem, preciso que faca o mesmo com JPG. Ja mudei algumas coisas, porem, nada funcionou..


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.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar