@verb #8084:"encryptA" this none this rxdo #8084
@program #8084:"encryptA" this none this
{string, key} = args
data = decode_binary(string, 1)
out = {}
count = 1
for x in (data)
  z = 255 - (x + 255 % count)
  "player:tell(z, \" - \", key);"
  z = $math_utils:xor(z, key)
  out = {z, @out}
  if (count == 240)
    count = 1
  else
    count = count + 1
  endif
  $command_utils:suspend_if_needed(0)
endfor
"player:tell(toliteral(out));"
return encode_binary(out)
"Last modified by Lao-Tzu (#8084) on Mon Nov  6 14:39:38 2000 MST."
.