17.11.2009, 22:43
|
|
Новичок
Регистрация: 19.01.2009
Сообщений: 8
С нами:
9109371
Репутация:
1
|
|
Подскажите.
проверяю список фтп. делаю через инди.
IdFTP1.Host := ftp;
IdFTP1.UserName := username;
IdFTP1.Password := password;
IdFTP1.Connect;
но медленно работает при проверках большого количества фтп. как проверку можно ускорить?
может кто поделится исходником или примером. можно пм.
спасибо.
|
|
|
17.11.2009, 23:34
|
|
Постоянный
Регистрация: 24.11.2008
Сообщений: 416
С нами:
9191105
Репутация:
100
|
|
--------true---------------
case <value> of
constant:expression;
end;
-----------false-------------
case <value> of
expression:expression;
end;
------------fix---------------
oO ??????????????
для меня открытие, что case не воспринимает выражения, действительно нельзя вместо константы подставить рандом числа к примеру?должен быть ведь обход... 
собственно говоря вот от источник проблеммы
ПС:вопрос актуален, но решен циклом, бриками, цитромоном
Последний раз редактировалось SaiRus; 18.11.2009 в 05:33..
|
|
|
|
18.11.2009, 03:14
|
|
Познающий
Регистрация: 03.12.2008
Сообщений: 56
С нами:
9176827
Репутация:
29
|
|
Можно ли в Delphi написать циклический сдвиг строки вправо\влево используя вставку на ассемблере?
И будет ли эта функция работать быстрее, чем например:
Код:
function (str: string; index: integer): string;
begin
Result := copy(string, index, length(str) - index) + copy(str, 1, index)
end;
Последний раз редактировалось StealthMaster; 18.11.2009 в 09:09..
|
|
|
|
18.11.2009, 06:53
|
|
Постоянный
Регистрация: 27.10.2008
Сообщений: 380
С нами:
9231117
Репутация:
149
|
|
boomba тебе нужна многопоточность, но если ты будешь использовать инди+многопоточность это сильно подвесит систему, тебе нужен Winsock. Вобщем для брутера фтп тебе нужна многопоточность+Winsock, исходники исчи сам, про winsock и фтп есть тут на ачате гдето, вроде в статьях. Ну а использование потоков смотри в учебниках.
|
|
|
|
18.11.2009, 10:56
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
2 StealthMaster то, что ты написал - это самый медленный вариант.
Проще будет просто циклом пробежаться по все строке и поменять элементы местами
|
|
|
|
18.11.2009, 15:53
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
С нами:
9785147
Репутация:
137
|
|
Так что советую почитать тебе на васме про инжект DLL в процесс.
Нашёл вот на сорцах ру
http://forum.sources.ru/index.php?showtopic=282574
Код:
function InjectLibrary(Process: LongWord; DLLPath: PChar): Boolean;
var
Parameters: Pointer;
BytesWritten, Thread, ThreadID: dword;
begin
Result := False;
Parameters := VirtualAllocEx(Process, nil, 4096, MEM_COMMIT, PAGE_READWRITE);
if Parameters = nil then
Exit;
WriteProcessMemory(Process, Parameters, Pointer(DLLPath), 4096, BytesWritten);
Thread := CreateRemoteThread(Process, nil, 0, GetProcAddress(GetModuleHandle('KERNEL32.DLL'), 'LoadLibraryA'), Parameters, 0, ThreadId);
WaitForSingleObject(Thread, 3000);
VirtualFreeEx(Process, Parameters, 0, MEM_RELEASE);
if Thread = 0 then
Exit;
CloseHandle(Thread);
Result := True;
end;
Только вот не понимаю как должна выглядеть переменная процесса (Process: LongWord), как её получить? Вроде ProcessID это Dword
Последний раз редактировалось ZET36; 18.11.2009 в 16:04..
|
|
|
|
18.11.2009, 16:31
|
|
Участник форума
Регистрация: 02.07.2008
Сообщений: 132
С нами:
9399214
Репутация:
52
|
|
вот что написанно в мсдн
Код:
LPVOID WINAPI VirtualAllocEx(
__in HANDLE hProcess,
__in LPVOID lpAddress,
__in SIZE_T dwSize,
__in DWORD flAllocationType,
__in DWORD flProtect
);
hProcess
The handle to a process. The function allocates memory within the virtual address space of this process.
тоесть в параметре функции Process: LongWord; ты должен передать хендл процесса с которым будеш работать.
хендл процесса получаеш через OpenProcess |
|
|
|
18.11.2009, 17:02
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
С нами:
9785147
Репутация:
137
|
|
transserg Спасибо! Буду прбывать
|
|
|
|
19.11.2009, 13:48
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
С нами:
8944114
Репутация:
5
|
|
Всем доброго времени суток!
Прочитал сию статью... Но функции такой нету...
Мб кто знает где туплю.. Заранее спасибо!
_http://www.xakep.ru/post/37143/default.asp?page=1
|
|
|
|
19.11.2009, 16:15
|
|
Познающий
Регистрация: 03.12.2008
Сообщений: 56
С нами:
9176827
Репутация:
29
|
|
Добавь в список используемых приложением юнитов WinSvc.
Код:
uses "все что было", WinSvc;
Должно помочь. потому что большая часть функций для работы с сервисами объявлена в WinSvc.Pas. |
|
|
|
|
 |
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 3 (пользователей: 0 , гостей: 3)
|
|
|
|
Похожие темы
Комбинированный вид
