integer li_rc
oleobject loo_Crypt
oleobject loo_Sb

//  This example requires the Chilkat Crypt API to have been previously unlocked.
//  See Unlock Chilkat Crypt for sample code.

loo_Crypt = create oleobject
li_rc = loo_Crypt.ConnectToNewObject("Chilkat_9_5_0.Crypt2")
if li_rc < 0 then
    destroy loo_Crypt
    MessageBox("Error","Connecting to COM object failed")
    return
end if

//  Choose the hash algorithm.
//  Can be  "sha1", "sha256", "sha384", "sha512", "md2", "md5", "haval", "ripemd128", "ripemd160","ripemd256", or "ripemd320".
loo_Crypt.HashAlgorithm = "sha256"

//  The byte representation of the string matters when hashing.
//  Tell Chilkat that we want to use the utf-8 byte representation.
loo_Crypt.Charset = "utf-8"

loo_HashBytes = loo_Crypt.HashString("They who can give up essential liberty to obtain a little temporary safety deserve neither liberty nor safety.")

//  Let's examine the hash as a hex string.
loo_Sb = create oleobject
li_rc = loo_Sb.ConnectToNewObject("Chilkat_9_5_0.StringBuilder")

loo_Sb.AppendEncoded(loo_HashBytes,"hex")
Write-Debug "SHA256 hash = " + loo_Sb.GetAsString()


destroy loo_Crypt
destroy loo_Sb