Newest functions Upload a function Leave a tip My account

There are 2,577 functions in this library.

OK_Decrypt ( Text ; Key )

Decrypt data encrypted with OK_Encrypt CF

  Average rating: 4.6 (32 votes) Log in to vote

Peter Vinogradov - Show more from this author

  Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

//OK_Decrypt ( Text ; Key ) // 12-30-10 Peter Vinogradov Let ( [ Ki = If (Left ( Key ; 2 ) <>"||" ; "||1||" & Key ; Key ); i = GetValue ( Substitute ( Ki ; "||" ; ¶ ) ; 2); Key = GetValue ( Substitute ( Ki ; "||" ; ¶ ) ; 3); v = Char ( Code ( Left ( text ; 1 ) ) - Code (Middle (key ; i;1) ) ); Text = Right ( text ; Length (text)-1); i = If ( i>= Length ( key); 1 ; i+1) ] ; v & If (Length (text) ; OK_Decrypt (Text ; "||" & i & "||" & Key) ) ) Click to copy

Decrypts text encrypted with the "OK_Encrypt" CF

 

Comments

		Charles, Elberton Aug 23, 2014
Strange... the Encrypt half of the function seems identical to this even to having the Decrypt comments... Does that mean we only need one function to do both, encrypt and decrypt?

		Peter Vinogradov Aug 25, 2014
Yep, they've essentially the same function, except in the Decrypt version you subtract the key letter from the ciphertext, and in the Encrypt version you add the keyletter to the ciphertext. It's v = Char ( Code ( Left ( text ; 1 ) ) - Code (Middle (key ; i;1) ) ); versus v = Char ( Code ( Left ( text ; 1 ) ) + Code (Middle (key ; i;1) ) ); But you're right, I didn't change it in the comment text - sloppy of me. I've fixed it now.

Log in to post comments.

 

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 21 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: