Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Issues with Cipher50.fll
Message
General information
Forum:
Visual FoxPro
Category:
Third party products
Miscellaneous
Thread ID:
00934642
Message ID:
00934727
Views:
20
Duh, why didn't I think of that? Too used to VARCHAR data types I guess - Thanks!

>Tom,
>
>PADR your value to 20 chars when encrypting.
>
>HTH
>
>-Dan
>
>>thought I had it all figured out but am having troubles. Try this:
>>
>>
>>CLEAR
>>CLOSE DATABASES all
>>IF NOT ("CIPHER50"  $ UPPER(SET("Library" )))
>>   SET LIBRARY TO cipher50
>>ENDIF
>>CREATE TABLE xxx (char20 c(20), charbin20 c(20)   nocptrans)
>>lcVar = "Encrypt This"
>>lcKey = "Key123"
>>lcEncryptVar = ENCRYPT(lcVar,lcKey)
>>
>>? "lcVar = ",lcVar
>>? "lcKey = ", lcKey
>>? "lcEncryptVar = ", lcEncryptVar
>>? "Decrypt(lcEncryptVar ) = ", decrypt(lcEncryptVar , lcKey)
>>APPEND BLANK
>>REPLACE char20 WITH  lcEncryptvar, charbin20 WITH lcEncryptvar
>>? "char20 = ", char20
>>? "charbin20 = ", charbin20
>>
>>?"DECRYPT(char20,lcKey) = ", DECRYPT(char20,lcKey)
>>?"DECRYPT(charbin20,lcKey) = ", DECRYPT(charbin20,lcKey)
>>
>>
>>All works fine until I put the encrypted password into a table and want to decrypt the values. That is what it is all about. Surely someone can help...Sergey, you out there...:>)
Previous
Reply
Map
View

Click here to load this message in the networking platform