Creating a Key List

[xcoder]

print "########################"
input "Enter a pass word: "; code$
call KSA code$
print ""


print:print
print "End of Script"
End

sub KSA code$
dim S(256)
dim K(256)
for i = 0 to 255
S(i)= i
next i
for i = 0 to 255
K(i)= asc(mid$(code$,i mod len(code$)+1))
next i
for ultra = 1 to 1 '''increase ultra setting for longer key list
for i = 0 to 255
j = (j+ S(i)+ K(i))mod 256
temp = S(i)
S(i)= S(j)
S(j)= temp
Hex$ = decHex$(S(i))
Hex$ = right$("0" + Hex$,2)
key$ = key$ + Hex$
next i
next ultra
x = 1
for i = 1 to len(key$) step 16
chunk$ = mid$(key$,i,16)
print x, chunk$
x = x + 1
next i
end sub