Question SHA-512 hash-codes

SECURITY-POLICY:SYMMETRIC-ENCRYPTION-ALGORITHM = 'AES_CBC_256'.
SECURITY-POLICY:PBE-HASH-ALGORITHM             = 'SHA-512'.
SECURITY-POLICY:ENCRYPTION-SALT                = ?.   /* '?' --> NO salt-value is used       */

MESSAGE message-digest("SHA-512", "1234@docuware!1")
    "~n~n" GENERATE-PBE-KEY("1234@docuware!1")  VIEW-AS ALERT-BOX.

SECURITY-POLICY:PBE-KEY-ROUNDS = 1. /* just 1 hash algorithm iteration */

...the result is almost the same, the strings differ only at position 5 and 32

Seond: the funny thing:

If one uses HEX-ENCODE, the first 32 bytes are identical. Try the following code:

SECURITY-POLICY:SYMMETRIC-ENCRYPTION-ALGORITHM = 'AES_CBC_256'. 
SECURITY-POLICY:PBE-HASH-ALGORITHM = 'SHA-512'. 
SECURITY-POLICY:ENCRYPTION-SALT = ?. /* '?' --> NO salt-value is used */ 
SECURITY-POLICY:PBE-KEY-ROUNDS = 1. /* just 1 hash algorithm iteration */ 

DEFINE VARIABLE digest AS RAW NO-UNDO. DEFINE VARIABLE PBEKEY AS RAW NO-UNDO. 
DEFINE VARIABLE vChar1 AS CHARACTER NO-UNDO. 
DEFINE VARIABLE vChar2 AS CHARACTER NO-UNDO.  

ASSIGN digest = MESSAGE-DIGEST("SHA-512", "aaaaa"). 

PBEKEY = GENERATE-PBE-KEY("aaaaa"). 

vChar1 = HEX-ENCODE(digest). 
vChar2 = HEX-ENCODE(PBEKEY).  

MESSAGE STRING(digest) SKIP string(pbekey) SKIP(2) "Equal:~t" STRING(digest) BEGINS string(pbekey) SKIP(3)
       vChar1 SKIP vChar2 SKIP(2) "Equal:~t" vChar1 BEGINS vChar2
    VIEW-AS ALERT-BOX.