Procedure

tCryptography.HashBuf

Module

XuDsigS

Last Modified

7/15/2014 3:26:44 PM

Comments

Called to hash a buffer of data

Visibility

Public

Owner

tCryptography

Declaration

procedure HashBuf(pB: pByte; cnt: integer);

Calls Hierarchy


tCryptography.HashBuf
 ├CryptHashData
 └tCryptography.RaiseErr

Called-By Hierarchy


     tCryptography.HashBuf
tCryptography.Hashbuffer┘ 
tCryptography.SignData┘   

Calls

Name Declaration Comments
CryptHashData function CryptHashData(hHash :HCRYPTHASH; const pbData :PBYTE; dwDataLen :DWORD; dwFlags :DWORD) :BOOL;stdcall; -
tCryptography.RaiseErr procedure RaiseErr(msg: string); -

Called-By

Name Declaration Comments
tCryptography.Hashbuffer procedure Hashbuffer; -


Source

396   procedure tCryptography.HashBuf(pB: pByte; cnt: integer);
397   var
398     Str: String;
399   begin
400     if CryptHashData(hHash, pB, Cnt, 0) = False then
401     begin
402       lastErr := GetLastError;
403       Str := IntToStr(lastErr)+' - '+SysErrorMessage(lastErr);
404       TrackingMsg.Add('CryptHashData in crypto.HashBuf failed - '+Str);
405       RaiseErr('Unable to hash buff');
406       exit;
407     end;
408   end;