(In reply to
re: Plenty of answers (?) by Gamer)
Choose one pair of letters from column A, one from column B, etc. and put them together:
bc ae ae ad as
cb bf bf bg bp
de cg cg cf cq
ed ea ea da dv
fg fb fb fc ew
gf gc gc gb ft
hi hl hl hm gu
ih im im il hz
jk jn jn jo jx
kj ko ko kn ky
lm lh lh li pb
ml mi mi mh qc
no nj nj nk sa
on ok ok oj tf
pq pt pt pu ug
qp qu qu qt vd
rs rv rv rw we
sr sw sw sv xj
tu tp tp tq yk
ut uq uq up zh
vw vr vr vs
wv ws ws wr
xy
yx
The result will decode to "adder".
CLS
w$ = "adder"
alp$ = "abcdefghijklmnopqrstuvwxyz"
FOR p = 1 TO LEN(w$)
ct = 0
l$ = MID$(w$, p, 1)
a = ASC(l$)
FOR i = 1 TO 26
p1$ = MID$(alp$, i, 1)
b = a XOR i
c$ = CHR$(b)
IF INSTR(alp$, c$) THEN
ct = ct + 1
LOCATE ct, p * 4
PRINT p1$; c$;
END IF
NEXT
NEXT
LOCATE 30, 1
|
|
Posted by Charlie
on 2005-10-25 21:06:03 |
re(2): Plenty of answers (?) -- well, here are your choices
