Tcl

ARC4 PRNG (Pseudo Random Number Generator)

See more Encryption Examples

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

load ./chilkat.dll

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

set crypt [new_CkCrypt2]

# Set the encryption algorithm to ARC4:	
CkCrypt2_put_CryptAlgorithm $crypt "arc4"

# We want the encrypted output to be a hex-encoded string.
CkCrypt2_put_EncodingMode $crypt "hex"

set key "000102030405060708090A0B0C0D0E0F"
set data "12345678"

# Key length is 128 bits in this example.
CkCrypt2_put_KeyLength $crypt 128
CkCrypt2_SetEncodedKey $crypt $key "hex"

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

for {set i 0} {$i <= 15} {incr i} {
    set cipherHex [CkCrypt2_encryptStringENC $crypt $data]
    puts "$data"
    puts "$cipherHex"
    set data $cipherHex
}

delete_CkCrypt2 $crypt