* Get the cipher50.fll file from the below url: * http://www.levelextreme.com/wconnect/wc.dll?FournierTransformation~2,54,33,9222 IF NOT 'CIPHER50' $ UPPER(SET('library')) SET LIBRARY TO cipher50.fll ENDIF lcText = "ABA" lcEncryptKey = "Whateveryoulike" ? "Base Value: ", lcText ? " Encrypted: ", encrypt(lcText, lcEncryptkey) ? " UnEncrypt: ", encrypt(encrypt(lcText, lcEncryptkey), lcEncryptKey)>Tom,
>> >>* 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 >> >>>>