Delphi - encriptar con DES en delphi

quisiera saber si alguien tiene idea de donde puedo sacar un componente, codigo fuente o biblioteca para encriptar/desencriptar con el algoritmo des en delphi.

gracias

Te voy a buscar la página y te contestaré porque yo tengo las librerías, pero me gusta mas dar la página ya que algun reconocimiento hay que hacer a los autores.No se lo que tardaré porque no lo tengo en este equipo pero tranquilo que no se me olvida.

El algoritmo es muy bueno pero hay otras librerías que implementan este y otros mas completas.
Mira en http://www.cryptocard.com/.Si no se te abre, busca en Google cryptocard y te aparecera el link. De todas formas ahi van dos rutinas:
procedure EncDes(Clave,Fichero:String);
var
Des: TDes; (* Step 1a *)
NewFile: String;
begin
Des := TDes.Create(nil); (* Step 1b *)
try

begin
Des.InputType := SourceFile; (* Step 2 *)
Des.InputFilePath :=Fichero;(* Step 3 *)
NewFile:= ChangeFileExt(Fichero, '.enc');
Des.OutputFilePath := NewFile;(* Step 4 *)
Des.Key := Clave; (* Step 5 *)
Des.CipherMode := ECBMode; (* Step 6 *)
Des.EncipherData(False); (* Step 8 *)
end;{if}
finally
Des.free;
end;
end;

procedure DecDes(Clave,Fichero:String);
var
Des: TDes; (* Step 1a *)
NewFile: String;
begin
Des := TDes.Create(nil); (* Step 1b *)
try

begin
Des.InputType := SourceFile; (* Step 2 *)
Des.InputFilePath :=Fichero;(* Step 3 *)
NewFile:= ChangeFileExt(Fichero, '.dec');
Des.OutputFilePath := NewFile;(* Step 4 *)
Des.Key := Clave; (* Step 5 *)
Des.CipherMode := ECBMode; (* Step 6 *)
Des.DecipherData(False); (* Step 8 *)
end;{if}
finally
Des.free;
end;
end;

La respuesta la encontraras en www.delphi.lavidaloca.com\des

Ya salio el graciosillo de turno poniendo mensajes en nombre de otro. Que se le va a hacer, si no tiene nada mejor que rascar....