Нужны рекомендации, чтобы исправить ошибки распознавания в листинге из книги:
DEFINT I-N: DEFSTR S
CLS : RANDOMIZE 231
DIM s(4, 32) AS STRING * 1
ns = 4
ss = "ААААААААААААААААААААААААААААА"
PRINT ss
'-----------ШИФРОВАНИЕ
x = RND(-231)
FOR i=0 TO ns
FOR j=0 TO 32:set(i,j) = CHR$(j):NEXT
FOR j=0 TO 32:SWAP s(i,j),s(i,32*RND):
NEXT
NEXT
s=""
FOR i = 1 TO LEN(ss) 'шифрование символа
k=ASC (MID$ (ss ,i ,1)): IF k>32 THEN k=k-128
FOR j = 0 TO ns:k=ASC(set(j, k)):NEXT
IF k < 32 THEN k = k+ 128
PRINT CHR$ (k); : s = s + CHR$ (k)
k = ns * RND 'поворот колес
FOR j=0 TO 31:SWAP s(k,j),s(k,j+1):NEXT
FOR j=0 TO 32
s(k,j)=CHR$((ASC(set(k, j)) + 32) MOD 33)
NEXT
NEXT
PRINT
'----------РАСШИФРОВЫВАНИЕ
x = RND(-231)
FOR i=0 TO ns
FOR j=0 TO 32:s(i,j)=CHR$(j):NEXT
FOR j=0 TO 32:SWAP s(i,j),s(i,32*RND):NEXT
FOR j=0 TO 32
IF ASC (set (i, j)) < 64 THEN
m =j:n=ASC(s(i, j))
DO
k=ASC(s(i,n)):s(i,n)=CHR$(m OR 64)
m=n: n=k
LOOP UNTIL m = j
END IF
NEXT j
FOR j=0 TO 32
s(i,j)=CHR$(ASC(s(i,j)) AND 63)
NEXT
NEXT i
ss = s
FOR i = 1 TO LEN(ss)
k=ASC(MID$(ss,i ,1)): IF k>32 THEN k=k-128
FOR j=ns TO 0 STEP -1
k=ASC(s(j,k))
NEXT
IF k<32 THEN k=k+128
PRINT CHR$ (k) ;
k = ns * RND 'поворот колес
FOR j = 0 TO 31: SWAP s(k,j),s(k,j+1):NEXT
FOR j = 0 TO 32
s(k,j)=CHR$((ASC(s(k,j))+32) MOD 33)
NEXT
NEXT i
END
Конкретнее: не совсем понятно, что делять с ошибками "Array access, index expected" и с "Array not dimensioned" в строках с s, ss, set
Сообщения транслятора:
a.bas(11) ERROR 71: Array NOT dimensioned, before '('
FOR j=0 TO 32:set(i,j) = CHR$(j):NEXT
^
a.bas(15) ERROR 72: Array ACCESS, index expected, before '='
s=""
^
a.bas(18) ERROR 71: Array NOT dimensioned, before '('
FOR j = 0 TO ns:k=ASC(set(j, k)):NEXT
^
a.bas(20) ERROR 72: Array ACCESS, index expected, before '='
PRINT CHR$ (k); : s = s + CHR$ (k)
^
a.bas(24) ERROR 71: Array NOT dimensioned, before '('
s(k,j)=CHR$((ASC(set(k, j)) + 32) MOD 33)
^
a.bas(34) ERROR 71: Array NOT dimensioned, before '('
IF ASC (set (i, j)) < 64 THEN
^
a.bas(46) ERROR 72: Array ACCESS, index expected
ss = s
^
К сожалению, ни исходной книги, ни сканированного варианта нигде нет.
Простой
