Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Encrypting password column in a table?
Message
From
18/08/2004 08:55:59
 
 
To
18/08/2004 00:39:38
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00933970
Message ID:
00934068
Views:
25
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