¿Cómo implementar MD5 usando Delphi?

El paquete zip contiene el código fuente de todo el proyecto, que está codificado usando la clase MD5 en el archivo unitario SF_MD5.PAS y escrito usando bmsj. método de la clase MD5 Ingrese los datos de la cadena y use el atributo MD5bm para devolver la codificación MD5. Tenga en cuenta que el búfer se borrará después de que se devuelva MD5bm. Consulte el siguiente código de llamada:

var

m: MD5;

s1,s2: cadena;

begin

m:=MD5.Create;

m.bmsj('a');

s1:=m.MD5bm; //'a' devuelve la codificación MD5 . 0CC175B9C0F1B6A831C399E269772661

s2:=m.MD5bm; //Devolución de datos vacía D41D8CD98F00B204E9800998ECF8427E

end;

Los datos se pueden escribir en lotes cuando se usa bmsj. Consulte el siguiente código de llamada:

var

m : MD5;

s : string;

begin

m:=MD5.Create;

m.bmsj('a');

m.bmsj('b');

m .bmsj ('c');

s:=m.MD5bm; //'abc' devuelve 900150983CD24FB0D6963F7D28E17F72

end;

Esta vez, clase MD5 bmsj El procedimiento se sobrecarga de la siguiente manera: hace que bmsj utilice datos arbitrarios codificados en Delphi.

procedimiento bmsj(p: Puntero; n: Cardinal); //codificar datos 1

El primer parámetro es un puntero a los datos,

El segundo parámetro es la longitud de los datos en bytes.

El archivo unitario SF_MD5.PAS agrega la clase WJMD5 derivada de la clase TThread del hilo, que puede codificar el archivo y, como es un hilo, puede pausar durante el proceso de codificación para abortar la codificación. La apariencia del programa se modifica de la siguiente manera: para codificación de archivos.