CRYPTO

FILE INFORMATION

FILENAME(S): CRYPTO

FILE TYPE(S): PRG

FILE SIZE: 1.5K

FIRST SEEN: 2025-11-30 01:08:06

APPEARS ON: 1 disk(s)

FILE HASH

426476e0e28d7f4b3200dd70487bb7f63d6172a745a1db829662e5072e20fad8

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
FREESOFT DISK NR	CRYPTO	PRG	Treasure Chest - Wolfgang Rauprich	32	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 04 29 04 C8 00 99 22  11 43 52 59 50 54 4F 47  |..)....".CRYPTOG|
00000010: 52 41 4D 20 41 49 44 20  20 20 20 4A 20 42 55 54  |RAM AID    J BUT|
00000020: 54 45 52 46 49 45 4C 44  22 00 54 04 DC 00 85 22  |TERFIELD".T...."|
00000030: 11 57 41 4E 54 20 49 4E  53 54 52 55 43 54 49 4F  |.WANT INSTRUCTIO|
00000040: 4E 53 22 3B 5A 24 3A 8B  C6 28 5A 24 29 B2 37 38  |NS";Z$:..(Z$).78|
00000050: 89 33 30 30 00 83 04 E6  00 99 22 11 54 48 49 53  |.300......".THIS|
00000060: 20 50 52 4F 47 52 41 4D  20 48 45 4C 50 53 20 59  | PROGRAM HELPS Y|
00000070: 4F 55 20 54 4F 20 53 4F  4C 56 45 20 53 49 4D 50  |OU TO SOLVE SIMP|
00000080: 4C 45 22 00 A4 04 F0 00  99 22 53 55 42 53 54 49  |LE"......"SUBSTI|
00000090: 54 55 54 49 4F 4E 20 43  52 59 50 54 4F 47 52 41  |TUTION CRYPTOGRA|
000000A0: 4D 53 2E 22 00 D0 04 FA  00 99 22 49 54 20 44 4F  |MS."......"IT DO|
000000B0: 45 53 20 54 48 49 53 20  42 59 20 47 49 56 49 4E  |ES THIS BY GIVIN|
000000C0: 47 20 59 4F 55 20 46 52  45 51 55 45 4E 43 59 22  |G YOU FREQUENCY"|
000000D0: 00 FD 04 04 01 99 22 43  4F 55 4E 54 53 20 4F 46  |......"COUNTS OF|
000000E0: 20 4C 45 54 54 45 52 53  2C 20 44 4F 55 42 4C 45  | LETTERS, DOUBLE|
000000F0: 53 2C 20 41 4E 44 20 53  54 41 52 54 22 00 4A 05  |S, AND START".J.|
00000100: 0E 01 99 22 41 4E 44 20  46 49 4E 49 53 48 20 4C  |..."AND FINISH L|
00000110: 45 54 54 45 52 53 20 2D  20 41 4E 44 20 54 48 45  |ETTERS - AND THE|
00000120: 4E 20 42 59 20 4C 45 54  54 49 4E 47 59 4F 55 20  |N BY LETTINGYOU |
00000130: 54 52 59 20 4C 45 54 54  45 52 20 53 55 42 53 54  |TRY LETTER SUBST|
00000140: 49 54 55 54 49 4F 4E 53  2E 22 00 71 05 18 01 99  |ITUTIONS.".q....|
00000150: 22 11 49 54 27 53 20 46  41 49 52 4C 59 20 53 45  |".IT'S FAIRLY SE|
00000160: 4C 46 2D 45 58 50 4C 41  4E 41 54 4F 52 59 2E 11  |LF-EXPLANATORY..|
00000170: 22 00 91 05 2C 01 86 43  28 32 35 2C 33 29 2C 4C  |"...,..C(25,3),L|
00000180: 24 28 31 30 29 2C 4E 24  28 33 29 2C 54 28 32 35  |$(10),N$(3),T(25|
00000190: 29 00 B2 05 36 01 83 20  54 4F 54 41 4C 53 2C 44  |)...6.. TOTALS,D|
000001A0: 4F 55 42 4C 45 53 2C 53  54 41 52 54 53 2C 45 4E  |OUBLES,STARTS,EN|
000001B0: 44 53 00 C7 05 40 01 81  4A B2 30 A4 33 3A 87 4E  |DS...@..J.0.3:.N|
000001C0: 24 28 4A 29 3A 82 4A 00  F2 05 4A 01 99 22 45 4E  |$(J):.J...J.."EN|
000001D0: 54 45 52 20 43 52 59 50  54 4F 20 4C 49 4E 45 53  |TER CRYPTO LINES|
000001E0: 2D 2D 45 4E 44 20 57 49  54 48 20 24 20 53 49 47  |--END WITH $ SIG|
000001F0: 4E 22 00 FE 05 54 01 81  4E B2 30 A4 31 30 00 0A  |N"...T..N.0.10..|
00000200: 06 5E 01 85 20 4C 24 28  4E 29 00 23 06 68 01 8B  |.^.. L$(N).#.h..|
00000210: 20 C9 28 4C 24 28 4E 29  2C 31 29 B3 B1 22 24 22  | .(L$(N),1).."$"|
00000220: A7 82 4E 00 4C 06 72 01  81 4A B2 30 A4 32 35 3A  |..N.L.r..J.0.25:|
00000230: 54 28 4A 29 B2 AB 32 3A  81 4B B2 30 A4 33 3A 43  |T(J)..2:.K.0.3:C|
00000240: 28 4A 2C 4B 29 B2 30 3A  82 4B 2C 4A 00 71 06 90  |(J,K).0:.K,J.q..|
00000250: 01 81 4A B2 30 A4 4E 3A  5A 31 B2 AB 31 3A 4A 24  |..J.0.N:Z1..1:J$|
00000260: B2 4C 24 28 4A 29 3A 81  4B B2 31 A4 C3 28 4A 24  |.L$(J):.K.1..(J$|
00000270: 29 00 8D 06 9A 01 5A B2  C6 28 CA 28 4A 24 2C 4B  |).....Z..(.(J$,K|
00000280: 2C 31 29 29 AB 36 35 3A  5A 32 B2 AB 31 00 A3 06  |,1)).65:Z2..1...|
00000290: A4 01 8B 5A B1 B2 30 AF  5A B3 B2 32 35 A7 8D 31  |...Z..0.Z..25..1|
000002A0: 30 30 30 00 C7 06 AE 01  8B 5A 32 B2 AB 31 AF 5A  |000......Z2..1.Z|
000002B0: 31 B3 B1 AB 31 A7 43 28  5A 31 2C 33 29 B2 43 28  |1...1.C(Z1,3).C(|
000002C0: 5A 31 2C 33 29 AA 31 00  D1 06 B8 01 5A 31 B2 5A  |Z1,3).1.....Z1.Z|
000002D0: 32 00 F2 06 C2 01 82 4B  3A 8B 5A 31 B3 B1 AB 31  |2......K:.Z1...1|
000002E0: A7 43 28 5A 31 2C 33 29  B2 43 28 5A 31 2C 33 29  |.C(Z1,3).C(Z1,3)|
000002F0: AA 31 00 F9 06 CC 01 82  4A 00 12 07 D6 01 99 22  |.1......J......"|
00000300: 46 52 45 51 55 45 4E 43  59 20 43 4F 55 4E 54 53  |FREQUENCY COUNTS|
00000310: 3A 22 00 33 07 E0 01 81  59 B2 30 A4 33 3A 99 22  |:".3....Y.0.3:."|
00000320: 12 22 3B 4E 24 28 59 29  3B 22 92 22 3B 3A 4C B2  |.";N$(Y);".";:L.|
00000330: 31 45 36 00 4C 07 EA 01  81 20 4A B2 30 A4 32 35  |1E6.L.... J.0.25|
00000340: 3A 48 B2 30 3A 81 4B B2  31 A4 32 35 00 6C 07 F4  |:H.0:.K.1.25.l..|
00000350: 01 8B 43 28 4B 2C 59 29  B3 4C AF 43 28 4B 2C 59  |..C(K,Y).L.C(K,Y|
00000360: 29 B1 48 A7 48 B2 43 28  4B 2C 59 29 00 87 07 08  |).H.H.C(K,Y)....|
00000370: 02 82 20 4B 3A 8B 48 B3  B1 30 A7 8D 31 31 30 30  |.. K:.H..0..1100|
00000380: 3A 4C B2 48 3A 82 4A 00  90 07 12 02 99 3A 82 59  |:L.H:.J......:.Y|
00000390: 00 B4 07 1C 02 99 22 45  4E 54 45 52 20 4C 45 54  |......"ENTER LET|
000003A0: 54 45 52 20 54 4F 20 53  55 42 53 54 49 54 55 54  |TER TO SUBSTITUT|
000003B0: 45 2E 2E 22 00 D7 07 26  02 99 22 20 2E 2E 4F 52  |E.."...&.." ..OR|
000003C0: 20 48 49 54 20 31 20 46  4F 52 20 46 52 45 51 55  | HIT 1 FOR FREQU|
000003D0: 45 4E 43 49 45 53 22 00  EA 07 30 02 A1 5A 24 3A  |ENCIES"...0..Z$:|
000003E0: 8B 5A 24 B2 22 22 89 35  36 30 00 04 08 3A 02 5A  |.Z$."".560...:.Z|
000003F0: B2 C6 28 5A 24 29 AB 36  35 3A 8B 5A B2 AB 31 36  |..(Z$).65:.Z..16|
00000400: 89 34 37 30 00 13 08 44  02 8B 5A B2 AB 31 37 89  |.470...D..Z..17.|
00000410: 36 35 30 00 25 08 4E 02  8B 5A B3 30 B0 5A B1 32  |650.%.N..Z.0.Z.2|
00000420: 35 89 35 34 30 00 32 08  58 02 99 5A 24 3B 22 3D  |5.540.2.X..Z$;"=|
00000430: 3F 22 00 45 08 62 02 A1  5A 24 3A 8B 5A 24 B2 22  |?".E.b..Z$:.Z$."|
00000440: 22 89 36 31 30 00 67 08  6C 02 5A 31 B2 C6 28 5A  |".610.g.l.Z1..(Z|
00000450: 24 29 AB 36 35 3A 8B 5A  31 B3 30 B0 5A 31 B1 32  |$).65:.Z1.0.Z1.2|
00000460: 35 A7 5A 31 B2 AB 32 00  7D 08 76 02 45 B2 30 3A  |5.Z1..2.}.v.E.0:|
00000470: 8B 5A 31 B3 B1 AB 32 A7  8D 31 30 35 30 00 8E 08  |.Z1...2..1050...|
00000480: 80 02 8B 45 B2 30 A7 54  28 5A 29 B2 5A 31 00 9B  |...E.0.T(Z).Z1..|
00000490: 08 8A 02 8B 45 B2 31 89  35 34 30 00 BD 08 94 02  |....E.1.540.....|
000004A0: 99 22 93 22 3B 3A 81 4A  B2 30 A4 4E 3A 4A 24 B2  |.".";:.J.0.N:J$.|
000004B0: 4C 24 28 4A 29 3A 99 22  12 22 3B 4A 24 00 DE 08  |L$(J):.".";J$...|
000004C0: 9E 02 81 4B B2 31 A4 C3  28 4A 24 29 3A 5A B2 C6  |...K.1..(J$):Z..|
000004D0: 28 CA 28 4A 24 2C 4B 2C  31 29 29 AB 36 35 00 FB  |(.(J$,K,1)).65..|
000004E0: 08 A8 02 5A 31 B2 5A 3A  8B 5A B1 B2 30 AF 5A B3  |...Z1.Z:.Z..0.Z.|
000004F0: B2 32 35 A7 5A 31 B2 54  28 5A 29 00 12 09 B2 02  |.25.Z1.T(Z).....|
00000500: 99 C7 28 5A 31 AA 36 35  29 3B 3A 82 4B 3A 99 3A  |..(Z1.65);:.K:.:|
00000510: 82 4A 00 1B 09 BC 02 89  35 34 30 00 2F 09 E8 03  |.J......540./...|
00000520: 43 28 5A 2C 30 29 B2 43  28 5A 2C 30 29 AA 31 00  |C(Z,0).C(Z,0).1.|
00000530: 49 09 F2 03 8B 5A 31 B2  5A A7 43 28 5A 2C 31 29  |I....Z1.Z.C(Z,1)|
00000540: B2 43 28 5A 2C 31 29 AA  31 00 64 09 FC 03 8B 5A  |.C(Z,1).1.d....Z|
00000550: 31 B2 AB 31 A7 43 28 5A  2C 32 29 B2 43 28 5A 2C  |1..1.C(Z,2).C(Z,|
00000560: 32 29 AA 31 00 6F 09 06  04 5A 32 B2 5A 3A 8E 00  |2).1.o...Z2.Z:..|
00000570: A4 09 1A 04 81 4A B2 30  A4 32 35 3A 8B 5A 31 B2  |.....J.0.25:.Z1.|
00000580: 54 28 4A 29 A7 99 22 3F  3F 42 55 54 20 22 3B C7  |T(J).."??BUT ";.|
00000590: 28 4A AA 36 35 29 3B 22  20 49 53 20 22 3B 5A 24  |(J.65);" IS ";Z$|
000005A0: 3A 45 B2 31 00 AD 09 24  04 82 4A 3A 8E 00 D5 09  |:E.1...$..J:....|
000005B0: 4C 04 99 22 2F 22 3B 48  3B 3A 81 4B B2 30 A4 32  |L.."/";H;:.K.0.2|
000005C0: 35 3A 8B 43 28 4B 2C 59  29 B2 48 A7 99 C7 28 4B  |5:.C(K,Y).H...(K|
000005D0: AA 36 35 29 3B 00 DE 09  56 04 82 4B 3A 8E 00 00  |.65);...V..K:...|
000005E0: 00 0A                                             |..              |

