Help to integrate the ChilkatDelphiXE.dll Crypt2 functionality in Legacy Clarion6

questions tips
3

OpenSSL

 MODULE('libeay32.dll')
  SHA256(LONG buffer, LONG bufferlen, LONG outstr),RAW,C,NAME('SHA256')
 END

   Hash_SHA256 procedure(string str_)

    LOC:Ret              CSTRING(65)
    LOC:SHA256           CSTRING(33)

     CODE

      SHA256(address(Str_),len(clip(Str_)),address(LOC:SHA256))

      loop i# = 1 to 32
        LOC:Ret = LOC:Ret & bytetohex(val(LOC:SHA256[i#]), 1)
      end

      return LOC:Ret
2 Likes