Шифр Вернама

procedure TForm1.shifr_Vernam;
var
  oStr, key, shStr :string;
  i:integer;
begin
  oStr:=edt1.Text;
  shStr:=''; // данные, которые будем инициализировать сами - обнуляем.
  key:='';
  randomize;
 
  for i:=1 to length(oStr) do
    key:=key+Chr(random(255));
  for i:=1 to length(oStr) do
    shstr:=shstr+Chr(byte(ostr[i]) xor byte(key[i])); // и добавляем по зашифрованному символу к зашифрованной строке.
     edt3.Text:= key;
 lbl1.Caption:= ('Otkrytyi text: ' + oStr);
edt2.Text:= (shStr);
 
end;
 
 procedure TForm1.sButton2Click(Sender: TObject);
begin
 shifr_Vernam;
end;
 
 
 
 
procedure TForm1.sButton1Click(Sender: TObject);
var
 
  oStr, key, shStr:string;
 
  i:integer;
 
begin
 
  oStr:=edt1.Text;  //определяем открытый текст
 
  randomize; //Необходимая функция для функции random, чтобы последняя каждый раз выдавала случайные значения
 
//генерируем случайный ключ длиной равной длине открытого текста
 
  for i:=1 to length(oStr) do
 
  key:=key+Chr(random(255)); //генерируем случайное число из диапозона от 0 до 255, и полученое число переводим в символ;
  edt3.Text:= key;
end;

procedure TForm1.sButton1Click(Sender: TObject);
var
 
  oStr, key, shStr:string;
 
  i:integer;
 
begin
 
  oStr:=edt1.Text;  //определяем открытый текст
 
  randomize; //Необходимая функция для функции random, чтобы последняя каждый раз выдавала случайные значения
 
//генерируем случайный ключ длиной равной длине открытого текста
 
  for i:=1 to length(oStr) do
 
  key:=key+Chr(random(255)); //генерируем случайное число из диапозона от 0 до 255, и полученое число переводим в символ;
  edt3.Text:= key;
end;

//---------------------ШИФР------------------------
procedure TForm1.shifr_Vernam;
var
  oStr, key, shStr :string;
  i:integer;
begin
  oStr:=mmo1.Text;
  shStr:=''; // данные, которые будем инициализировать сами - обнуляем.
  key:='';
  randomize;
 
  for i:=1 to length(oStr) do
    key:=key+Chr(random(255));
  for i:=1 to length(oStr) do
    shstr:=shstr+Chr(byte(ostr[i]) xor byte(key[i])); // и добавляем по зашифрованному символу к зашифрованной строке.
    mmo4.Text:= key;
    mmo2.Text:= (shStr);
 
end;
 
//---------------------ВЫЗОВ ШИФРА------------------------
 procedure TForm1.sButton2Click(Sender: TObject);
begin
 shifr_Vernam;
end;
 
//---------------------ДЕШИФРОВКА------------------------
procedure TForm1.sButton4Click(Sender: TObject);
var
  oStr, key, shStr :string;
  i:integer;
begin
  key:=mmo4.text;
  oStr:=mmo2.Text;
for i:=1 to length(oStr) do
  shstr:=shstr+Chr(byte(ostr[i]) xor byte(key[i]));
  mmo3.text:=shStr;
end;
 
//---------------------ЗАГРУЗКА ТЕКСТА В MEMO------------------------
procedure TForm1.FormCreate(Sender: TObject);
var
  dir:string;
begin
getdir(0,dir);
dir:=dir+'\data.ini';
mmo1.Lines.LoadFromFile(dir);
end;
 
end.