PureBasic

ARC4 PRNG (Pseudo Random Number Generator)

See more Encryption Examples

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

IncludeFile "CkCrypt2.pb"

Procedure ChilkatExample()

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

    crypt.i = CkCrypt2::ckCreate()
    If crypt.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Set the encryption algorithm to ARC4:	
    CkCrypt2::setCkCryptAlgorithm(crypt, "arc4")

    ; We want the encrypted output to be a hex-encoded string.
    CkCrypt2::setCkEncodingMode(crypt, "hex")

    key.s = "000102030405060708090A0B0C0D0E0F"
    data.s = "12345678"

    ; Key length is 128 bits in this example.
    CkCrypt2::setCkKeyLength(crypt, 128)
    CkCrypt2::ckSetEncodedKey(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.
    cipherHex.s
    i.i
    For i = 0 To 15
        cipherHex = CkCrypt2::ckEncryptStringENC(crypt,data)
        Debug data
        Debug cipherHex
        data = cipherHex
    Next


    CkCrypt2::ckDispose(crypt)


    ProcedureReturn
EndProcedure