ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
26.10.2009, 15:27
|
|
Участник форума
Регистрация: 23.10.2009
Сообщений: 103
Провел на форуме:
289669
Репутация:
7
|
|
Nullsleep, навел, что дальше?
|
|
|
26.10.2009, 16:39
|
|
Познающий
Регистрация: 22.09.2007
Сообщений: 42
Провел на форуме:
255505
Репутация:
22
|
|
ну просил же по теме писать. неужели так трудно? есть у кого-то варианты как это можно реализовать? теперь уже выслушаю все возможные варианты. пробовал через findwindow() найти имена полей в окне акторизации удаленного рабочего стола, что-то не получается.
Есть конечно вариант: сначала забить все необходимые поля в настройках подключения к удаленному рабочему столу а потом уже пробовать коннектиться, но тогда я не смогу получить список доменов на удаленном серваке. Скорее всего буду думать в этом направлении...
|
|
|
|
26.10.2009, 17:24
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от lastsmile
ну просил же по теме писать. неужели так трудно? есть у кого-то варианты как это можно реализовать? теперь уже выслушаю все возможные варианты. пробовал через findwindow() найти имена полей в окне акторизации удаленного рабочего стола, что-то не получается.
Есть конечно вариант: сначала забить все необходимые поля в настройках подключения к удаленному рабочему столу а потом уже пробовать коннектиться, но тогда я не смогу получить список доменов на удаленном серваке. Скорее всего буду думать в этом направлении...
пуск - выполнить - mstsc /? - enter
там указываешь файл с rdp настройками
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
26.10.2009, 19:21
|
|
Познающий
Регистрация: 31.05.2009
Сообщений: 68
Провел на форуме:
1271980
Репутация:
19
|
|
не могу найти параметр отвечающий за ввод пароля и выбор домена из списка
rdp.AdvancedSettings2.ClearTextPassword := 'pass';
Или так:
rdp.AdvancedSettings2.Set_ClearTextPassword('pass' );
Про домен - не помню, но помоему rdp.Domain.
|
|
|
|
27.10.2009, 03:46
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
229
|
|
Такой вопрос...
Вот к примеру есть потоки, они обрабатывают инфу и заносят в мемо, потоки чуть не успевают туда записывать строки (точнее так сказать мемо не резиновый)(совсем чуть чуть не успевает), куда не записанные строки (т.е. ждущие строки пока их запишут) деются? В память я так думаю... А что если эта очередь может разорваться? Т.е. если очередь разорвется то высветится ошибка типа Out of memory? Верно?
|
|
|
|
27.10.2009, 07:54
|
|
Участник форума
Регистрация: 23.10.2009
Сообщений: 103
Провел на форуме:
289669
Репутация:
7
|
|
ответьте про дедики...и пинч что такое?
|
|
|
|
27.10.2009, 09:46
|
|
Познающий
Регистрация: 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 байт нулевыми байтами.
осталось это реализовать в дельфи, а потом еще сделать обработчик событий. который будет проверять удачно ли я залогинен или нет.
|
|
|
|
27.10.2009, 20:03
|
|
Постоянный
Регистрация: 26.01.2008
Сообщений: 796
Провел на форуме:
5209663
Репутация:
357
|
|
Как в строковом параметре отсеять буквы и оставить только цифры?
|
|
|
|
27.10.2009, 20:15
|
|
Постоянный
Регистрация: 12.05.2009
Сообщений: 395
Провел на форуме:
4761503
Репутация:
229
|
|
Сообщение от НTL
Как в строковом параметре отсеять буквы и оставить только цифры?
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
begin
for i:=1 to length(edit1.text) do
begin
if pos(edit1.text[i],'1234567890')<>0 then
begin
s:=s+edit1.text[i];
end;
end;
edit1.text:=s;
end;
|
|
|
|
27.10.2009, 20:17
|
|
Участник форума
Регистрация: 03.02.2009
Сообщений: 104
Провел на форуме:
270228
Репутация:
70
|
|
Сообщение от НTL
Как в строковом параметре отсеять буквы и оставить только цифры?
Создать функцию по отсеиванию - НЕ ВАРИАНТ?
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [n]-c0der](/avatars/avatar75882.jpg?1633257){kind=avatar}
Похожие темы
Линейный вид
