Сохраненки

[Андрей]

Как работать с электронной подписью в 2020 году

https://www.fd.ru/news/47955-kak-rabota ... -2020-godu

[Андрей]

Возможно, удостоверяющий центр компании Тензор компрометирует приватные ключи клиентов

https://m.habr.com/ru/post/487246/

Наша организация является пользователем сервиса СБИС (http://sbis.ru/), компании Тензор. В середине октября 2019 года для ООО «ХХХ», в связи с изменением фамилии директора, в удостоверяющем центре (УЦ) компании Тензор в городе ХХХХ была сгенерирована ЭП на носитель рутокен. После этого, на портале СБИС появилась эта новая ЭП. При просмотре ее свойств мы обратили внимание на надпись: записан на реестр компьютера KOMPUKTER. Так как мы не копировали ЭП на какой-либо компьютер, я обратилась в службу техподдержки с вопросом, что это значит и как так получилось. Сотрудник техподдержки объяснил мне, что вероятно мы сделали копию в реестр ПК сами, что это за ПК сотрудник не знает.

Надпись «записан на реестр компьютера KOMPUKTER» являлась гиперссылкой и открывала окно в котором отображались все электронные подписи которые установлены в реестр компьютера «KOMPUKTER». Там множество ЭЦП различных ХХХ-ских фирм и предпринимателей. Исходя из полученных данных я предпологаю что сотрудники удостоверяющего центра компании Тензор в городе ХХХХ делают копии ключей на свои ПК.

Мной 24.10.2019 было написано письмо в компанию Тензор на эл. почту tensor@tensor.ru с просьбой разъяснить данную ситуацию. До настоящего времени ответа от компании Тензор не получено. Однако, в интерфейсе сервиса СБИС произошли изменения, надпись о копии в реестр постороннего ПК была исправлена компанией Тензор на другую. Таким образом, после моего обращения были произведены действия, которые убрали следы описанной мной проблемы.

Я считаю, что сотрудниками УЦ компании Тензор в г. ХХХХ были нарушены требования по хранению сертификатов ключей ЭП, а все указанные ЭП являются скомпрометированными и требуют отзыва.

[Андрей]

https://www.phpbb.com/community/viewtopic.php?t=1237615

[Андрей]

http://delphi-help.ru/index.php?option= ... i-v-stroku

https://www.sql.ru/forum/665435/vremya-s-millisekundami

[Андрей]

Код: Выделить всё

Unit <Имя модуля>;
// Раздел интерфейса Interface
Uses <Список модулей>;
Const <Список констант>;
Туре <Описание типов>;
Var <Объявление переменных>;
<Заголовки процедур>;
<Заголовки функций>;
�
// Раздел реализации
Implementation
Uses <Список модулей>;
Const <Список констант>;
Туре <Описание типов>;
Var <Объявление переменных>;
<Описание процедур>;
<Описание функций>;
�
// Раздел инициализации
Initialization
<Инструкции>
�
// Раздел деинициализации
Finalization
<Инструкции>
end.

► Показать

Кроме программ, структуру которых мы только что рассмотрели, средства языка позволяют создавать модули. В отличие от программы, модуль не может быть автономно запущен на выполнение и содержит элементы, например, переменные и подпрограммы, которые допускается использовать в программе или в других модулях. Для того чтобы можно было использовать средства модуля, его необходимо подключить, указав имя этого модуля в разделе uses. Типичными примерами модулей являются System и SysUtils, содержащие большое количество стандартных подпрограмм. Напомним, что для каждой формы приложения создается отдельный модуль.

Компилятор распознает модуль по его заголовку и создает в результате своей работы не исполняемый файл (ехе), как это было для приложения, а файл модуля с расширением dcu.

Модуль состоит из заголовка, в котором после ключевого слова unit указывается имя модуля, и четырех разделов: интерфейса (interface), реализации (implementation), инициализации (initialization) И деинициализации (Finalization).

В разделе интерфейса размещаются описания идентификаторов, которые должны быть доступны всем модулям и программам, использующим этот модуль и содержащим его имя в списке uses. В разделе интерфейса объявляются типы, константы, переменные и подпрограммы. При этом для подпрограмм указываются только их заголовки. Другие используемые модули указываются в списке uses. Раздел интерфейса начинается ключевым словом Interface.

В разделе реализации располагается код подпрограмм, заголовки которых были приведены в разделе интерфейса. Порядок следования подпрограмм может не совпадать с порядком расположения их заголовков, приводимых в разделе интерфейса. Кроме того, допускается оставлять в заголовке только имя подпрограммы, т. к. список параметров и тип результата функции уже были предварительно указаны. В разделе реализации можно также описывать типы, объявлять константы и переменные и описывать подпрограммы, которые используются только в этом модуле и за его пределами не видны. Раздел интерфейса начинается словом Implementation.

В разделе инициализации располагаются инструкции, выполняемые в начале работы программы, которая подключает данный модуль. Разделы инициализации модулей выполняются в том порядке, в котором они перечислены в списке раздела uses программы. Раздел инициализации начинается словом Initialization и является необязательным.

При наличии раздела инициализации в модуле можно использовать раздел деинициализации, который начинается словом Finalization и является необязательным. В этом разделе располагаются инструкции, выполняемые при завершении программы. Разделы деинициализации модулей выполняются в порядке, обратном порядку их перечисления в списке uses программы.

[Андрей]

3. Способы обмена информацией между главной формой и немодальной формой

При использовании немодальных форм важным становится обмен информацией между основной программой (главной формой) и немодальной формой.

Здесь возможны две ситуации:

• передача информации из главной формы в немодальную. Эта ситуация решается без проблем, поскольку в основной форме создается экземпляр немодальной формы. Через этот экземпляр осуществляется доступ к компонентам немодальной формы стандартным способом;
• передача информации из немодальной формы в главную форму. Здесь возникает проблема: как из немодальной формы доступиться к экземпляру главной формы.

Чтобы передать данные (информацию) с немодальной формы в главную, можно использовать один из следующих способов:

1. С помощью статической ссылки на главную форму. Как известно, статические переменные есть глобальными, поэтому удобно могут использоваться для обмена информацией между разными разделенными экземплярами или процессами. Имея ссылку на главную форму, можно легко обращаться к компонентам этой формы. Этот способ наиболее прост в использовании.
2. С помощью механизма событий. При этом способе в немодальной форме объявляется событие, которое возникает каждый раз, когда главной форме нужно передать информацию. Тем не менее, сам обработчик этого события помещается в главной форме. Если из немодальной формы нужно передать информацию главной форме, то возникает событие. В результате, в главной форме вызывается обработчик этого события. Этот обработчик получает объект типа «немодальное диалоговое окно», который сгенерировал событие. Имея доступ к измененному объекту немодального окна, можно обновить информацию в главной форме.
3. С помощью записи информации во временный файл. Как известно, файлы подобны статическим переменным. Поэтому, записав порцию информации в файл в немодальной форме, можно ее прочитать в главной форме. Этот способ не является эффективным, поскольку работает медленнее (чтение из носителей информации происходит дольше чем из оперативной памяти).

https://www.bestprog.net/ru/2020/05/23/ ... indows-ru/

Для того чтобы создать немодальное окно, нужно вызвать метод show. В этом случае главная форма создаст дочернее окно, показав его на экране, и смело продолжит выполняться дальше. Это позволит вам работать с обеими формами одновременно, переключаться между ними, и код обеих форм будет выполняться как бы параллельно. Это еще не многозадачность, и если одно окно выполняет какие-то действия, то второе ожидает их завершения, поэтому здесь нет истинной параллельности.

[Андрей]

Пример как 1 компонент слушает несколько портов:
http://delphimaster.net/view/6-1189799328

[Андрей]

MessageDlg закрывать через х секунд:
http://www.freepascal.ru/forum/viewtopi ... =5&t=11208

[Андрей]

https://www.programmersforum.ru/showthread.php?t=5160

Код: Выделить всё

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var List:TListBox;
begin
    List:=Control as TListBox;
    with List.Canvas, Rect do
        begin
	    if odSelected in State then
	    begin
	        Brush.Color:=clClickedColor;
	        Font.Color:=clHighlightText;
	    end
	    else
	    begin
	        Brush.Color:=clWindow;
	        Font.Color:=clWindowText;
	    end;

	    FillRect(Rect);
               if odFocused in State then Windows.DrawFocusRect(List.Canvas.Handle, Rect);
               TextOut(Left + 1, Top + 1, List.Items[Index]);
        end;  
end;

http://www.freepascal.ru/forum/viewtopic.php?f=5&t=6232

http://delphimaster.net/view/1-13616

https://forum.sources.ru/index.php?showtopic=177452

https://www.sql.ru/forum/128185/kak-pre ... -v-integer

[Андрей]

Как запускать приложение свёрнутым:
http://delphimaster.net/view/1-1096440862