EncryptDate ( TheDate )

Converts a date in a pseudo activation code format

Average rating: 4.4 (30 votes) Log in to vote

Ibrahim Bittar Torres - Show more from this author
Eikonsys, S.A. de C.V.
http://www.eikonsys.com

Sample input:

EncryptDate ( 02/04/2007 )

Sample output:

2q1y7-ru6g3-s3p62-twox7-518h1-3g821

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

Let ( [ Number = GetAsText ( GetAsNumber ( TheDate ) ) ;
           Seed = "ertyuiopasdfghj1234567890klzxcvbnmqwertyui1234567890opasdfghjklzxcvbnmqwertyuiopasdf1234567890ghjklzxcvbnmqwertyuiopasdfghjklzxcvbnmqwertyuiop1234567890asdfghjklzxcvbnm1234567890wertyuiopasdfghjklzxcvbnmqwe1234567890rtyuiopa" ; 
          Word 01 = Middle ( Seed ; Random * 100 ; 1 ) & Middle ( Seed ; Random * 100 ; 1 ) & Middle ( Seed ; Random * 100 ; 1 ) & Middle ( Seed ; Random * 100 ; 1 ) ; 
          Word 02 = Middle ( Seed ; Random * 100 ; 1 ) & Middle ( Seed ; Random * 100 ; 1 ) & Middle ( Seed ; Random * 100 ; 1 ) & Middle ( Seed ; Random * 100 ; 1 ) ; 
          Word 03 = Middle ( Seed ; Random * 100 ; 1 ) & Middle ( Seed ; Random * 100 ; 1 ) & Middle ( Seed ; Random * 100 ; 1 ) & Middle ( Seed ; Random * 100 ; 1 ) ; 
          Word 04 = Middle ( Seed ; Random * 100 ; 1 ) & Middle ( Seed ; Random * 100 ; 1 ) & Middle ( Seed ; Random * 100 ; 1 ) & Middle ( Seed ; Random * 100 ; 1 ) ;
          Word 05 = Middle ( Seed ; Random * 100 ; 1 ) & Middle ( Seed ; Random * 100 ; 1 ) & Middle ( Seed ; Random * 100 ; 1 ) & Middle ( Seed ; Random * 100 ; 1 ) ;
          Word 06 = Middle ( Seed ; Random * 100 ; 1 ) & Middle ( Seed ; Random * 100 ; 1 ) & Middle ( Seed ; Random * 100 ; 1 ) & Middle ( Seed ; Random * 100 ; 1 ) ; 
          Num 01 = Middle ( Number ; 1 ; 1 ) ; 
          Num 02 = Middle ( Number ; 2 ; 1 ) ; 
          Num 03 = Middle ( Number ; 3 ; 1 ) ; 
          Num 04 = Middle ( Number ; 4 ; 1 ) ; 
          Num 05 = Middle ( Number ; 5 ; 1 ) ; 
          Num 06 = Middle ( Number ; 6 ; 1 ) ] ; 


Word 01 & Num 01 & "-" & Word 02 & Num 02 & "-" & Word 03 & Num 03 & "-" & Word 04 & Num 04 & "-" & Word 05 & Num 05 & "-" & Word 06 & Num 06 )

This simple custom function converts a date into its number equivalent, i.e.: 02/04/2007 = 732711, and creates six groups of characters separated by dashes, where the last digit is the corresponding date number and the rest are random characters or numbers.

In this example check this out:
2qly7 -> 7
ru6g3 -> 3
s3p62 -> 2
twox7 -> 7
518h1 -> 1
3g821 -> 1

This CF does not pretend to be a "security feature" but for an end user who is not a FileMaker experienced programmer it can be very hard to guess what it means, so you can use it in low risk situations.

To get the date back just take the last digit of each group and then place them in a calculation with date result.

Have fun!!!

Comments

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

EncryptDate ( TheDate )

Comments

Support this website.

Support this website.