MediaWiki:Sitenotice:
2025-12-29: I have restored the wiki to a backup from the end of November. Starting in September 2025, accesses went form the 800MB-1.2GB range per month to 26GB in September, 42GB in October, and 70GB in November with most accesses originating from China. As soon as I realized what was causing all the access problems in November, I shut it down (it had reached 36GB by then) behind a password/login screen. The database had gotten corrupted, and I tried a restore from just before the spike in access but that didn't work. Thus, end of November. I still have the other daily backups so if there were any important additions in December, let me know and maybe they can be recovered. - Allen H.
CRYPTO
100 CLEAR 500: DIM T$(36,2) 110 DATA A,B,C,D,E,F,G,H,I ,J,K,L,M,N,O,P,Q,R,S 120 DATA T,U,V,W,X,Y,Z,0, 1,2,3,4,5,6,7,8,9 130 FOR I=1 TO 36: READ T$(I,1): NEXT I 140 CLS: PRINT@10,"CRYPTOGRAPHY" 150 PRINT@64,"SELECT ONE OF THE FOLLOWING:" 160 PRINT@96,"1. DECODE (CHANGE CODE TO" 170 PRINT@131,"ENGLISH) BY TABLE" 180 PRINT@160,"2. ENCODE (CHANGE ENGLISH TO" 190 PRINT@195,"CODE) BY TABLE" 200 PRINT@224,"WHICH ONE";: INPUT A$ 210 IF A$="1" OR A$="2" THEN 250 220 PRINT@448,"INVALID SELECTION--TRY AGAIN" 230 FOR I=1 TO 300: NEXT I 240 PRINT@234,"": GOTO200 230 IF A$="1" THEN P$="CODE-TO-ENGLISH" 260 IF A$="2" THEN P$="ENGLISH-TO-CODE" 270 CLS: PRINT@8,P$ 280 PRINT@64,"ENTER TABLE:" 290 FOR I=1 TO 36 300 IF I=1 THEN PP=98 310 IF I=27 THEN PP=194 320 PRINT@PP,T$(I,1); 330 PP=PP+1: NEXT I 340 FOR I=1 TO 36 350 IF I=1 THEN PP=129: B$="": C$="" 360 IF I=27 THEN PP=225: C$="" 370 IF B$=CHR$(13) THEN T$(I,2)=T$(I,1): GOTO450 380 PRINT@PP,"";: B$=INKEY$ 390 IF B$="" THEN 380 400 IF B$=CHR$(13) THEN 370 410 C$=C$+B$: PRINT@PP+2-LEN(C$),C$ 420 IF B$=CHR$(32) THEN T$(I,2)=T$(I,1): GOTO440 430 T$(I,2)=B$ 440 PP=PP+1 450 NEXT I 460 IF A$="1" THEN A1=2: A2=1 470 IF A$="2" THEN A1=1: A2=2 480 CLS: PRINT@0,"ENTER TEXT TO BE TRANSLATED:" 490 PRINT@33,"(PRESS <ENTER> TO END)" 500 PL=32 510 IF PL<384 THEN PL=PL+64: GOTO550 520 PRINT@480,"PRESS ANY KEY TO CONTINUE";: B$=INKEY$ 530 IF B$="" THEN 520 540 CLS: PL=0 550 PP=0: C$="" 560 PRINT@PL+PP,"";: B$=INKEY$ 570 IF B$="" THEN 560 580 IF B$=CHR$(13) THEN GOSUB700: GOTO620 590 C$C$+BS: PRINT@PL+PP+2-LEN(C$),C$ 600 IFLEN(C$)>29 THEN GOSUB700: GOTO510 610 PP=PP+1: GOTO560 620 PRINT@448,"PRESS N FOR NEW TABLE," 630 PRINT@480,"1 FOR DECODE, OR 2 FOR ENCODE";: A$=INKEY$ 640 IF A$="" THEN 630 650 IF A$="N" THEN 140 660 IF A$="1" OR A$="V' THEN 460 670 IF A$="1" OR A$="2" THEN 460 680 GOTO630 690 REM - PRINT TRANSLATED TEXT 700 L=LEN(C$): IF L<2 THEN 810 710 SOUND 125,3 720 PL=PL+32: PP=0: D$="" 730 FOR I=1 TO L 740 J=0: B$=MID$(C$,I,1) 750 IF J<36 THEN J=J+1: GOTO770 760 B$="*": GOTO790 770 IF B$=T$(J,A1) THEN B$=T$(J,A2): GOTO790 780 GOTO750 790 D$=D$+B$: PRINT@PL+PP+2-LEN(D$),D$ 800 PP=PP+1: NEXT I 810 RETURN