Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-06-2019
Angie Rayas Angie Rayas is offline
Registrado
 
Registrado: jun 2019
Posts: 3
Poder: 0
Angie Rayas Va por buen camino
PGP con Delphi

Hola a todos, soy Angie y son nueva en este foro.
El día de hoy vengo a solicitar de su apoyo, ya que nunca he trabajado con la encriptación de archivos en mis proyectos y el día de hoy se me a solicitado que el archivo que se vaya a procesar por la interfaz creada se pueda desencriptar, ya que el usuario lo enviará encriptado, esto a través de una llave publica de PGP y el archivo generado como resultado del proceso poder encriptarlo igualmente.

Ustedes sabrán de algún componente que funcione para Delphi XE5 para este proceso y en donde podría ver ejemplos?

De antemano, gracias.
Responder Con Cita
  #2  
Antiguo 24-06-2019
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Puede que este funcione, echa un vistazo.
Responder Con Cita
  #3  
Antiguo 25-06-2019
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
En hilos anteriores (si buscas seguro que encuentras alguno) hemos hablado de los Secure Blackbox (https://www.secureblackbox.com/sbb/), seguramente el mejor paquete para trabajar con encriptación, firmas, certificados,... desde Delphi.
Eso sí, son muy buenos, pero son de pago.


Revisa este link: https://www.secureblackbox.com/kb/he...ncryptkey.html
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #4  
Antiguo 25-06-2019
Angie Rayas Angie Rayas is offline
Registrado
 
Registrado: jun 2019
Posts: 3
Poder: 0
Angie Rayas Va por buen camino
Muchas gracias por tu respuesta Casimiro Notevi, Neftali, si estuve revisando BlackBox, pero me comentaron que lo requieren gratuito

Ahorita me encuentro haciendo pruebas con cryptlib.pas y DelphiCryptlib.pas, pero tengo algunas dudas, no se si alguien lo a usado?.

Estoy haciendo pruebas con este código en donde se encripta un archivo.

Código Delphi [-]
var
  InputData, OutputData: TStream;
  Encrypt: TCryptEnvelope;
begin
  InputData := TFileStream.Create('MyTestfile.txt', fmOpenRead);  { open input file }
  OutputData := TFileStream.Create('EncodedFile.bin', fmCreate);  { open output file }
  Encrypt := TCryptEnvelope.Create(CRYPT_FORMAT_SMIME);           { create encryption object }
  Encrypt.Password := 'MyPassword';                               { set password for encryption }
  Encrypt.SetAttribute(CRYPT_OPTION_ENCR_ALGO, CRYPT_ALGO_AES);   { set algorithm to AES }
  Encrypt.StreamIO(InputData, OutputData);                        { do the encryption }
  Encrypt.Free;                                                   { delete all objects used }
  InputData.Free;                                                 { close inputfile }
  OutputData.Free;                                                { clode outputfile }
end;

La idea es que se toma un archivo llamado 'MyTestfile.txt' y al encriptarlo se guarda con el nombre EncodedFile.bin.

Yo hice los siguientes cambios:
Código Delphi [-]
var
  InputData, OutputData: TStream;
  Encrypt: TCryptEnvelope;
begin
  InputData := TFileStream.Create('MyTestfile.txt', fmOpenRead);  { open input file }
  OutputData := TFileStream.Create('EncodedFile.bin', fmCreate);  { open output file }
  Encrypt := TCryptEnvelope.Create(CRYPT_FORMAT_PGP);           { create encryption object }
  Encrypt.EncryptingKey:= 'pubring.pkr';                               { set password for encryption }
  Encrypt.SetAttribute(CRYPT_OPTION_ENCR_ALGO,CRYPT_ALGO_CAST);   { set algorithm to AES }
  Encrypt.StreamIO(InputData, OutputData);                        { do the encryption }
  Encrypt.Free;                                                   { delete all objects used }
  InputData.Free;                                                 { close inputfile }
  OutputData.Free;                                                { clode outputfile }
end;

La primer línea con cambio se debe a que estoy especificando que usaré PGP en lugar de SMIME.
La segunda línea con cambio quiero asignar la llave publica en lugar de la contraseña. (Me marca error)
La tercer línea es el "conventionl encryption" que corresponde para OpenPGP "CRYPT_ALGO_CAST = 4; { CAST-128 (only used for OpenPGP) }"

El problema es que no se como colocar la llave publica (archivo pkr) generada con OpenPGP para que pueda encriptarme el archivo.

Alguien a usado esto para encriptar?
Responder Con Cita
  #5  
Antiguo 26-06-2019
Angie Rayas Angie Rayas is offline
Registrado
 
Registrado: jun 2019
Posts: 3
Poder: 0
Angie Rayas Va por buen camino
Buenos días, debido a los problemas que se presentaron al tratar de utilizar las opciones gratuitas, realicé mis pruebas con Secure BlackBox como lo sugirió Neftalí y me funciono a la perfección.
El día de hoy probaré con IP*Works! y dependiendo los resultados, les comparto mi experiencia.

Gracias por su apoyo.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 13:36:23.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi