Перейти к содержанию

Po6oKon

Постоялец
  • Публикаций

    969
  • Зарегистрирован

  • Посещение

  • Победитель дней

    1
  • Отзывы

    0%

Весь контент Po6oKon

  1. Po6oKon

    Продажа dedicated OVH

    О кстати!! Спасибо за идею, буду писать брут / чекер для OVH бугага
  2. Когда делать нечего Программа для автоматического поднятия тем на макси =) Скачать --удалено-- ЗЫ: Я только учусь и жду от вас критики ))
  3. Приветствую макси давно сюда не заходил ) собственно говоря к вам вопрос, линяга еще актуальна? как донаты поживают? стоит вообще тратиться на сервер ?
  4. Есть на дельфине кусок кода такой программы, тут проблема с потоками, с ними я сейчас учусь работать, никто не подскажет где может содержаться ошибка? По идее в label должны выводится значения и пуск GET Запросов, GET запросы как бы идут, но label не хочет работать и потоки все зависают. TNewThread = class(TThread) private FAcc:string; FPas:string; rez:integer; protected procedure Execute; override; public procedure Sync; constructor Create(CreateSuspended: Boolean); end; var Form1: TForm1; accounts, result:tstrings; HTTP:TIdHTTP; PublicFile, PrivateFile: textfile; CS:TcriticalSection; acc, thread:integer; work:boolean; json: Isuperobject; login, apikey: string; implementation {$R *.dfm} procedure TForm1.FormShow(Sender: TObject); var http:thttpsend; begin HTTP:=THTTPsend.Create; result:=tstringlist.Create; if HTTP.HTTPMethod('GET', 'http://androided.hostoi.com/al.php') then begin result.LoadFromStream(HTTP.Document); json:=SO(result.Text); sLabel8.Caption:=json.S['count_lines']; end; http.Free; result.Free; end; procedure TForm1.sButton1Click(Sender: TObject); begin if sOpenDialog1.Execute then begin accounts.Clear; accounts.LoadFromFile(sOpenDialog1.FileName); sLabel4.Caption:=inttostr(accounts.Count); end; end; procedure TForm1.sButton2Click(Sender: TObject); begin AssignFile(PublicFile, ExtractFilePath(Application.ExeName)+'public.txt'); Rewrite(PublicFile); CloseFile(PublicFile); AssignFile(PrivateFile, ExtractFilePath(Application.ExeName)+'private.txt'); Rewrite(PrivateFile); CloseFile(PrivateFile); sLabel5.Caption:='0'; sLabel6.Caption:='0'; Acc:=-1; Work:=True; sButton2.Enabled:=False; sButton3.Enabled:=True; sButton1.Enabled:=False; sCheckBox1.Enabled:=False; for Thread := 1 to 5 do TNewThread.Create(false); Thread:=5; end; procedure TForm1.sButton3Click(Sender: TObject); begin Work:=False; end; constructor TNewThread.Create(CreateSuspended: Boolean); begin inherited Create(CreateSuspended); end; procedure TNewThread.Execute; var CurAcc:integer; HTTP: TIdHTTP; result, param:string; begin while Work do begin CS.Enter; Inc(Acc); if Acc<Accounts.Count then CurAcc:=Acc else Work:=false; CS.Leave; if Work then begin HTTP:=TIdHTTP.create(nil); //Создаём HTTP HTTP.HandleRedirects:=false; //Запрещаем редирект 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 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 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; try result:=HTTP.GET('http://androided.hostoi.com/bd.php?mail='+FAcc+'&pass='+FPas); json:=SO(result); if json.S['PUBLIC']='PUBLIC' then Rez:=-1 else if json.S['PRIVATE']='PRIVATE' then Rez:=1; except Rez:=-1; end; HTTP.Free; //УБиваем HTTP Synchronize(Sync); //Делаем синхронизацию. Самая важная строка! end; end; dec(Thread); if Thread=0 then begin ShowMessage('OK'); //No comments... Form1.sButton2.Enabled:=True; Form1.sButton3.Enabled:=False; Form1.sButton1.Enabled:=True; Form1.sCheckBox1.Enabled:=True; end; end; procedure TNewThread.Sync; begin case Rez of 0:begin Accounts.Add(FAcc+';'+FPas); end; 1:begin Append(PrivateFile); Writeln(PrivateFile,FAcc+';'+FPas); Closefile(PrivateFile); Form1.sLabel6.Caption:=IntToStr(StrToInt(Form1.slabel6.Caption)+1); end; -1:begin Append(PublicFile); Writeln(PublicFile,FAcc+';'+FPas); Closefile(PublicFile); Form1.slabel5.Caption:=IntToStr(StrToInt(Form1.slabel5.Caption)+1); end; end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin work:=false; Accounts.Free; CS.Free; end; procedure TForm1.FormCreate(Sender: TObject); begin Accounts:=Tstringlist.create; CS:=TcriticalSection.create; login:=''; apikey:=''; end; end.
  5. Да конечно, вычитать с памяти игры - это хорошо. Но акуму в твоей защите тру, в любом случаи защищено вторжение в память игры впрочем. Единственный выход, это написать что-то вроде прожки которая будет брать хендл окна и ним работать. ЦП, ХП, МП, можно выводить цветами попиксельно, это альтернативный метод , если память игры будет шифроваться защитой.
  6. Не встречал таких сервисов еще. Не ну это понятно, у меня веб часть - это северная сторона, нужен вывод с базы, а там с клиентской части будет идти чтение.
  7. Еще вопрос, как вывести всё содержимое базы? В формате Mail;Pass
  8. Благодарю. Проблема решена, всё работает. Тему клоуз.
  9. Задал еще объект класса: $mysqli = @new mysqli($host, $user, $pass, $db); Вылезли еще ошибочки Warning: mysqli::real_escape_string() [mysqli.real-escape-string]: Couldn't fetch mysqli in /home/a9234471/public_html/bd.php on line 6 Warning: mysqli::query() [mysqli.query]: Couldn't fetch mysqli in /home/a9234471/public_html/bd.php on line 8 Fatal error: Call to a member function fetch_assoc() on a non-object in /home/a9234471/public_html/bd.php on line 9
  10. Запихнул твой код для проверки, та же самая выводится ошибка при обращении к GET запросу demo.ru/demo.php?mail=a@mail.ru&pass=a Только при обращении выводится ошибка, а файл bd.php - это обычный скриптяга для тестирования. Т.е. мне нужен объект в MySQLI?
  11. В общем такая задача, есть кусок кода, но в нем что-то не так, что вылазит ошибка: Fatal error: Call to a member function real_escape_string() on a non-object in /public_html/bd.php on line 5 В чем может быть проблема ? <?php $link = mysql_connect( 'host', 'db', 'pass', 'base'); if (!empty($_GET['mail'])){ if (!empty($_GET['pass'])){ $mail = $mysqli->real_escape_string($_GET['mail']); $pass = $mysqli->real_escape_string($_GET['pass']); $result = $mysqli->query("SELECT * FROM base WHERE mail='$mail' AND pass='$pass' ORDER BY id DESC LIMIT 1"); $row = mysqli_fetch_assoc($result); if (empty($row['id'])){ echo 'PRIVATE'; }else{ echo 'PUBLIC';}}} ?>
  12. Есть у кого какие варианты где премиум можно достать для этого файлообменника? Буду очень благодарен за помощь.
  13. 1.Где можно добывать ресурсы? Как стакато? 2.Как нублесс? Такой же как на ИЛе? Если проходить квест? 3.Где лучше всего добыть адену можно? 4.Выгодно ли крафтить и продавать? 5.Я не как не пойму систему СА, я скратил пуху Резак Реквиема, как туда впихнуть СА? Что для этого нужно? И где его вставлять? 6.Где в соло можно качаться начиная от 85 лвла за ножа? Может я форумом ошибся, но тут сидят люди которые знакомы с ладвой)) а я с РуОФФом не дружу, т.к. кроме ИЛа нигде толком не играл.
  14. Немного отошел от л2, собственно говоря, какие еще боты могут работать на данный момент с руоффом?
  15. Как думаете работает ботяга этот на руоффе?
  16. Это артея как я понял, норм профа ? Какие еще дадите советы по РуОФФу?
  17. Вот собственно говоря девушка позвала играть на РуОФФ, вродь как стартанул за ТХашку, думал боксы потаскать, так их нет =) Сам перешел с ИЛа, выше чем ГЕ не играл, кем тут проще раскрутиться на руоффе? что по баблу, что по качу?
  18. Этот домен ко мне никак не отнесется. Если я взялся за работу, я доведу её до конца.
  19. Что-то совсем в голову не лезет, хочу домен зарегать хакерский какой-нить для форума, но нет идей для названия, ну что поможете с названием? Домен: ру
  20. Может ссылкой поделишься? Я помню ВКСпам от Димасика, но он каловый...
  21. Где-то же валялись исходы фрозенов с котами? если не ошибаюсь
  22. Есть у кого скриптяга или кмска, по людям, т.е. типу через форму поиска попытаться пробить человека? ну с базой я определюсь, но мне нужна скриптяга, есть у кого?
  23. Po6oKon

    Продам сервер rust

    Поиграв в эту игру, мне стало жутко скучно, ты бегаешь, ищешь непонятно что, непонятно зачем. Может я путаю с DayZ, ну то ладно))
  24. Устанавливать так же, как и другие.
×
×
  • Создать...