想做一个delphi版本的维吉尼亚加密解密器

卡布基米

快要痛苦死了，弄了好久，想整一个delphi版的维吉尼亚密码器，忙了好几天了只做了个界面出来，最关键的算法一直设计不出…………在字符串、整型数组还有字符数组，for循环，if判断里面各种纠结……………………………………………………求大神指导！！！！！！！！！
难道一定要事先char一个52X52的密码表，这样的程序写出来超级难看啊！！！
求解救！！！{:2_38:}