is there some kind of algorithm in fox that can store and encrypted password so that if anyone got a hold of the data they couldn't read the password.
Thanks in Advance
is there some kind of algorithm in fox that can store and encrypted password so that if anyone got a hold of the data they couldn't read the password.
Thanks in Advance
You may want to check
http://www.sweetpotatosoftware.com/SPSBlog/PermaLink,guid,b1281831-9655-47f6-9366-be849b9f4598.aspx by Craig Boyd.
VFP implementation of the Cipher encryption
http://www.berezniker.com/display/VFP/VFP+implementation+of+the+Cipher+encryption
by Sergey Berezniker.
I haven't tried them myself.
I would suggest you encrypt with strong encryption such as the one offered by Craig Boyd's DLL indicated by Naomi.
The Win CryptoAPI fine but it has some issues when moving from OS (different versions) and it has been deprecated by MS. If you want to learn how to use it you can read this article: http://www.feldstein.net/CodeCryptoArticle.htm
ROT-13 is not encryption. It is so easy to break a child can do it. Do not confuse scrambling of characters with encryption.
Another way to deal with passwords when you do not need to decipher them is to use a cyrptographic hash such as MD5. This way the password caqnnot be reversed (it's one-way encryyption). You save the hash and when the user comes in you hash their password and compare with the one in storage.
EBG-13 vf ab tbbq ng uvqvat.
Yes, you can encrypt data using a digital certificate and CAPICOM. First generate a certificate for you or if you have one import it. It is generally a file with .pfx extension. The sample below encrypts a text: "Clear text to be encrypted". Store the content of sScripto in a memo field.
You can decrypt the string only if you have the digital certificate installed for the current user.
#
include capicom.hoStore=
createobject("CAPICOM.Store")oEnvelope=
createobject("CAPICOM.EnvelopedData")oStore.
Open(CAPICOM_CURRENT_USER_STORE,"My",CAPICOM_STORE_OPEN_READ_ONLY)oEnvelope.Algorithm.
Name=CAPICOM_ENCRYPTION_ALGORITHM_DESFOR each
oCert in oStore.CertificatesoEnvelope.Recipients.
Add(oCert)next
oEnvelope.Content="Clear text to be encrypted"
sCripto=oEnvelope.
EncryptsCripto
EnvelopedData =
CreateObject("CAPICOM.EnvelopedData")EnvelopedData.Decrypt(sCripto)
"Decrypted data: " + EnvelopedData.Content