Example from crafted pseudorandom output.

[Azul]

This command uses a pseudorandom number generator which is very fast and produces randomly looking output..

Code: Select all

Define string.s
Define temp.s

string = "iUhJypOdEbiOkTqmnPkDokIjYgDsKyOzxvtRfgjrigUguygiuYguyguYDdeeQuoonbhjJazsEzeZtretrERfyutiuygUygD"
string + "rsWBoiIUuigIUGTYDtcoinuOIoinuTfyttectytrciUyrctrecYTretreCtIuTTeiuBIuyIuyboiuybPOIUOiunOIybuytv"
string + "TRCYtYTvuytvuytUyRCExTerytvrUIytytviUTcrYTectretrxeRcytrcYtrcyTrCrWzxXxtrEcyTrvUytbUIybuiybiuyb"
string + "iutvcEEWrextrXrexctrvgunhiuoniuybviliUYTuytvuyTvuYTUVyrytexCTvbyuinopUIVtcytrCytrctyrvbiuonyioU"
string + "YVYRCtycrvbuyiuBYiuysiouOiuoIuviuvUytvuitycuytcTYercYtrvbuyiutyctrextreXTrcvtyrVytrcYtrCtyrcytc"
string + "rtycrYtrCYTrctyRcYTrxeEwxtrectyrcyTr"

RandomSeed(512)

For a=1 To 9
  temp+Mid(string,Random(512),1)
Next

Debug temp

"String" is not so random since I created it manually but hiding long strings into huge RandomData() dump is one way to hide text. Got idea from quite old trick to search words from common book to solve secret message.

[Demivec]

Neat idea.

Here's a simple variation of my own:

Code: Select all

Define.s msg = "YvpmGbfye", temp
RandomSeed(512)

For a = 1 To Len(msg)
  temp + Chr(Asc(Mid(msg, a, 1)) ! Random(26))
Next

Debug temp

[Rook Zimbabwe]

from the PB 4.51 docs:
NOT MY CODE

Code: Select all

  *Key = AllocateMemory(16)    If OpenCryptRandom() And *Key
    CryptRandomData(*Key, 16)        Text$ = "Generated Key:"    For i = 0 To 15
      Text$ + " " + RSet(Hex(PeekB(*Key+i), #PB_Byte), 2, "0")    Next i     
        CloseCryptRandom()  Else    Text$ = "Key generation is not available"
  EndIf    MessageRequester("Example", Text$)

Don't forget about CryptRandom() and CryptRandomData()