Ok, that cut down the amount of code I had by a lot. Thanks for that. Of course, I still have the issue with the form popping-up.

>BTW, VFP STRCONV(,13) function will return encoded base64 binary and STRCONV(,14) will decode it.
>FYI, it's Base64 encoding not encryption.
>
>>Ok, they explained a bit more, that it needed to have Base64 encryption and the format to send, but it still pops-up the a User Name and Password form. Is there something in the following code that doesn't look right?
>>
>>

>>DO declare
>>
>>LOCAL cBuffer, cEncoded, cDecoded
>>local lcURL, lxmlObj, lcResponse
>>
>>lcWSDL = "https://teligibility.transactions.mckhboc.com:5002/Realtime/services/realtime?WSDL"
>>
>>lcUserName = "testuser1"
>>lcPassword = "Webpass1"
>>cBuffer = lcUserName + ':' + lcPassword
>>
>>lcURL = lcWSDL
>>lxmlObj = CreateObject("Microsoft.XMLHTTP")
>>
>>lxmlObj.Open( "POST", lcURL, .F. )
>>
>>** depending on the xml data passed later on, you may need:
>>lxmlObj.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
>>*****
>>
>>cEncoded = ToBase64(cBuffer)
>>cDecoded = FromBase64(cEncoded)
>>
>>cAuthenticate = "Basic " + cEncoded
>>
>>lxmlObj.Open("GET", lcURL, .F., cAuthenticate)
>>	
>>lxmlObj.Send() && This is where the form pops-up
>>
>>lcResponse = lxmlObj.ResponseText
>>
>>RETURN
>>
>>
>>FUNCTION ToBase64(cSrc)
>>    LOCAL nFlags, nBufsize, cDst
>>    nFlags=1  && base64
>>
>>    nBufsize=0
>>    = CryptBinaryToString(@cSrc, LEN(cSrc),;
>>        m.nFlags, NULL, @nBufsize)
>>
>>    cDst = REPLICATE(CHR(0), m.nBufsize)
>>    IF CryptBinaryToString(@cSrc, LEN(cSrc), m.nFlags,;
>>        @cDst, @nBufsize) = 0
>>        RETURN ""
>>    ENDIF
>>RETURN cDst
>>
>>FUNCTION FromBase64(cSrc)
>>#DEFINE CRYPT_STRING_NOCRLF 0x40000000
>>#DEFINE CRYPT_STRING_NOCR 0x80000000
>>    LOCAL nFlags, nBufsize, cDst
>>    nFlags=1  && base64
>>
>>    nBufsize=0
>>    = CryptStringToBinary(@cSrc, LEN(m.cSrc),;
>>        nFlags, NULL, @nBufsize, 0,0)
>>
>>    cDst = REPLICATE(CHR(0), m.nBufsize)
>>    IF CryptStringToBinary(@cSrc, LEN(m.cSrc),;
>>        nFlags, @cDst, @nBufsize, 0,0) = 0
>>        RETURN ""
>>    ENDIF
>>RETURN m.cDst
>>
>>PROCEDURE declare
>>    DECLARE INTEGER CryptBinaryToString IN Crypt32;
>>        STRING @pbBinary, LONG cbBinary, LONG dwFlags,;
>>        STRING @pszString, LONG @pcchString
>>
>>    DECLARE INTEGER CryptStringToBinary IN crypt32;
>>        STRING @pszString, LONG cchString, LONG dwFlags,;
>>        STRING @pbBinary, LONG @pcbBinary,;
>>        LONG pdwSkip, LONG pdwFlags
>>