`
Par2: Encryption 1998-02-10 -- Jerry Ray The following code should do it. The same code will encrypt and decrypt the string provided the key value is the same both times. KeyValue = 1000 ! This will vary Field = 'Example Text to Encrypt' LOOP Count = 1 TO LEN(Field) X = BXOR(Val(Field[Count]), KeyValue) Field[Count] = CHR(X) END Printed May 4, 2024, 1:59 am This article has been viewed/printed 35115 times. |