• 557
    0

    Delphi does not have the definition of WinCrypt related functions by default, so it refers to the JwaWinCrypt{jedi-apilib} unit Change the parameter CALG_MD5 in CryptCreateHash(hProv, CALG_MD5, 0, 0, hHash) Modify it to CALG_SHA1 to calculate the SHA1 hash. It is worth noting that CALG_SHA_256, CALG_SHA_384, CALG_SHA_512 The three algorithms are only supported in Windows XP ...