@verb #8084:"decryptA" this none this rxdo #8084
@program #8084:"decryptA" this none this
{string, key} = args
data = decode_binary(string, 1)
data = $list_utils:reverse(data)
out = {}
count = 1
for x in (data)
  z = $math_utils:xor(x, key)
  z = 255 - z - 255 % count
  if (count == 240)
    count = 1
  else
    count = count + 1
  endif
  out = {@out, z}
  $cmd_utils:suspend_if_needed(0)
endfor
return encode_binary(out)
"Last modified by Lao-Tzu (#8084) on Mon Nov  6 14:42:33 2000 MST."
.