(Visual FoxPro) ARC4 PRNG (Pseudo Random Number Generator)

Uses the ARC4 stream encryption algorithm as a pseudo random number generator.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCrypt
LOCAL lcKey
LOCAL lcData
LOCAL lcCipherHex
LOCAL i

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')

* Set the encryption algorithm to ARC4:	
loCrypt.CryptAlgorithm = "arc4"

* We want the encrypted output to be a hex-encoded string.
loCrypt.EncodingMode = "hex"

lcKey = "000102030405060708090A0B0C0D0E0F"
lcData = "12345678"

* Key length is 128 bits in this example.
loCrypt.KeyLength = 128
loCrypt.SetEncodedKey(lcKey,"hex")

* Generate 16 "random" 8-byte blocks, encoded as hex strings.
* This example will generate the identical output each time
* it is run.

FOR i = 0 TO 15
    lcCipherHex = loCrypt.EncryptStringENC(lcData)
    ? lcData
    ? lcCipherHex
    lcData = lcCipherHex
NEXT

RELEASE loCrypt