(AutoIt) ARC4 PRNG (Pseudo Random Number Generator)

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

$oCrypt = ObjCreate("Chilkat.Crypt2")

; Set the encryption algorithm to ARC4:	
$oCrypt.CryptAlgorithm = "arc4"

; We want the encrypted output to be a hex-encoded string.
$oCrypt.EncodingMode = "hex"

Local $sKey = "000102030405060708090A0B0C0D0E0F"
Local $sData = "12345678"

; Key length is 128 bits in this example.
$oCrypt.KeyLength = 128
$oCrypt.SetEncodedKey $sKey,"hex"

; Generate 16 "random" 8-byte blocks, encoded as hex strings.
; This example will generate the identical output each time
; it is run.
Local $sCipherHex
Local $i
For $i = 0 To 15
    $sCipherHex = $oCrypt.EncryptStringENC($sData)
    ConsoleWrite($sData & @CRLF)
    ConsoleWrite($sCipherHex & @CRLF)
    $sData = $sCipherHex
Next