2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




 
 Дешифратор Виженера
Сообщение24.02.2013, 10:23 
Здравствуйте!
Мне дали задание написать шифратор и дешифратор по Виженеру.
С шифратором получилось, а дешифратор - без понятия как сделать.
Помогите, пожалуйста.
Вот шифратор (на большие латинские буквы):
Код:
program p1;
uses crt;
var SourceText, KeyWord, EncryptText: string;
    i: integer;
begin
clrscr;
Readln(SourceText);
Readln(KeyWord);
for i:=1 to length(SourceText) do
  if ord(SourceText[i])+ord(KeyWord[i])<156
    then EncryptText:=EncryptText+chr(ord(SourceText[i])+ord(KeyWord[i])-65)
    else EncryptText:=EncryptText+chr(ord(SourceText[i])+ord(KeyWord[i])-91);
Writeln(EncryptText);
readkey;
end.

 
 
 [ 1 сообщение ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group