Perl

ARC4 PRNG (Pseudo Random Number Generator)

See more Encryption Examples

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

use chilkat();

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

$crypt = chilkat::CkCrypt2->new();

# Set the encryption algorithm to ARC4:	
$crypt->put_CryptAlgorithm("arc4");

# We want the encrypted output to be a hex-encoded string.
$crypt->put_EncodingMode("hex");

$key = "000102030405060708090A0B0C0D0E0F";
$data = "12345678";

# Key length is 128 bits in this example.
$crypt->put_KeyLength(128);
$crypt->SetEncodedKey($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 ($i = 0; $i <= 15; $i++) {
    $cipherHex = $crypt->encryptStringENC($data);
    print $data . "\r\n";
    print $cipherHex . "\r\n";
    $data = $cipherHex;
}