NOIp2012 TG Day1-1 Vigenère 密码

题目描述

16 世纪法国外交家 Blaise de Vigenère 设计了一种多表密码加密算法――Vigenère 密
码。Vigenère 密码的加密解密算法简单易用，且破译难度比较高，曾在美国南北战争中为
南军所广泛使用。

在密码学中，我们称需要加密的信息为明文，用 M 表示；称加密后的信息为密文，用
C 表示；而密钥是一种参数，是将明文转换为密文或将密文转换为明文的算法中输入的数据，
记为 k。 在 Vigenère 密码中，密钥 k 是一个字母串，k=k1k2…kn。当明文 M=m1m2…mn时，
得到的密文 C=c1c2…cn，其中 ci=mi®ki，运算®的规则如下表所示：



Vigenère 加密在操作时需要注意：
1. ®运算忽略参与运算的字母的大小写，并保持字母在明文 M 中的大小写形式；
2. 当明文 M 的长度大于密钥 k 的长度时，将密钥 k 重复使用。
例如，明文 M=Helloworld，密钥 k=abc 时，密文 C=Hfnlpyosnd。

 

输入格式

输入共 2 行。
第一行为一个字符串，表示密钥 k，长度不超过 100，其中仅包含大小写字母。第二行
为一个字符串，表示经加密后的密文，长度不超过 1000，其中仅包含大小写字母。

 

输出格式

输出共 1 行，一个字符串，表示输入密钥和密文所对应的明文。

 

样例输入

CompleteVictory
Yvqgpxaimmklongnzfwpvxmniytm

样例输出

Wherethereisawillthereisaway

 

注释

【数据说明】
对于 100%的数据，输入的密钥的长度不超过 100，输入的密文的长度不超过 1000，且
都仅包含英文字母。

 

 

正式回归OI第二天、、

这题没什么好说的、、

就是写的时候又和去年NOIp一样犯2，写了个加密的、、、

呃、、、当然编的效率和去年比高了些、、、

 

加密：

Var
  st1:AnsiSTring;
  i,n,l:longint;
  a,b:Array[0..1001] of longint;
Begin
  Readln(st1);
  st1:=Upcase(St1);
  l:=Length(st1);
  For i:=1 to l do
    a[i]:=Ord(st1[i])-65;
  Readln(st1);
  n:=Length(st1);
  i:=l+1;
  Repeat
    a[i]:=a[i-l];
    inc(i);
  Until i>n;
  For i:=1 to n do
    Begin
      if st1[i] in ['A'..'Z'] Then
        Begin
          b[i]:=Ord(st1[i])+a[i];
          if b[i]>90 Then b[i]:=(b[i]-90)+64;
        End
      Else
        Begin
          b[i]:=Ord(st1[i])+a[i];
          if b[i]>122 Then b[i]:=(b[i]-122)+96;
        End;
    End;
  For i:=1 to n do
    Write(Chr(b[i]));
  Writeln;
End.

题目要求的、、解密：

Var
  st1:AnsiSTring;
  i,n,l:longint;
  a,b:Array[0..1001] of longint;
Begin
  Readln(st1);
  st1:=Upcase(St1);
  l:=Length(st1);
  For i:=1 to l do
    a[i]:=Ord(st1[i])-65;
  Readln(st1);
  n:=Length(st1);
  i:=l+1;
  Repeat
    a[i]:=a[i-l];
    inc(i);
  Until i>n;
  For i:=1 to n do
    Begin
      if st1[i] in ['A'..'Z'] Then
        Begin
          b[i]:=Ord(st1[i])-a[i];
          if b[i]<65 Then b[i]:=90-(64-b[i]);
        End
      Else
        Begin
          b[i]:=Ord(st1[i])-a[i];
          if b[i]<97 Then b[i]:=122-(96-b[i]);
        End;
    End;
  For i:=1 to n do
    Write(Chr(b[i]));
  Writeln;
End.

 纯属细节题、、