关于MD5算法

最新推荐文章于 2023-07-28 14:35:06 发布

原创最新推荐文章于 2023-07-28 14:35:06 发布 · 721 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#md5 oracle delphi qt

本文详细介绍了在Oracle数据库中使用函数获取MD5哈希值的方法，并展示了如何在Qt和Delphi中生成MD5哈希。文章涵盖了不同编程环境下的MD5实现细节，包括Oracle函数定义、Qt的GetMD5函数实现和Delphi中的MD5生成方法。

一、oracle中使用如下方式操作MD5：

1、首先在数据库中创建如下函数：

create or replace function GetMD5(vSrc in varchar2) return varchar2 is
  Result varchar2(32);
begin
  Result := lower(utl_raw.cast_to_raw(sys.dbms_obfuscation_toolkit.md5(input_string => vSrc)));
  return(Result);
end GetMD5;

2、在查询中直接调用上述函数：

select getmd5('abc') from dual;

3、查询结果如下所示：

900150983cd24fb0d6963f7d28e17f72

二、qt调用如下函数可生成MD5值：

QString GetMD5(QString vSrc)
{
    QString md5;
    QByteArray bb;
    bb = QCryptographicHash::hash ( vSrc.toAscii(), QCryptographicHash::Md5 );
    md5.append(bb.toHex());
    return md5;
}

三、delphi6/7中使用如下函数可以生成MD5值：

需要Indy控件支持。

function GetMD5(vSrc: string): string;
var
  md5: TIdHashMessageDigest5;
  Digest: T4x4LongWordRecord;
begin
  md5 := TIdHashMessageDigest5.Create;
  Digest := md5.HashValue('');
  Result := MyMD5.AsHex(Digest);
end;