当前位置:淘百问>百科词库>寻求:维吉尼亚密码自动加密器。

寻求:维吉尼亚密码自动加密器。

2024-02-13 20:46:08 编辑:join 浏览量:571

寻求:维吉尼亚密码自动加密器。

需要使用CPPascalEditorv3.补资鲁7打开

顺便说明一下,这是我在做科技创新大赛的作品的一部分,请注意使用。

Programvigenere;

var

ans:array[0..101]ofchar;

c:char;s:string;

i,n,tot,len,j:longint;

begin

j:=0;tot:=0;

writeln('请输入密钥:');

readln(s);

len:=length(s);

writeln('请输入明文:');

whilenoteolndo

begin

read长均倒部(c);

inc(j);

inc(tot);

ifj>lenthenj:=1;

n:=ord(s[j])-96-1;

i来自ford(c)>122-nthen

ans[tot扬粉跑初天]:=chr(ord(c)-26+n)

els北物苏燃血广eans[tot]:=chr鸡转培雷照己(ord(c)+n);

end;

writeln('密文是:');

fori:=1tototdowrite(ans[i]);

readln;

readln

end.

解密程序:

var

ans:array[0..101]ofchar;

c:char;s:string;

i,n,tot,曾达呼危来血len,j:longint;

begin

j:=0;tot:=0;

writeln('请输入密钥:');

readln(s);

len:=length(s);

writeln('请输入密文:');

while360问答noteolndo

be专石负在步留宜误耐侵gin

read(c);

inc(j);

inc(tot);

ifj>lenthe径洋零呼静什便道据缺nj:=1;

n:=ord(s[j])-96-1;

iford(c)>ord('a')+n-1then

ans[tot]:=chr(ord(c)-n)

elseans[tot]:染药立洲片准复=chr(ord(c)+26-n);

end;

writeln('明文是:');

fori:安领=1tototdowrite(ans[尔度故顾钟直i]);

readln;

rea升朝还临在dln

end.

标签:维吉尼亚,加密器,密码

版权声明:文章由 淘百问 整理收集,来源于互联网或者用户投稿,如有侵权,请联系我们,我们会立即处理。如转载请保留本文链接:https://www.taobaiwen.com/baike/400027.html
热门文章