Задаем вопросы,получаем ответы

Тема в разделе 'Delphi / Pascal', создана пользователем denbar, 24 окт 2010.

  1. Оффлайн

    • Модератор

    VANS Модератор

    На форуме с:
    7 авг 2011
    Сообщения:
    661
    Симпатии:
    1.073
    Баллы:
    198
    Переходи в код программы и вот в этото место:
    Код:
      public
        { Public declarations }
      end;
    Вписывай это:

    Код:
    function Pars(T_, ForS, _T:string):string;
    Далее вписывай в любую часть кода вт это:

    Код:
    function TForm1.Pars(T_, ForS, _T: string): string;
    var a, b:integer;
    begin
    Result := '';
    if (T_='') or (ForS='') or (_T='') then Exit;
    a:=Pos(T_, ForS);
    if a=0 then Exit else a:=a+Length(T_);
    ForS:=Copy(ForS, a, Length(ForS)-a+1);
    b:=Pos(_T, ForS);
    if b>0 then
    Result:=Copy(ForS, 1, b - 1);
    end;
    Юзать это так:
    Код:
    label1.Caption:=pars('<URL>', Переменная в которой хранится код страницы, '</URL>');
    ykpon, sansen и -=ExE=- нравится это.

  2. Оффлайн
    • Пользователь

    Oops.exe НовиЧЁг

    На форуме с:
    17 авг 2011
    Сообщения:
    37
    Симпатии:
    18
    Баллы:
    8
    Какую версию лучше всего скачать с http://delphilab.ru/ ?(у меня винда XP)

  3. Оффлайн

    • Модератор

    VANS Модератор

    На форуме с:
    7 авг 2011
    Сообщения:
    661
    Симпатии:
    1.073
    Баллы:
    198
    Какая тебе нравится!
    В Delphi7 проги получаются весом 300кб - 1мб, а в 2010 от 1мб
    В Delphi7 не отправишь запрос на сайт с httpS протоколом!

    А вообще то качай обе, сам разберёшся какая по душе, у меня лично стоят 2 и не конфликтуют!
    ykpon, Oops.exe и sansen нравится это.

  4. Оффлайн
    • Пользователь

    Shift OS НовиЧЁг

    На форуме с:
    19 ноя 2011
    Сообщения:
    5
    Симпатии:
    11
    Баллы:
    3
    Реально выучить Delphi самому?

  5. Оффлайн

    Miracle Guest

    На форуме с:
    Сообщения:
    0
    Симпатии:
    0
    Баллы:
    0
    конечно, почитай книги научишься за неделю

  6. Оффлайн

    • ВИП

    007 Honored

    На форуме с:
    10 мар 2011
    Сообщения:
    405
    Симпатии:
    248
    Баллы:
    43
    Shift OS советую смотреть простые уроки по простым программам(фейки,часы,мп3 плеер) и выполнять их..я вон уже за два дня кое что понел уже...

  7. Оффлайн

    • Модератор

    VANS Модератор

    На форуме с:
    7 авг 2011
    Сообщения:
    661
    Симпатии:
    1.073
    Баллы:
    198
    Начальные азы реально!

    Вот книжечка: http://rghost.ru/31006301 Я по ней в начале учился.

    :shok:
    За неделю освоишь только создание фэйков!
    Если ты имел в виду не фэйки, а нормальные программы - даю тебе неделю (7 дней) на изучение Delphi, и на 8-й день с тебя многопоточный, безпроксивый брут WebMoney :-D
    ykpon, Worm1x, Shift OS и 2 другим нравится это.

  8. Оффлайн

    • В бане

    boss3636 Banned

    На форуме с:
    21 ноя 2011
    Сообщения:
    16
    Симпатии:
    7
    Баллы:
    3
    люди помогите посте написания программы через Delphi создаётся несколько файлов, как мне со всего этого собрать единную exe программу , срочно тадо , помогите

  9. Оффлайн
    • Пользователь

    lexan115 НовиЧЁг

    На форуме с:
    7 апр 2011
    Сообщения:
    36
    Симпатии:
    22
    Баллы:
    8
    прочитал много статей, но нигде не видел как делать много режимов брута (One login, One pass и т.д.)

  10. Оффлайн
    • Пользователь

    lexan115 НовиЧЁг

    На форуме с:
    7 апр 2011
    Сообщения:
    36
    Симпатии:
    22
    Баллы:
    8

  11. Оффлайн

    • Модератор

    VANS Модератор

    На форуме с:
    7 авг 2011
    Сообщения:
    661
    Симпатии:
    1.073
    Баллы:
    198
    Генерировать из полученных данных source.

  12. Оффлайн
    • Пользователь

    lexan115 НовиЧЁг

    На форуме с:
    7 апр 2011
    Сообщения:
    36
    Симпатии:
    22
    Баллы:
    8
    кто подскажет в чем ошибка ?

    //формируем POST запрос
    Send:=TStringList.Create;
    Send.Add('login='+email);
    Send.Add('password='+password);
    Send.Add('mode=email');
    Send.Add('from=mail');
    Send.Add('lifetime=alltime');
    Send.Add('subm=enter');
    try //перехват ошибок
    HTTP.Request.Referer:='http://snooit.com/ '; //авторизуемся с главной страницы
    pg:=HTTP.Post(http://snooit.com/forgot ', send); //отправляем запрос
    result:=2; //если нет редирека то невалид
    except
    if HTTP.ResponseCode<>302 then result:=0 else result:=1; //редирект
    end;

  13. Оффлайн
    • Пользователь

    lexan115 НовиЧЁг

    На форуме с:
    7 апр 2011
    Сообщения:
    36
    Симпатии:
    22
    Баллы:
    8

Поделиться этой страницей