Generate Psuedo-Random Data using ARC4 as a PRNG

This example demonstrates how to use the ARC4 stream encryption algorithm as a pseudo-random number generator (PRNG). This example generates the random data as hex encoded strings. The EncryptStringENC method can be replaced with EncryptBytes to generate random bytes. Note: This example uses new features available in the pre-release, or any official new version released after 17-October-2007.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

use chilkat;

$crypt = new chilkat::CkCrypt2();

$success = $crypt->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print "Crypt component unlock failed" . "\n";
    exit;
}

$crypt->put_CryptAlgorithm("arc4");
$crypt->put_KeyLength(128);

$crypt->SetEncodedKey("000102030405060708090A0B0C0D0E0F","hex");

$crypt->put_EncodingMode("hex");

#  We will repeatedly feed these 8-bytes of data to
#  the ARC4 stream encryptor to generate our pseudo-random
#  sequence.

$strData = "012345678";

#  Set FirstChunk to 1 to initialize the ARC4 PRNG with the key.
$crypt->put_FirstChunk(1);
$crypt->put_LastChunk(0);

$encryptedText = $crypt->encryptStringENC($strData);
print $encryptedText . "\r\n";

#  Set FirstChunk to 0 to continue encrypting
#  without re-initializing the ARC4 PRNG
$crypt->put_FirstChunk(0);

for ($i = 1; $i <= 16; $i++) {
    #  Repeatedly encrypting the same 8 bytes of data
    #  produces then pseudo-random sequence.
    $encryptedText = $crypt->encryptStringENC($strData);
    print $encryptedText . "\r\n";
}