Форум программистов [Powered by Invision Power Board]

Код

var
  Form1: TForm1;
  alfvt, kluch, sms, brr: String;
  i, j, g,l, raz, ind, n, dlina_alfvt, dlina_kluch, dlina_sms,dlina_bez_probl: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  alfvt:= 'абвгдежзийклмнопрстуфхцчшщъыьэюя';
  kluch:= Edit1.Text;
  sms:= Edit2.Text;
  ind:= 0;
  n:= 0;
  dlina_bez_probl:=0;
  dlina_alfvt:= length(alfvt);
  dlina_kluch:= length(kluch);
  dlina_sms:= length(sms);

  for j:= 0 to Dlina_alfvt-1 do
  begin
    StringGrid1.Cells[j, 0]:= alfvt[j+1];
  end;

  for i:= 1 to Dlina_kluch do
  begin
    StringGrid1.Cells[0, i]:= kluch[i];
  end;

  for i:= 1 to Dlina_kluch do
  begin
    for j:= 1 to Dlina_alfvt do
    begin
      if StringGrid1.Cells[0, i] = alfvt[j] then
      begin
        raz:= 0;
        for g:= 1 to Dlina_alfvt-j do
        begin
          StringGrid1.Cells[g, i]:= alfvt[g+j];
          raz:= raz + 1;
        end;
        for g:= Dlina_alfvt-j+1 to Dlina_alfvt-1 do
        begin
          StringGrid1.Cells[g, i]:= alfvt[g-raz];
        end;
      end;
    end;
  end;

  raz:=0;
  For j:= 0 to Dlina_sms-1 do
  Begin
    if j + 1 = raz + 1 + n*Dlina_kluch then
    begin
      StringGrid2.Cells[j, 1]:= IntToStr(raz + 1);
      StringGrid2.Cells[j, 2]:= kluch[raz + 1];
    end;

    if sms[j+1] <> ' ' then
    begin
      StringGrid2.Cells[ind,1]:= sms[j+1];
      ind:= ind + 1;
      dlina_bez_probl:= dlina_bez_probl + 1;
    end;
    raz:= raz + 1;
    if raz = 4 then
    begin
      n:= n+1;
      raz:=0;
    end;
  end;

  g:=1;
  for j:= 0 to dlina_bez_probl-1 do
  begin
    if StringGrid2.Cells[j, 1] = kluch[g] then
    begin
      for i:= 0 to dlina_alfvt-1 do
      begin
       if StringGrid2.Cells[j, 2]= StringGrid1.Cells[i, 0] then
       begin
         StringGrid2.Cells[j, 3]:= StringGrid1.Cells[i, g];
         if g = 4 then g:= 0;
         g:=g+1;
       end;
      end;
    end;
  end;

  brr:= '';
  for j:=0 to dlina_bez_probl-1 do
  begin
    brr:= brr + StringGrid2.Cells[j,3];
  end;
  Edit3.Text:= brr;
  Edit4.Text:= kluch;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  brr:= Edit3.Text;
  kluch:= Edit4.Text;

  for j:= 0 to dlina_bez_probl do
  begin
    StringGrid3.Cells[j, 0]:= brr[j+1];
  end;

  n:=0;raz:=0;
  For j:= 0 to dlina_bez_probl-1 do
  Begin
    if j + 1 = raz + 1 + n*Dlina_kluch then
    begin
      StringGrid4.Cells[j, 0]:= IntToStr(raz + 1);
      StringGrid4.Cells[j, 1]:= kluch[raz + 1];
    end;
    raz:= raz + 1;
    if raz = 4 then
    begin
      n:= n+1;
      raz:=0;
    end;
  end;

  for j:= 0 to Dlina_alfvt-1 do
  begin
    StringGrid3.Cells[j, 2]:= alfvt[j+1];
  end;

  for i:= 1 to Dlina_kluch do
  begin
    StringGrid4.Cells[0, i]:= kluch[i];
  end;

  for i:= 1 to Dlina_kluch do
  begin
    for j:= 1 to Dlina_alfvt do
    begin
      if StringGrid4.Cells[0, i] = alfvt[j] then
      begin
        raz:= 0;
        for g:= 1 to Dlina_alfvt-j do
        begin
          StringGrid4.Cells[g, i]:= alfvt[g+j];
          raz:= raz + 1;
        end;
        for g:= Dlina_alfvt-j+1 to Dlina_alfvt-1 do
        begin
          StringGrid4.Cells[g, i]:= alfvt[g-raz];
        end;
      end;
    end;
  end;

  g:=1;
  for j:= 0 to dlina_bez_probl-1 do
  begin
    if StringGrid4.Cells[j, 0] = kluch[g] then
    begin
      for i:= 0 to dlina_alfvt-1 do
      begin
       if StringGrid3.Cells[j, 0]= StringGrid4.Cells[i, g] then
       begin
         StringGrid4.Cells[j, 1]:= StringGrid4.Cells[i, 0];
         if g = 4 then g:= 0;
         g:=g+1;
         Break;
       end;
      end;
    end;
  end;

  brr:= '';
  for j:=0 to dlina_bez_probl-1 do
  begin
    brr:= brr + StringGrid4.Cells[j,1];
  end;
  Edit5.Text:= brr;

end;
end.