Visual FoxPro

ARC4 PRNG (Pseudo Random Number Generator)

See more Encryption Examples

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

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.

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