..).H..".CRYPTOGRAM AID    J BUTTERFIELD
".T....".WANT INSTRUCTIONS";Z$:.F(Z$).78
.300......".THIS PROGRAM HELPS YOU TO SO
LVE SIMPLE"......"SUBSTITUTION CRYPTOGRA
MS.".P...."IT DOES THIS BY GIVING YOU FR
EQUENCY"......"COUNTS OF LETTERS, DOUBLE
S, AND START".J...."AND FINISH LETTERS -
 AND THEN BY LETTINGYOU TRY LETTER SUBST
ITUTIONS.".Q....".IT'S FAIRLY SELF-EXPLA
NATORY.."...,..C(25,3),L$(10),N$(3),T(25
)...6.. TOTALS,DOUBLES,STARTS,ENDS.G.@..
J.0.3:.N$(J):.J...J.."ENTER CRYPTO LINES
--END WITH $ SIGN"...T..N.0.10...^.. L$(
N).#.H.. I(L$(N),1).."$"..N.L.R..J.0.25:
T(J)..2:.K.0.3:C(J,K).0:.K,J.Q....J.0.N:
Z1..1:J$.L$(J):.K.1.C(J$).....Z.F(J(J$,K
,1)).65:Z2..1......Z..0.Z..25..1000.G...
.Z2..1.Z1...1.C(Z1,3).C(Z1,3).1.Q...Z1.Z
2...B..K:.Z1...1.C(Z1,3).C(Z1,3).1...L..
J...V.."FREQUENCY COUNTS:".3....Y.0.3:."
.";N$(Y);".";:L.1E6.L.... J.0.25:H.0:.K.
1.25.L....C(K,Y).L.C(K,Y).H.H.C(K,Y)....
.. K:.H..0..1100:L.H:.J......:.Y......"E
NTER LETTER TO SUBSTITUTE..".W.&.." ..OR
 HIT 1 FOR FREQUENCIES"...0..Z$:.Z$."".5
60...:.Z.F(Z$).65:.Z..16.470...D..Z..17.
650.%.N..Z.0.Z.25.540.2.X..Z$;"=?".E.B..
Z$:.Z$."".610.G.L.Z1.F(Z$).65:.Z1.0.Z1.2
5.Z1..2.}.V.E.0:.Z1...2..1050......E.0.T
(Z).Z1......E.1.540......".";:.J.0.N:J$.
L$(J):.".";J$......K.1.C(J$):Z.F(J(J$,K,
1)).65.....Z1.Z:.Z..0.Z..25.Z1.T(Z).....
.G(Z1.65);:.K:.:.J......540./...C(Z,0).C
(Z,0).1.I....Z1.Z.C(Z,1).C(Z,1).1.D....Z
1..1.C(Z,2).C(Z,2).1.O...Z2.Z:.......J.0
.25:.Z1.T(J).."??BUT ";G(J.65);" IS ";Z$
:E.1...$..J:..U.L.."/";H;:.K.0.25:.C(K,Y
).H..G(K.65);...V..K:.....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL