array de bytes = Funcion Code(String ElTexto, String LaClave)
    Array de bytes Cifrado() = text.encoding.Getbytes(Eltexto)
    Array de bytes Key() = encoding.GetBytes(Ampliar(LaClave, Cifrado.lenght))

    Bucle para k desde 0 hasta txt.lenght
        Cifrado(k) = Cifrado(k) xor key(k)
    Fin bucle

    Devolver Cifrado
Fin funcion

String = Funcion Decode(Array de bytes Cifrado, String LaClave)
    Array de bytes Key() = Ampliar(LaClave, Cifrado.lenght))

    Bucle para k desde 0 hasta txt.lenght
        Txt(k) = txt(k) xor key(k)
    Fin bucle

    Devolver text.Encoding.GetString(Eltexto)
Fin funcion

' Dado un texto, lo amplía hasta como mínimo el tamaño pedido.
'   en cada ciclo, se duplica el tamaño previo.
Array de bytes = Funcion Ampliar(string Key, entero Minimo)
    entero i, j, k 
    array de bytes tmp()
    Array de bytes yeK() = encoding.GetBytes(Key)

    k= yek.Lenght: j=k
    Hacer mientras (k < minimo)
        k = ((k*2)-1)
        redimensionar tmp(0 a k)
        ' El byte primero es la media de los extremos, luego entre el 2ª y el penúltimo, luego entre el 3º y el antepenúltimo... 
        ' el byte último es un xor entre los extremos, luego entre el 2ª y el penúltimo, luego entre el 3º y el antepenúltimo... 
        ' es muy simple, pero puede complicarse todo lo que quieras... y para lo que necesitas es suficiente.
        bucle para i desde 0 hasta j
            tmp(i) = (yek(i) + yek(j-i) \2)
            tmp(k-i) = (yek(i) xor yek(j-i))
        fin bucle
        ' Se puede complicar más con otras fases: 2,3,4 alterando la forma o la forma en que los índices se conjugan.

         yeK = tmp ' asignamos un array al otro...
        j = k
    Repetir

    Devolver yeK
Fin funcion
' NOTA: Revisa... que es probable que tengas que corregir el tamaño del array temporal (k = ((k*2)-1) ), lo he hecho al vuelo, mientras escribo...