2年分区联赛提高组第一天第一题 Vigenère密码程序

SSL_zeng_yu

于 2017-01-11 15:29:09 发布

阅读量272

点赞数

分类专栏： pascal 杂乱题目 pascal 作业

本文链接：https://blog.csdn.net/SSL_zeng_yu/article/details/54343975

版权

pascal 作业同时被 2 个专栏收录

41 篇文章 0 订阅

订阅专栏

pascal 杂乱题目

13 篇文章 0 订阅

订阅专栏

var 
  k,s,ans:ansistring;
  len1,len2,num,i,sum:longint;
  f:array[1..1000] of boolean;
begin
  reset(input);
  rewrite(output);
  readln(k);
  readln(s);
  len1:=length(k); len2:=length(s);
  num:=0;
  sum:=0;
  k:=upcase(k);
  for i:=1 to len2 do
    if ord(s[i])>ord('Z') then
      begin
        f[i]:=true;
        s[i]:=chr(ord(s[i])-32);
      end;
  for i:=1 to len2 do
    begin
      inc(num);
      if num>len1 then num:=1;
      sum:=ord(k[num])-ord('A');
      sum:=ord(s[i])-sum;
      if sum<65 then sum:=sum+26;
      ans:=ans+chr(sum);
    end;
  for i:=1 to len2 do
    begin
      if f[i]=true then write(chr(ord(ans[i])+32))
      else write(ans[i]);
    end;
  close(input);
  close(output);
end.