unit indication;

interface

uses 
	Windows, Forms, Sysutils, Graphics, Classes, GostBase;

procedure temp_indication(
		const iDataUnit: tDataUnit;
                      iKey2Wds: tDWord;
                      ME5,ME6,ME7,ME8,ME21,ME22,ME23,ME24 : Byte;
                      ME9,ME10,ME11,ME12,ME13,ME14,ME19,ME20 : word);

procedure Base_indication;

procedure Decode_indication(
                        const diDataUnit: tDataUnit);

implementation

uses
        Prg_Gost;

procedure temp_indication(
		const iDataUnit: tDataUnit;
                      iKey2Wds: tDWord;
                      ME5,ME6,ME7,ME8,ME21,ME22,ME23,ME24 : Byte;
                      ME9,ME10,ME11,ME12,ME13,ME14,ME19,ME20 : word);
begin
    with BaseForm do begin
     Canvas.Font.Color := clRed;
     Canvas.Font.Size := 10;
     Canvas.Brush.Color := $FEE0BB;
     Canvas.FillRect(Rect(410,420,630,460));
     Canvas.TextOut(410,425,' - Временный результат!');
     MaskEdit15.EditText := '        '+IntToStr(iDataUnit.W3);
     MaskEdit16.EditText := '        '+IntToStr(iDataUnit.W2);
     MaskEdit17.EditText := '        '+IntToStr(iDataUnit.W1);
     MaskEdit18.EditText := '        '+IntToStr(iDataUnit.W0);

     MaskEdit5.EditText := '   '+IntToStr(ME5);
     MaskEdit6.EditText := '   '+IntToStr(ME6);
     MaskEdit7.EditText := '   '+IntToStr(ME7);
     MaskEdit8.EditText := '   '+IntToStr(ME8);
     MaskEdit21.EditText := '   '+IntToStr(ME21);
     MaskEdit22.EditText := '   '+IntToStr(ME22);
     MaskEdit23.EditText := '   '+IntToStr(ME23);
     MaskEdit24.EditText := '   '+IntToStr(ME24);

     MaskEdit9.EditText := '        '+IntToStr(ME9);
     MaskEdit10.EditText := '        '+IntToStr(ME10);
     MaskEdit11.EditText := '        '+IntToStr(ME11);
     MaskEdit12.EditText := '        '+IntToStr(ME12);
     MaskEdit13.EditText := '        '+IntToStr(ME13);
     MaskEdit14.EditText := '        '+IntToStr(ME14);
     MaskEdit19.EditText := '        '+IntToStr(ME19);
     MaskEdit20.EditText := '        '+IntToStr(ME20);

     Panel3.Caption := 'Элемент ключа: ' + IntToStr(iKey2Wds.W1) +
                       ' ' + IntToStr(iKey2Wds.W0);
    end;
    Application.ProcessMessages;
    Sleep(BaseForm.SpinEdit1.Value);
end;

procedure Base_indication;
begin
    with BaseForm do begin
     Canvas.Font.Color := clWindowText;
     if tmp = False then begin
        Canvas.Brush.Color := $FEE0BB;
        Canvas.FillRect(Rect(410,420,630,460));
        Button3.Caption := 'Расшифровать';
        Canvas.TextOut(410,425,' - Зашифрованные данные!')
     end
     else begin
            Canvas.Brush.Color := $FEE0BB;
            Canvas.FillRect(Rect(410,420,640,480));
            Button3.Caption := 'Зашифровать';
            Canvas.TextOut(410,425,' - Исходные данные!');
     end;
    end;
    Application.ProcessMessages;
end;

procedure Decode_indication(
                        const diDataUnit: tDataUnit);
begin
{----Индикация зашифрованных данных----}
    with BaseForm do begin
     MaskEdit3.EditText := '        '+IntToStr(diDataUnit.W3);
     MaskEdit4.EditText := '        '+IntToStr(diDataUnit.W2);
     MaskEdit1.EditText := '        '+IntToStr(diDataUnit.W1);
     MaskEdit2.EditText := '        '+IntToStr(diDataUnit.W0);
    end;
end;

end.