Ver Mensaje Individual
  #1  
Antiguo 14-06-2006
[Gunman] [Gunman] is offline
Miembro
 
Registrado: dic 2004
Ubicación: Pedreguer.
Posts: 355
Reputación: 20
[Gunman] Va por buen camino
Encriptar texto con MD5

Buscando por internet un método para convertir una cadena de texto a MD4 sin necesidad de instalar un componente adicional encontré este código para Delphi.NET.
En MSDN podéis encontrar todos los algoritmos posibles para usar en la función.
Debo decir que esta función no es únicamente mia, sinó que está basada en un Tip de delphi.about.com.
Aquí lo tenéis:
Código Delphi [-]
//Añadir a las uses
uses System.Security.Cryptography, 
     System.Text;

//Función para encriptar
function Encriptar(const cleanString, algorithm: string): string;
var
   ue : UnicodeEncoding;
   clearBytes, hashedBytes : array of Byte;
begin
   ue := UnicodeEncoding.Create;
   clearBytes := ue.GetBytes(cleanString) ;
   hashedBytes := (CryptoConfig.CreateFromName(algorithm) AS HashAlgorithm).ComputeHash(clearBytes) ;
   Result := BitConverter.ToString(hashedBytes) ;

   //Elimina el caracter "-"
   Result := Result.Replace('-',System.String.Empty) ;
end;
Responder Con Cita