I am trying to write a program in Just Basic to crack a ceasar cipher, by doing a shift of 1 letter, then 2 letters, and on to 26 letters, and output to a text file. The idea is to try every possible cipher, so you can crack any ceasar cipher. I've got it to the point where it should do the 1st shift, the problem is if you input "b", it shows "a", but if you input "bbb", it still only shows "a", I need it to show "aaa", if you know what I mean, please help if you can, I'm pulling my hair out over here! (and thanks!)

Code:

dim alpha$(26)
dim alpha1$(26) 'for a one character shift
alpha$(1) = "a"
alpha$(2) = "b"
alpha$(3) = "c"
alpha$(4) = "d"
alpha$(5) = "e"
alpha$(6) = "f"
alpha$(7) = "g"
alpha$(8) = "h"
alpha$(9) = "i"
alpha$(10) = "j"
alpha$(11) = "k"
alpha$(12) = "l"
alpha$(13) = "m"
alpha$(14) = "n"
alpha$(15) = "o"
alpha$(16) = "p"
alpha$(17) = "q"
alpha$(18) = "r"
alpha$(19) = "s"
alpha$(20) = "t"
alpha$(21) = "u"
alpha$(22) = "v"
alpha$(23) = "w"
alpha$(24) = "x"
alpha$(25) = "y"
alpha$(26) = "z"
alpha1$(1) = "b"
alpha1$(2) = "c"
alpha1$(3) = "d"
alpha1$(4) = "e"
alpha1$(5) = "f"
alpha1$(6) = "g"
alpha1$(7) = "h"
alpha1$(8) = "i"
alpha1$(9) = "j"
alpha1$(10) = "k"
alpha1$(11) = "l"
alpha1$(12) = "m"
alpha1$(13) = "n"
alpha1$(14) = "o"
alpha1$(15) = "p"
alpha1$(16) = "q"
alpha1$(17) = "r"
alpha1$(18) = "s"
alpha1$(19) = "t"
alpha1$(20) = "u"
alpha1$(21) = "v"
alpha1$(22) = "w"
alpha1$(23) = "x"
alpha1$(24) = "y"
alpha1$(25) = "z"
alpha1$(26) = "a"
input "Encrypted message:" ; encmsg$
for count = 1 to LEN(encmsg$)
cc$ = MID$(encmsg$, count, 1)
if cc$ = alpha1$(count) then
newmsg1$ = newmsg1$ + alpha$(count)
end if
next count
print newmsg1$