test encryption

[Richard Kreiss]

Following Mark's suggestion partly, I came up with this solution:

──────────────────────────────────────────────────────────────────────────────
 7  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If:
      Then: sl(2,.0)=strtok(4,"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$%^&*()_+=[]{}\|/?,.<>~`","1")
 8  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If: sl ge "1"	'this is an encrypted value
      Then: GOTO doit
 9  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If:
      Then: sl="1";val="0"
10  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
Loop_it◄ If: mid(4,sl,"1") = val and sl lt "17"
      Then: sl=sl+"1";GOTO loop_it
11  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If: mid(4,sl,"1") ne val	'not a number encrypted value
      Then: GOTO doit
12  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If: val lt "9"
      Then: sl="1";val=val+"1";GOTO loop_it

Strtok tests for all of the possible keyboard characters except numbers.  If any of these characters are present, got decryption routine.

The next section will test for a number in each position.  If it is a number, the value is incremented and the pointer is moved one character right.   And the test continues.

Yes, I know that there is no assurance that the encrypted value can't be all numbers.  I am using AES encryption for this and have scanned through over 8,000 records in the file and have found none which is all numbers.  In some cases a number or numbers are scattered throughout the encryption value.  I have yet to see 2 consecutive numbers.

Now, if I was encrypting a million records, who knows.....

Richard