古代密码

【题目描述】
古罗马帝国有一个拥有各种部门的强大政府组织。其中一个部门就是保密服务部门。为了保险起见，在省与省之间传递的重要文件中的大写字母是加密的。当时最流行的加密方法是替换和重新排列。替换方法是将所有出现的字符按照一个规则替换，比如ABCDEFGHIJKLMNOPQRSTUVWXYZ到BCDEFGHIJKLMNOPQRSTUVWXYZA，如果原词是 “VICTORIOUS” 则它变成 “WJDUPSJPVT”。排列方法改变原来单词中字母的顺序。例如：将顺序<2, 1, 5, 4, 3, 7, 6, 10, 9, 8>应用到 “VICTORIOUS” 上，则得到”IVOTCIRSUO”。人们很快意识到单独应用替换方法或排列方法加密，都是很不保险的。但是如果结合这两种方法，在当时就可以得到非常可靠的加密方法。所以，很多重要信息先使用替换方法加密，再将加密的结果用排列的方法加密。用两种方法结合就可以将”VICTORIOUS” 加密成”JWPUDJSTVP”。
考古学家最近在一个石台上发现了一些信息。初看起来它们毫无意义，所以有人设想它们可能是用替换和排列的方法被加密了。人们试着解读了石台上的密码，现在他们想检查解读的是否正确。他们需要一个计算机程序来验证，你的任务就是写这个验证程序。
【输入格式】
第一行是石台上的文字。文字中没有空格，并且只有大写英文字母。第二行是被解读出来的加密前的文字。第二行也是由大写英文字母构成的。
【输出格式】
如果第二行经过某种加密方法后可以产生第一行的信息，输出 “YES”，否则输出”NO”。
【样例输入】
JWPUDJSTVP
VICTORIOUS
【样例输出】
YES
【数据范围】
对于100%的数据，字符串长度<=100
【分析】
因为加密方法中可以改变字母的顺序，所以我们没有必要关心顺序，而只要关心每个字母出现的次数。

var
  st1,st2:string;
    i,n:longint;
    j:char;
    a,b:array['A'..'Z']of longint;
    c,d:array[0..101]of longint;
begin
  readln(st2);
    readln(st1);
    if length(st1)<>length(st2) then begin write('NO');exit; end;
    n:=length(st1);
  for i:=1 to n do begin
      inc(a[st1[i]]);
        inc(b[st2[i]]);
    end;
    for j:='A' to 'Z' do begin
      inc(c[a[j]]);
        inc(d[b[j]]);
    end;
    for i:=1 to 100 do
      if c[i]<>d[i] then begin
          write('NO');
            exit;
        end;
    write('YES');
end.

转载于:https://www.cnblogs.com/JRX2015U43/p/6533546.html