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 April 1, 2025, 11:18 pm This article has been viewed/printed 35276 times. |