29c
@verb #9682:"encrypt" any any any rdo #9682
@program #9682:"encrypt" any any any
"ENCRYPTS A PASSWORD FOR testAccount, EIN 201."
offset = 1
pairWise = {-5, 24, -39, 8, 13, 17, -34, -1, 23, 0, 13, -7, -32, 15, 8, 10, -14, 5, -14, 27, -33, 4, 2, 22, -29, 23, 10, -34}
raw = args
for x in [1..length(raw)]
  raw[x] = toint(raw[x])
endfor
out = {}
s = ""
for x in [1..length(raw)]
  if (x == 1)
    out = {@out, raw[1] + offset}
  else
    out = {@out, out[x - 1] + pairWise[x - 1] + raw[x] - raw[x - 1]}
  endif
  s = tostr(s, " ", out[$])
endfor
player:tell("Your password is: ", s)
"Last modified by Dax (#789) on Tue May  3 14:09:39 2005 MDT."
.

0