Bibliotecas de criptografía

[alphazkr]

Hola, alguien sabe donde puedo descargar librerias para encriptar los metodos: DES, RSA, AES y algunas hash para delphi??
es que e buscado pero no encuantro nada. Cierto y tambien como las instalo? De antemano muchas gracias!!
(Mi version de delphi es la 2007)

[[Al González]]

Disculpa si encuentras esto fuera de tema, pero en todo caso el título del hilo sería "Bibliotecas de cifrado" o "Bibliotecas de criptografía", por si algún moderador es tan amable de cambiarlo (y que así Google no penalice al club ). En el ámbito de la programación, librería es un falso amigo (mal uso de una palabra a raíz de su mero parecido con otra de idioma distinto, como cuando alguien confunde la palabra inglesa exit con éxito). En cuanto a encriptar o encriptación, éstas no existen (criptografía sí).

Busca en el foro mensajes del compañero seoane, me parece que él ha trabajado con ese tipo de bibliotecas y es buen conocedor del tema junto con otros miembros.

[ecfisa]

Hola alphazkr y bienvenido a Club Delphi.

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Moví tu mensaje al foro Varios ya que el foro Trucos esta a fín de que los usuarios pongan a disposición códigos ingeniosos, atajos, etc.(tricks), ya sean suyos o de terceros.

Saludos.

[[Chris]]

Tomandole la palabra y sugerencia al compañero Al González, te brindo el enlace donde el compañero Seoane puso a disposición del público hace ya un tiempo una biblioteca para encriptar usando AES (el método más avanzado que se conoce)

http://delphi.jmrds.com/?q=node/44

Saludos!

[WkaymQ48]

Hablando de seoane echale un vistazo a esto:
http://code.google.com/p/secrypt/

Usando las bibliotecas del enlace anterior puedes cifrar texto de la siguiente manera:

Código Delphi [-]
uses SeAES256, SeSHA256, SeStreams;



procedure TfrmMain.btnEncryptClick(Sender: TObject);
var
  Key: TAESKey;
  Stream: TMemoryStream;
  BStream: TBase64Enc;
  AStream: TAESEnc;
begin
  try
    Key:= TAESKey(CalcSHA256(txtPassword.Text));
    Stream:= TMemoryStream.Create;
    try
      BStream:= TBase64Enc.Create(Stream);
      AStream:= TAESEnc.Create(BStream,Key);
      try
        txtPlain.Lines.SaveToStream(AStream);
      finally
        AStream.Free;
        BStream.Free;
      end;
      Stream.Position:= 0;
      txtCipher.Lines.LoadFromStream(Stream);
    finally
      Stream.Free;
    end;
  except
    ShowMessage('Failed to encrypt the message');
  end;
end;

procedure TfrmMain.btnDecryptClick(Sender: TObject);
var
  Key: TAESKey;
  Stream: TMemoryStream;
  BStream: TBase64Dec;
  AStream: TAESDec;
begin
  try
    Key:= TAESKey(CalcSHA256(txtPassword.Text));
    Stream:= TMemoryStream.Create;
    try
      AStream:= TAESDec.Create(Stream,Key);
      BStream:= TBase64Dec.Create(AStream);
      try
        txtCipher.Lines.SaveToStream(BStream);
      finally
        BStream.Free;
        AStream.Free;
      end;
      Stream.Position:= 0;
      txtPlain.Lines.LoadFromStream(Stream);
    finally
      Stream.Free;
    end;
  except
    ShowMessage('Failed to decrypt the message');
  end;
end;

En el ejemplo anterior se usa un formulario con dos botones, dos memos y un edit para la contraseña, pero como colocarlos se desprende del propio codigo (o eso espero )

Saludos

[cecam]

¿Y las TurboPower LockBox?

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

Saludos!

[alphazkr]

Ya descargue TurboPower LockBox pero no se como instalarlo. me dice que debo de ingresar:

BPL/DLL output directory

y tambien, Include (.inc) directiries


...que es lo que me pide??