>FUNCTION str2hex > LPARAMETERS pcStr > > LOCAL lnCnt, lcHex > > lcHex = "" > lnCnt = len(pcStr) > DO WHILE lnCnt > 0 > lcHex = RIGHT(TRANSFORM(ASC(SUBSTR(pcStr, lnCnt, 1)), "@0"), 2) + lcHex > lnCnt = lnCnt - 1 > ENDDO > > return iif(!empty(lcHex), "0x"+lcHex, "") >ENDFUNC >>