1: Key$ = STRING$(256, " ") 2: ss2 = 1 3: DO UNTIL q = 255 4: RANDOMIZE TIMER 5: ss1 = INT(RND * 256) 6: IF INSTR(Key$, CHR$(ss1)) = 0 THEN MID$(Key$, ss2, 1) = CHR$(ss1): q = q + 1: ss2 = ss2 + 1 7: LOOP 8: OPEN "KEY.TXT" FOR OUTPUT AS #1: PRINT #1, Key$; : CLOSE 1 9: LINE INPUT "Text>", t$ 10: FOR q = 1 TO LEN(t$) 11: o$ = o$ + MID$(Key$, ASC(MID$(t$, q, 1)), 1) 12: NEXT q 13: OPEN "OUT.TXT" FOR OUTPUT AS #1: PRINT #1, o$; : CLOSE 1 14: |