zoukankan      html  css  js  c++  java
  • 文件CRC和MD5校验

    文件CRC和MD5校验

    CRC和MD5用于文件和数据的传输校验,以确认是否接收成功。

    unit CRCMD5;
    
    interface
    { 获取文件CRC校验码 }
    function GetFileCRC(const iFileName: string): String;
    { 获取字符串CRC校验码 }
    function GetStringCRC(const Str: string): Cardinal;
    { 取文件MD5码 }
    function GetFileMD5(const iFileName: string): String;
    
    implementation
    
    uses Classes, IdHashMessageDigest, IdHashCRC;
    
    { 获取文件CRC校验码 }
    function GetFileCRC(const iFileName: string): String;
    var
      MemSteam: TMemoryStream;
      MyCRC   : TIdHashCRC32;
    begin
      MemSteam := TMemoryStream.Create;
      MemSteam.LoadFromFile(iFileName);
      MyCRC  := TIdHashCRC32.Create;
      Result := MyCRC.HashStreamAsHex(MemSteam);
      MyCRC.Free;
      MemSteam.Free;
    end;
    { 获取字符串CRC校验码 }
    function GetStringCRC(const Str: string): Cardinal;
    var
      MyCRC: TIdHashCRC32;
    begin
      MyCRC  := TIdHashCRC32.Create;
      Result := MyCRC.HashValue(Str);
      MyCRC.Free;
    end;
    { 取文件MD5码 }
    function GetFileMD5(const iFileName: string): String;
    var
      MemSteam: TMemoryStream;
      MyMD5   : TIdHashMessageDigest5;
    begin
      MemSteam := TMemoryStream.Create;
      MemSteam.LoadFromFile(iFileName);
      MyMD5  := TIdHashMessageDigest5.Create;
      Result := MyMD5.HashStreamAsHex(MemSteam);
      MyMD5.Free;
      MemSteam.Free;
    end;
    end.
    

      

  • 相关阅读:
    angularjs $index用来取顺序
    angularjs &登录跳转
    if(!confirm("您确定删除吗?")){return;}
    登录跳转
    undefined null测试
    git生成密钥
    遍历map
    网络相关名词解释
    redis的Pub/Sub
    SQLAlchemy的使用
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/11079660.html
Copyright © 2011-2022 走看看