[Gunman]
14-06-2006, 09:23:26
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:
//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;
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:
//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;