Delphi Support

Всем привет! Может быть кто-нибудь поможет с кодом, благодаря которому можно разбить базу на определенное количество строк?

 

for i:=Base.Count-1 downto 0 do Все просто же

 

Нет, я имею ввиду, что нужно программно разбить базу, к примеру, по 500 строк и засунуть их в текстовые документы.
P.S. Все могу сделать, кроме момента разбития

Спойлер: Получается что-то типа этого. Смотрим!

 

Напиши в скайп , помогу

 

Код:

procedure TNewThread.Execute;
var
  CurAcc, tp: Integer;
  HTTP: THTTPSend;
  IP, Port: string;
  Result, result2,result3, src: Tstringlist;
  Data: TStringStream;
  token, get, captcha: string;
begin
  while Work do
  begin
    CS.Enter;
    Inc(Acc);
    if Acc < Accounts.Count then
      CurAcc := Acc
    else
      Work := false;
    Inc(tp);
    if tp = Proxy.Count - 1 then
      tp := 0;
    CS.Leave;
    if Work then
    begin
    try
    if pos(':', Accounts[CurAcc])<>0 then
     begin
      FAcc:=Copy(Accounts[CurAcc], 1, Pos(':',Accounts[CurAcc])-1);
      fpas:=Copy(Accounts[CurAcc], Pos(':', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
    end
     else
      begin
       FAcc:=Copy(Accounts[CurAcc], 1, Pos(';',Accounts[CurAcc])-1);
      fpas:=Copy(Accounts[CurAcc], Pos(';', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
    end;


     http:=thttpsend.create;
    if form1.sRadioButton1.Checked = true then begin
      http.ProxyHost:=Copy(Proxy[tp],1,Pos(':',Proxy[tp])-1);
      http.ProxyPort:=Copy(Proxy[tp],Pos(':',Proxy[tp])+1,Length(Proxy[tp]));
    end;
    if form1.sRadioButton2.Checked = true then begin
      http.Sock.SocksIP:=Copy(Proxy[tp],1,Pos(':',Proxy[tp])-1);
      http.Sock.SocksPort:=Copy(Proxy[tp],Pos(':',Proxy[tp])+1,Length(Proxy[tp]));
    end;

по логике прокси должны работать,а на деле не работают, а без покси все брутит.Подскажите что не так

 

Попробуй так:

 

как снизить нагрузку на цп?

 

ММ, снизить при бруте или чеке? Если да то - если софт приватный и у тебя на софте стоит зашита например от HTTP analyzer'a, то удали его ибо в "TASK MANAGER" идёт много запросов vchost,tasskill, и этим цп перегружается и начинает жестко лагать, было так раньше.

 

Зачем убирать? Просто ограничить количество проверок до 1Hz. Да и в цикле не крутить.

 

Врубаем мозг, идем решать задачу:

У нас есть 2 переменные типа Integer.
Как поменять их местами не используя 3-й переменной?
Решив эту задачку ты начнешь соображать почему ЦП и память кушает жестко.

 

Каким образом уменьшение переменных снижает нагрузку на цп? Нагрузка из за цикла/лов.

 

Всем привет, я тут новенький.
В общем ситуация, надо пропарсить фб на интересующую меня инфу.
Проблема в том, что я не могу просниффать пост запрос, сайт возвращает только 2 гета.
Кто может помочь с ситуацией?

Тем, что присвоить 3 раза менее продуктивнее, чем прибавить и отнять.

 

Эта задача является логическим исходом того, что нужно использовать меньше переменных, операторов, циклов.
Для загрузки базы следует использовать массив(он не жрет никаких ресурсов, вообще).

По-поводу того, что у тебя не получается получить список запросов - руки плохие. В Charles прокси запихнул, и сидишь пишешь софт дальше.