decr-text2.awk

#! /usr/bin/awk -f

function get_ci(alph,c) {
  return index(alph,c)
}

BEGIN {
  alph="уфхцчшщюяабвгдежзиклмнопрст"
  keys="екатеринбург"
  keyn=length(keys)
  for(i=0; i<keyn; i++)
    key[i]=get_ci(alph,substr(keys,i+1,1))
  #key[keyn-3]=2
  for(i=0; i<keyn; i++) keypr=keypr sprintf("%02d",key[i]) " "
  print "key:", keypr

  n=2

  maxv=0
}

function ch(s,idx) {
  return substr(s,1+idx*n,n)
}

{
  len=length($0)/2
  s=$0
  text=""
  for(i=0; i<len; i++) {
    v=ch(s,i)
    text=text substr(alph,v-key[i%keyn],1)

    if(maxv<v) maxv=v
  }
  print text
}

END { print "maxv=",maxv }