resueltos - ¿Cómo hago una cadena con Delphi?

programas hechos en lenguaje ensamblador

Question

¿Cómo puedo hacer un hash MD5 de una cadena con Delphi?

Answer 1

El proyecto Spring For Delphi - http://www.spring4d.org - tiene implementación para un número de hashes SHAxxx, hash MD5, y también número de funciones CRC

Answer 2

Esta es una modificación de la respuesta de devstopfix que fue aceptada.

En la versión actual de Indy puedes hacer hash de cadenas y flujos más fácilmente. Ejemplo:

function MD5String(str: String): String;
begin
  with TIdHashMessageDigest5.Create do
    try
      Result := HashStringAsHex(str);
    finally
      Free;
    end;
end;

Use HashString , HashStringAsHex , HashBytes , HashBytesAsHex , HashStream , HashStreamAsHex . La ventaja es que también puede especificar una codificación de texto

Answer 3

Si desea un resumen de MD5 y tiene instalados los componentes de Indy , puede hacer esto:

uses SysUtils, IdGlobal, IdHash, IdHashMessageDigest;

with TIdHashMessageDigest5.Create do
try
    Result := TIdHash128.AsHex(HashValue(''Hello, world''));
finally
    Free;
end;

Los algoritmos más populares son compatibles con el paquete de criptografía Delphi :

• Haval
• MD4, MD5
• RipeMD-128, RipeMD-160
• SHA-1, SHA-256, SHA-384, SHA-512,
• Tigre

La actualización de DCPCrypt ahora es mantenida por Warren Postma y la fuente se puede encontrar here .

Answer 4

Si desea una cadena hash MD5 como hexadecimal y tiene instalado Delphi XE 1 , para que tenga los componentes Indy 10 .5.7 puede hacer esto:

usa IdGlobal, IdHash, IdHashMessageDigest;

class function getMd5HashString(value: string): string;
var
    hashMessageDigest5 : TIdHashMessageDigest5;
begin
    hashMessageDigest5 := nil;
    try
        hashMessageDigest5 := TIdHashMessageDigest5.Create;
        Result := IdGlobal.IndyLowerCase ( hashMessageDigest5.HashStringAsHex ( value ) );
    finally
        hashMessageDigest5.Free;
    end;
end;

Answer 5

Si todo lo que quiere hacer es usar un diccionario, y no está buscando seguridad, entonces:
En Delphi 2009 y superior, se pueden crear valores hash para cadenas con

BobJenkinsHash (Value, Length(Value) * SizeOf(Value), 0)

donde Value es una cadena.

BobJenkinsHash

Answer 6

También puede usar la API de WindowsCrypto con Delphi:

• Demo y recursos generales de Crypto & Hash

Hay una unidad allí que envuelve todo el CryptoAPI. También puede usar Lockbox, que ahora es de código abierto.

Al final puedes soportar casi cualquier algoritmo Hash con Delphi. El ejemplo de Indy es probablemente el más cercano que obtendrás nativamente en Delphi ya que Indy está incluido con la mayoría de las versiones de Delphi. Para el resto necesitará usar una biblioteca o escribir más código para acceder a CryptoAPI o implementarlo usted mismo.

Answer 7

Usualmente uso DCPCrypt2 ( Paquete de criptografía Delphi ) de David Barton ( City in the Sky ).

También contiene los siguientes algoritmos de cifrado:

• Blowfish
• Elenco 128
• Cast 256
• DES, 3DES
• Hielo, Hielo Fino, Hielo2
• IDEA
• Marte
• Misty1
• RC2, RC4, RC5, RC6
• Rijndael (el nuevo AES)
• Serpiente
• Té
• Dos peces

La actualización de DCPCrypt ahora es mantenida por Warren Postma y la fuente se puede encontrar here .

Answer 8

TurboPower Lockbox es compatible con:

• MD-5,
• SHA-1 y
• toda la familia SHA-2, incluidos los hashes SHA-512/224 y SHA-512/256 publicados recientemente.