Y funciona bien, pero ahora quiero hacer una función en una unidad (sin formulario) que a partir de una cadena de texto devuelva el Hash. Supongo que habrá que utilizar el componente TurboPower LockBox, pero no sé cómo hacerlo si no hay formulario donde poner el componente TLbMD5.
Publicado:
Mar Sep 30, 2008 10:07 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Función que devuelva el MD5 (HASH) de una cadena de text
Anuncios
varios escribió:
He visto el componente TurboPower LockBox para generar el MD5 de una cadena de texto. Lo he probado bajándome vuestro software AjpdSoft Hash:
Y funciona bien, pero ahora quiero hacer una función en una unidad (sin formulario) que a partir de una cadena de texto devuelva el Hash. Supongo que habrá que utilizar el componente TurboPower LockBox, pero no sé cómo hacerlo si no hay formulario donde poner el componente TLbMD5.
Aquí te mostramos la función obtenerHash:
Código:
function obtenerHash (texto : string) : string;
var
MD5Digest : TMD5Digest;
hashMD5 : TLbMD5;
begin
hashMD5 := TLbMD5.Create(nil);
hashMD5.HashString(texto);
hashMD5.GetDigest(MD5Digest);
result := BufferToHex(MD5Digest, SizeOf(MD5Digest));
end;
Un ejemplo de uso:
Código:
...
if md.tc.RecordCount > 0 then
begin
if vtcontrasenaUsuario = obtenerHash (txtContrasena.Text) then
begin
vtAdminUsu := md.tc.FieldByName('admin').AsString = 'S';
...
Recuerda que en el USES de la unidad tienes que añadir: LbClass, LbCipher, LbUtils
Y, lógicamente, tendrás que tener instalado en Borland Delphi el componente TurboPower LockBox:
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A