//mathematica notebook code

Autokeycipher = stringToNumbers["MALVVMAFBHBUQPTSOXALTGVWWRG"]

firstchar = Table[Mod[Autokeycipher[[1]] - i, 26], {i, 0, 25}]

AutoCipherset = Table[Join[{firstchar[[i]]}, stringToNumbers["ALVVMAFBHBUQPTSOXALTGVWWRG"]], {i, 1, 26}]

Table[AutoCipherset[[All, m]] = Mod[(AutoCipherset[[All, m]] - AutoCipherset[[All, m - 1]]), 26], {m, 2, 27}]

Table[numbersToString[AutoCipherset[[m, All]]], {m, 1, 26}]

can someone help me to understand each line of code by writing comments?