Шифр Вернама

[Ko$]

Что то я не пойму вроде всё как вы пишите а всё равно не работает

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sButton, sMemo, sLabel, sEdit, ExtCtrls;

type
  TForm1 = class(TForm)
    sButton2: TsButton;
    sButton4: TsButton;
    mmo1: TsMemo;
    lbl6: TsLabel;
    mmo2: TsMemo;
    lbl7: TsLabel;
    mmo3: TsMemo;
    lbl8: TsLabel;
    mmo4: TsMemo;
    lbl1: TsLabel;
    procedure sButton2Click(Sender: TObject);

    procedure sButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     procedure shifr_Vernam;
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}
//---------------------ШИФР------------------------
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[i]:=Char(Ord(oStr[i]) xor Ord(key[i]));
    // и добавляем по зашифрованному символу к зашифрованной строке.
    mmo4.Text:= key;
    mmo2.Text:= (shStr);

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[i]:=Char(Ord(oStr[i]) xor Ord(key[i]));
  mmo3.text:=shStr;
end;
//---------------------ВЫЗОВ ШИФРА------------------------
 procedure TForm1.sButton2Click(Sender: TObject);
begin
 shifr_Vernam;
end;



//---------------------ЗАГРУЗКА ТЕКСТА В MEMO------------------------
procedure TForm1.FormCreate(Sender: TObject);
var
  dir:string;
begin
getdir(0,dir);
dir:=dir+'\data.ini';
mmo1.Lines.LoadFromFile(dir);
end;

end.

[Ko$]

как я понял нужно убрать shStr:=''; но он всё равно ту же ошибку выдаёт, а на счёт размера я незнаю нужно чтобы шифровался весь текст из файла, в который добавляется текст, он бесконечным может быть.

[zetrix]

Пробуйте: shstr:=shstr+Char(Ord(oStr[i]) xor Ord(key[i]));

Я хотел, чтобы Вы это сами написали и всячески Вас подталкиваю в нужную сторону.

Попутно: если это лабораторная работа, тогда пойдёт, но на практике использовать ключ длинной равной шифруемым данным... это мягко говоря не ТРУ :D
Спокойной ночи.
Завтра продолжу, если не разберётесь сами

[Ko$]

я что то подобное делал, только некорректно работает это все.
это не лаба это кусочек дипломки.
спасибо за помощь!!! Приятных снов!!!

[zetrix]

как успехи? отпишись.

[Ko$]

Забил я на это шифрование, в пятницу защита не успеваю.