> >* Get FoxCrypto.FLL at http://www.connectthenet.com/foxpro/FoxCrypto.fll > > >SET LIBRARY TO FoxCrypto.FLL >LOCAL lnHandle >CLEAR >lcBuffer = "Testing" >? " Base Value: ", lcbuffer > >lnHandle = Base64encoderCREATE( .F. ) >IF lnHandle > 0 > Base64encoderPUT(lnHandle, lcBuffer) > Base64encoderCLOSE(lnHandle) > lnSize = Base64encoderMaxRetrievable(lnHandle) > lcBase64Encoded = Base64encoderGET(lnHandle, lnSize) > ? "Encrypted Value: ", lcBase64encoded > Base64encoderDestroy(lnHandle) >ENDIF > >lnHandle = Base64decoderCREATE() >IF lnHandle > 0 > Base64decoderPUT(lnHandle, lcBase64encoded) > Base64decoderCLOSE(lnHandle) > lnSize = Base64decoderMaxRetrievable(lnHandle) > lcBase64decoded = Base64decoderGET(lnHandle, lnSize) > ? "Decrypted Value: ", lcBase64decoded > Base64decoderDestroy(lnHandle) >ENDIF >? "Matches = ", lcBase64decoded == lcBuffer > >>