[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

27.10.2009, 09:46

lastsmile

Познающий

Регистрация: 22.09.2007

Сообщений: 42

Провел на форуме:
255505

Репутация: 22

Цитата:

Сообщение от intNet

rdp.AdvancedSettings2.ClearTextPassword := 'pass';
Или так:
rdp.AdvancedSettings2.Set_ClearTextPassword('pass' );
Про домен - не помню, но помоему rdp.Domain.

пробовал. я такой пример нагуглил. дельфи ругается.

Цитата:

Project Project1.exe raised exception class EOleException with message 'Интерфейс не поддерживается'. Process stopped...

В остальных случаях синтаксическая ошибка. а про домен правильно подсказал.

а вот этот вариант мне понравился:

Цитата:

пуск - выполнить - mstsc /? - enter

там указываешь файл с rdp настройками

осталось с шифрованием пароля разобраться-нагуглил:

Цитата:

Там используется функция CryptProtectData , где не используется "Optional entropy " и "PromptStruct" , а также в качестве "description string" строка в юникоде "psw". Пароль тоже в юникоде дополненный до 512 байт нулевыми байтами.

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