(PowerBuilder) 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

integer li_rc
oleobject loo_Crypt
string ls_Key
string ls_Data
string ls_CipherHex
integer i

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

loo_Crypt = create oleobject
// Use "Chilkat_9_5_0.Crypt2" for versions of Chilkat < 10.0.0
li_rc = loo_Crypt.ConnectToNewObject("Chilkat.Crypt2")
if li_rc < 0 then
    destroy loo_Crypt
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Set the encryption algorithm to ARC4:	
loo_Crypt.CryptAlgorithm = "arc4"

// We want the encrypted output to be a hex-encoded string.
loo_Crypt.EncodingMode = "hex"

ls_Key = "000102030405060708090A0B0C0D0E0F"
ls_Data = "12345678"

// Key length is 128 bits in this example.
loo_Crypt.KeyLength = 128
loo_Crypt.SetEncodedKey(ls_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 to 15
    ls_CipherHex = loo_Crypt.EncryptStringENC(ls_Data)
    Write-Debug ls_Data
    Write-Debug ls_CipherHex
    ls_Data = ls_CipherHex
next


destroy loo_Crypt