(Tcl) ARC4 PRNG (Pseudo Random Number Generator)
Uses the ARC4 stream encryption algorithm as a pseudo random number generator.
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
|