Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Encrypting password column in a table?
Message
From
19/08/2004 12:42:17
 
 
To
18/08/2004 08:55:59
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00933970
Message ID:
00934562
Views:
30
Tom,

I'm not aware of FoxCrypto.FLL, but the name Base64 means something to me. Isn't waht you're doing below the same as StrConv (cExpression, 13) and StrConv (cExpression, 14) ?

Regards,

Fernando

>Here is the solution I came up with:
>
>
>
>* 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
>
>
>
>
>
>>>I have a DBF that contains a user userid and password. I would like to encrypt the password column and be able to still use its value as normal. What is the best most straightforward way to do this without purchasing a third party product?
>>
>>Would it be possible to store hashes of those values, rather than the values themselves?
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform