Function DoURLDecodeString Global String sSource Returns String
    String sDec
    Integer hoCrypt

    Indicate err False
    Get Create U_cComChilkatCrypt2 to hoCrypt
    Send CreateComObject to hoCrypt
    If (err) Function_Return ""

    Get ComUnlockComponent of hoCrypt "..." to windowindex

    Set ComCharset of hoCrypt to "us-ascii"
    Set ComCryptAlgorithm of hoCrypt to "none"
    Set ComEncodingMode of hoCrypt to "url"
    
    Get ComDecryptStringENC of hoCrypt (trim(sSource)) to sDec

    Send Destroy to hoCrypt

    Function_Return sDec
End_Function