1. Здравствуй, Гость ! Для получения привилегий и просмотра хайдов предлагаем группу Премиум
  2. Голосуем за Стиль сайта

[Source] Проверка на анти паблик

Тема в разделе "Исходники", создана пользователем /intactdev, 25 авг 2014.

  1. TEMIKgt

    TEMIKgt Администратор Команда форума

    1.387
    1.100
    113
    [Source] Проверка на анти паблик, Для примера можно взять Pastebin.com.
    Вообщем, кто не много знаком с Delphi, тот поймет.

    Код:
    var
      i:integer;
      str:string;
    begin
      // /intactdev [DELHACK.NET // BHF.SU]
      for i:= 0 to Form1.sMemo1.Lines.Count-1 do begin
        str:=Form1.idHTTP1.Get('http://pastebin.com/JE0qSbqL');  //Переходим по ссылке где будет лежать база.
        if pos(Form1.sMemo1.Lines, str)<>0 then  //Проверяем есть ли в базе данные из sMemo1
          begin
            Form1.sLabel6.Caption:=IntToStr(StrToInt(Form1.sLabel6.Caption)+1);  // Если строка паблик, то +1
            Form1.sMemo2.Lines.add(Form1.sMemo1.Lines); // Добавление паблик строки в Memo
          end
            else
          begin
           Form1.sLabel4.Caption:=IntToStr(StrToInt(Form1.sLabel4.Caption)+1);  // Если строка приват, то +1
           Form1.sMemo3.Lines.add(Form1.sMemo1.Lines); // Добавление приват строки в Memo
          end;
        Synchronize(ShowResult);
    end;
      Form1.sButton1.Enabled:=true;
      Form1.sButton2.Enabled:=true;
      Form1.sButton3.Enabled:=false;
      MessageDlg('Ваши результаты                                        '+#10+#13+'Приват: '+Form1.sLabel4.Caption+#10+#13+'Паблик: '+Form1.sLabel6.Caption, mtConfirmation, [mbOk], 0);   // Результат после завершения работи.
    end;


    Для новичков оставил комментарий в коде, на всякий случай ))))
    Этот код лучше всего конечно в поток засунуть )
     
  2. injection

    injection Пользователь

    116
    14
    18
    Проверка на паблик может? ) Под Редактируй
     
  3. TEMIKgt

    TEMIKgt Администратор Команда форума

    1.387
    1.100
    113
    Да нет, так должно и быть.
     
    Последнее редактирование: 25 авг 2014
  4. Jojo

    Jojo Пользователь

    10
    0
    1