/*
**  Usage:
**      out = cipher_ascii(in, key, mode);
**
**  Arguments:
**      in      input, string
**      key     enciphering key, string
**      mode    0 = decipher, 1 = encipher
**
**  Returns:
**      out     a string, deciphered or enciphered using
**              a simple Vigenere style cipher
**
**  Notes:
**      filters out non-printable characters
**
**  copyright (c) 2006, John Leffingwell
**  www.planetxot.com
*/
var in, key, mode, out;
in = argument0;
key = argument1;
mode = argument2;
out = "";
var inLen, keyLen, pos, inChar, keyChar, outChar;
var inVal, keyVal, outVal, loVal, hiVal, span;
inLen = string_length(in);
keyLen = string_length(key);
loVal = 32;
hiVal = 126;
span = (hiVal - loVal) + 1;
for (pos = 0; pos < inLen; pos += 1) {
    inChar = string_char_at(in, pos + 1);
    keyChar = string_char_at(key, (pos mod keyLen) + 1);
    inVal = min(max(loVal, ord(inChar)), hiVal) - loVal;
    keyVal = min(max(loVal, ord(keyChar)), hiVal) - loVal;
    if (mode) {
        outVal = ((inVal + keyVal) mod span) + loVal;
    }else{
        outVal = ((span + inVal - keyVal) mod span) + loVal;
    }
    outChar = chr(outVal);
    out = out + outChar;
}
return out;