-
Публикаций
969 -
Зарегистрирован
-
Посещение
-
Победитель дней
1 -
Отзывы
0%
Тип контента
Профили
Форумы
Загрузки
Магазин
Инструкции
Весь контент Po6oKon
-
О кстати!! Спасибо за идею, буду писать брут / чекер для OVH бугага
-
Когда делать нечего Программа для автоматического поднятия тем на макси =) Скачать --удалено-- ЗЫ: Я только учусь и жду от вас критики ))
- 2 ответа
-
- 2
-
Приветствую макси давно сюда не заходил ) собственно говоря к вам вопрос, линяга еще актуальна? как донаты поживают? стоит вообще тратиться на сервер ?
-
Есть на дельфине кусок кода такой программы, тут проблема с потоками, с ними я сейчас учусь работать, никто не подскажет где может содержаться ошибка? По идее в 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.
-
Да конечно, вычитать с памяти игры - это хорошо. Но акуму в твоей защите тру, в любом случаи защищено вторжение в память игры впрочем. Единственный выход, это написать что-то вроде прожки которая будет брать хендл окна и ним работать. ЦП, ХП, МП, можно выводить цветами попиксельно, это альтернативный метод , если память игры будет шифроваться защитой.
-
Не встречал таких сервисов еще. Не ну это понятно, у меня веб часть - это северная сторона, нужен вывод с базы, а там с клиентской части будет идти чтение.
-
Еще вопрос, как вывести всё содержимое базы? В формате Mail;Pass
-
Благодарю. Проблема решена, всё работает. Тему клоуз.
-
Задал еще объект класса: $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
-
Запихнул твой код для проверки, та же самая выводится ошибка при обращении к GET запросу demo.ru/demo.php?mail=a@mail.ru&pass=a Только при обращении выводится ошибка, а файл bd.php - это обычный скриптяга для тестирования. Т.е. мне нужен объект в MySQLI?
-
В общем такая задача, есть кусок кода, но в нем что-то не так, что вылазит ошибка: 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';}}} ?>
-
Есть у кого какие варианты где премиум можно достать для этого файлообменника? Буду очень благодарен за помощь.
-
1.Где можно добывать ресурсы? Как стакато? 2.Как нублесс? Такой же как на ИЛе? Если проходить квест? 3.Где лучше всего добыть адену можно? 4.Выгодно ли крафтить и продавать? 5.Я не как не пойму систему СА, я скратил пуху Резак Реквиема, как туда впихнуть СА? Что для этого нужно? И где его вставлять? 6.Где в соло можно качаться начиная от 85 лвла за ножа? Может я форумом ошибся, но тут сидят люди которые знакомы с ладвой)) а я с РуОФФом не дружу, т.к. кроме ИЛа нигде толком не играл.
-
Немного отошел от л2, собственно говоря, какие еще боты могут работать на данный момент с руоффом?
-
Как думаете работает ботяга этот на руоффе?
-
Это артея как я понял, норм профа ? Какие еще дадите советы по РуОФФу?
-
Вот собственно говоря девушка позвала играть на РуОФФ, вродь как стартанул за ТХашку, думал боксы потаскать, так их нет =) Сам перешел с ИЛа, выше чем ГЕ не играл, кем тут проще раскрутиться на руоффе? что по баблу, что по качу?
-
Этот домен ко мне никак не отнесется. Если я взялся за работу, я доведу её до конца.
-
Что-то совсем в голову не лезет, хочу домен зарегать хакерский какой-нить для форума, но нет идей для названия, ну что поможете с названием? Домен: ру
-
Может ссылкой поделишься? Я помню ВКСпам от Димасика, но он каловый...
-
Где-то же валялись исходы фрозенов с котами? если не ошибаюсь
-
Есть у кого скриптяга или кмска, по людям, т.е. типу через форму поиска попытаться пробить человека? ну с базой я определюсь, но мне нужна скриптяга, есть у кого?
-
Поиграв в эту игру, мне стало жутко скучно, ты бегаешь, ищешь непонятно что, непонятно зачем. Может я путаю с DayZ, ну то ладно))
-
Устанавливать так же, как и другие.