Скачать или смотреть 17 - На М - кодируем/декодируем тексты с помощью кода Вижинера

Решаем задачку по кодированию/декодированию информации в таблице с использованием, так называемого, кода Вижинера (многоалфавитный код и придумал его НЕ Вижинер)

пы.сы. уже после записи посетила мысль, что проверять нужно не только null, поэтому правильнее функцию f изложить так:
if x is text then [a=Text.ToList(x),b=Text.Combine(List.Transform(List.Zip({a,List.Positions(a)}),g))][b] else x

Код целиком (вместо нижнего подчёркивания ставим знак больше):
(tbl,key,cr)=_
let
lst=List.Buffer({"А".."Е","Ё","Ж".."Я","а".."е","ё","ж".."я","A".."Z","a".."z","0".."9"," ",",",".",":","-"}),
c=if cr=0 then 1 else -1,

d=Record.FromList(List.Positions(lst),lst),
e=List.Buffer(List.Transform(Text.ToList(key),(x)=_Record.Field(d,x))),
n=List.Count(lst),

f=(x)=_if x is text then [a=Text.ToList(x),b=Text.Combine(List.Transform(List.Zip({a,List.Positions(a)}),g))][b] else x,
g=(x)=_lst{Number.Mod(n+Record.Field(d,x{0})+c*(e{Number.Mod(x{1},List.Count(e))}+1),n)},

to=Table.TransformColumns(tbl,{},f)
in
to

Пост на канале тут - https://t.me/pbi_pq_from_tank/252

Кому интересно:
мой курс по Power Query - https://akademia-excel.ru/powerquery?...
телега тут- https://t.me/pbi_pq_from_tank