Quote:
"More importantly, the additive was generated not through a keyword, but by selecting lines at random from almanacs of industrial statistics."
This program is used to create random numbers from text - in this case a page from a book.
An array rndNbrs(0,x) will create a sequential key based on the asc values of the letters in the text.
e.g. if the text was "HGHRDMNSNS" (HIGHER DIMENSIONS with vowels removed) then the sequential key would be 3248156970;
D appears alphabetically first then G ...the tenth in order is the final S.
The program removes the vowels then uses all remaining letters as being one word - in this example it
turns out to be a 903 letter word - the length of the output can be tailored to meet the quota needed.
e.g. a page selected, a line selected, a start letter on the selected line.
each random number will appear in most cases the same amount of times as other numbers 1/10th of the total letters used.
to make the output more secure pass it through tableaus for columnar transpositions or as in this case shuffle the array.
Code: Select all
'sample text used to demonstrate idea...
dim as string Quote(1 to 26)={"The view of a three-dimensional body as a section of a four-dimensional",_
"one leads us to the thought that many three-dimensional bodies, which appear",_
"separate for us, may be sections or parts of one four-dimensional body",_
" A simple example will illustrate this idea. If we imagine a horizontal plane",_
"intersecting the top of a tree in a direction parallel to the earth, then on this",_
"plane the sections of the branches will appear separate and quite unconnected",_
"with one another. And yet in our space, from our point of view, these are",_
"sections of the branches of one tree, together forming one top, fed by one",_
"common root and casting one shadow.",_
" Or again, another interesting example illustrating the same idea is",_
"given by the theosophical writer, C. W. Leadbeater, in one of his books. If we",_
"touch the surface of a table with our five fingertips of one hand, there will be",_
"then on the surface of the table only five circles, and on this surface it is",_
"impossible to have any idea either of the hand or of the man to whom the",_
"hand belongs. There will be five separate circles on the table's surface. How",_
"from these, is it possible to picture a man, with all the richness of his physical",_
"and psychological life? It is impossible. Our relation to the four-dimensional",_
"world may be exactly the same as the relationship between that consciousness",_
"which sees the five circles on the table and the man. We see only 'fingertips';",_
"that is why the fourth dimension is incomprehensible for us.",_
" In addition, we know that it is possible to draw an image of a three",_
"dimensional body on a plane, that it is possible to draw a cube, a polyhedron,",_
"or a sphere. But it will not be a real cube or a real sphere, but only the",_
"projection of a cube or a sphere on a plane. So it may be that we are justified",_
"in thinking that the three-dimensional bodies we see in our space are images,",_
"so to speak, of four-dimensional bodies, incomprehensible for us."}
dim as byte tally(0 to 9),ascNbr,a,lines
dim shared as byte rndNbrs(0 to 1,1 to 910),digit5
dim shared as long count,rndCount,rndElement,aa
dim shared as string L,last5
Declare sub sortLow(rndNbrs()as byte)
Declare sub shuffle(rndNbrs() as byte)
for lines= 1 to 26
FOR aa = 1 TO LEN(Quote(lines))
ascNbr = ASC(ucase(MID(Quote(lines), aa, 1)))
IF ascNbr > 64 AND ascNbr < 91 THEN
'remove vowels
IF ascNbr <> 65 AND ascNbr <> 69 AND ascNbr <> 73 AND ascNbr <> 79 AND ascNbr <> 85 THEN
count += 1
rndNbrs(0, count) = count MOD 10 'row to hold random nbrs
rndNbrs(1, count) = ASC(MID(Quote(lines), aa, 1))'row to hold asc values
END IF
END IF
NEXT aa
next lines
PRINT "total letters to use= "; count
'sort by asc values low to high
sortLow(rndNbrs())
sleep
rndCount = count
shuffle(rndNbrs())
FOR aa = 1 TO rndCount
tally(rndNbrs(0,aa)) +=1
PRINT rndNbrs(0, aa);
if aa mod 500=0 then sleep '10 line of 50
IF aa MOD 5 = 0 THEN PRINT ; " "; ' make groups of 5 digits
IF aa MOD 50 = 0 THEN PRINT 'make line of 10 5 digit groups
NEXT aa
print
PRINT "fallout of random numbers:"
FOR a = 0 TO 9
PRINT a; "="; tally(a); " "
NEXT a
sleep
END
'**********************************************
sub shuffle(rndNbrs() as byte)
'**********************************************
dim As ULongInt rndSeed,newSeed
rndSeed = TIMER
rndSeed =rndSeed^3 '18+ digit seed
PRINT "rnd nbr seed= "; rndSeed
' FisherYates shuffle
RANDOMIZE rndSeed
WHILE count
rndElement = INT(RND * count) + 1
SWAP rndNbrs(0, rndElement), rndNbrs(0, count)
count = count - 1
'use last 5 digits as rnd seed
digit5 = digit5 + 1
last5 = last5 + STR(rndNbrs(0, rndElement))
IF digit5 = 5 THEN 'new seed every 5 digits
newSeed = VAL(last5) ^ 3
'PRINT "newSeed= "; newSeed;
last5 = ""
digit5 = 0
RANDOMIZE newSeed
END IF
WEND
end sub
'**********************************************
sub sortLow(rndNbrs()as byte)
'**********************************************
dim as byte Flips
dim as long ki
Flips = 1
WHILE Flips
Flips = 0
FOR ki = 1 TO count - 1
REM sort asc value low to high
IF rndNbrs(1, ki + 1) < rndNbrs(1, ki) THEN
SWAP rndNbrs(0, ki + 1), rndNbrs(0, ki)
SWAP rndNbrs(1, ki + 1), rndNbrs(1, ki)
Flips = 1
END IF
NEXT ki
WEND
end sub