频道分类

delphi 判断是否是Hash

作者:admin 来源: 日期:2021/9/23 8:12:38 人气: 标签:

 

function IsHash(Hash: String): boolean;

var i: integer;

begin

      Result := false;

      if Hash = '' then exit;

      if Length(Hash) = 32 then   // possible base32 encoded hash

                      try

                        Hash:=StrToHex(Base32Decode(UpperCase(Hash)));

                      except

                        exit;

                      end;

    if Length(Hash) <> 40 then exit;

    Result := true;

    for i := 1 to 40 do if not (Hash[i] in ['a' .. 'f', 'A'..'F', '0'..'9']) then Result := false;

end;



上一篇:delphi StringGrid1获取指定列所有数据下一篇:没有资料