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

Denis97832

Пользователи
  • Постов

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

  • Посещение

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

    1

Сообщения, опубликованные Denis97832

  1. Всем привет!

    Помогите сделать автообновление прокси с бруте

    Я вот делал, но при получении новых прокси брут просто останавливается и не идет дальше

    В чем может быть проблемма?

    Вот сам поток обновления

     

    procedure TMyThread.Execute;varHTTP: TIdHTTP;Send: TStringList;Proxy1: String;begin  HTTP:=tidhttp.Create(nil);  Send:=TStringList.Create;  Send.Add('c='+Form23.sEdit2.Text);  try    HTTP.Post('http://hideme.ru/login' Send)  except  if Form23.sComboBox2.Text='http/s' then begin  Proxy1:=Http.Get('http://hideme.ru/api/proxylist.txt?maxtime=2000&type=hs&out=plain〈=ru');  ProxyList.Clear;  ProxyList.Insert(0,proxy1);  end;  end;  Form23.proxylabel.Caption := inttostr(ProxyList.Count); // показывает что 1 прокси, а на самом деле их многоend;
     
  2. Да легко, убери из кода эту строчку:

    if (!user_access('user_ban_set') && !user_access('user_ban_set_h') && !user_access('user_ban_unset')){header("Location: /index.php?".SID);exit;}
    И, возможно еще придется убрать и эти:
    adm_check();if (isset($_GET['id']))$ank['id']=intval($_GET['id']);else {header("Location: /index.php?".SID);exit;}
    Что они делают - непонятно, т.к. первой строчкой "adm_check()" - видимо, стоит проверка, является-ли пользователь администратором, а остальные - какая-то проверка ID, видимо, проверка связана с "adm_check()". Точно сказать не могу, т.к. всего кода не видел. Попробуй сам просмотреть, что код делает.

    Спасибо Вам! На выходных попробую и отпишусь)

  3. При текущей структуре таблицы:

    id_user    |  id_ban    |  prich    |  time    |--------------------------------------------------
    Забанить пользователя по логину не получится, если система настроена на проверку бана по ID пользователя, а изменить - легко.
    • Переименовываешь колонку "id_user", например, в "username".
    • Удаляешь колонку "id_ban"
    • Изменяешь код бана, на этот:
    ...mysql_query("INSERT INTO `ban` (`username`, `prich`, `time`) VALUES ('$user[nick]', '$prich', '$timeban')");...
    Но тогда тебя ждет несколько неприятных моментов:
    • Банится пользователь по имени, а это значит, что смена ника у пользователя равно автоматическому разбану.
    • Придется править весь остальной код, который работает с ID забаненного пользователя.
    Это, конечно, если я правильно понял твой вопрос.

    Нифига) Спасибо большое) Как можно сделать чтоб доступ к странице где можно банить имел каждый заходящий по этому адресу?

  4. Вот к меня есть скрипт бана, но я как только его не менял ничего не получается. 

    Помогите сделать чтоб переходя по ссылке можно было банить пользователя по логину, а не по id как в этом скрипте и убрать все лишнее

    <?include_once '../sys/inc/start.php';include_once '../sys/inc/compress.php';include_once '../sys/inc/sess.php';include_once '../sys/inc/home.php';include_once '../sys/inc/settings.php';include_once '../sys/inc/db_connect.php';include_once '../sys/inc/ipua.php';include_once '../sys/inc/fnc.php';include_once '../sys/inc/adm_check.php';include_once '../sys/inc/user.php'; if (!user_access('user_ban_set') && !user_access('user_ban_set_h') && !user_access('user_ban_unset')){header("Location: /index.php?".SID);exit;}  adm_check();if (isset($_GET['id']))$ank['id']=intval($_GET['id']);else {header("Location: /index.php?".SID);exit;}  if (mysql_result(mysql_query("SELECT COUNT(*) FROM `user` WHERE `id` = '$ank[id]' LIMIT 1"),0)==0){header("Location: /index.php?".SID);exit;}$ank=get_user($ank['id']);if ($user['level']<=$ank['level']){header("Location: /index.php?".SID);exit;} $set['title']='Бан пользователя '.$ank['nick'];include_once '../sys/inc/thead.php';title(); if (isset($_GET['unset']) && mysql_result(mysql_query("SELECT COUNT(*) FROM `ban` WHERE `id_user` = '$ank[id]' AND `id` = '".intval($_GET['unset'])."'"),0) && user_access('user_ban_unset')){$ban_info=mysql_fetch_assoc(mysql_query("SELECT * FROM `ban` WHERE `id_user` = '$ank[id]' AND `id` = '".intval($_GET['unset'])."'"));$ank2=mysql_fetch_assoc(mysql_query("SELECT * FROM `user` WHERE `id` = '$ban_info[id_ban]' LIMIT 1"));if (($user['level']>$ank2['level'] || $user['id']==$ank2['id']) || $user['level']==4){mysql_query("UPDATE `ban` SET `time` = '$time' WHERE `id` = '".intval($_GET['unset'])."' LIMIT 1");admin_log('Пользователи','Бан',"Снятие бана пользователя '[url=/amd_panel/ban.php?id=$ank[id]]$ank[nick][/url]'");msg('Время бана обнулено');}else$err[]='Нет прав';} if (isset($_POST['ban_pr']) && isset($_POST['time']) && isset($_POST['vremja']) && (user_access('user_ban_set') || user_access('user_ban_set_h'))){$timeban=$time;if ($_POST['vremja']=='min')$timeban+=intval($_POST['time'])*60;if ($_POST['vremja']=='chas')$timeban+=intval($_POST['time'])*60*60;if ($_POST['vremja']=='sut')$timeban+=intval($_POST['time'])*60*60*24;if ($_POST['vremja']=='mes')$timeban+=intval($_POST['time'])*60*60*24*30;if ($timeban<$time)$err[]='Ошибка времени бана'; if (!user_access('user_ban_set'))$timeban=min($timeban, $time+3600*24); $prich=$_POST['ban_pr'];if (strlen2($prich)>1024){$err[]='Сообщение слишком длинное';}if (strlen2($prich)<10){$err[]='Необходимо подробнее указать причину';}$prich=my_esc($prich);if (!isset($err)){mysql_query("INSERT INTO `ban` (`id_user`, `id_ban`, `prich`, `time`) VALUES ('$ank[id]', '$user[id]', '$prich', '$timeban')");admin_log('Пользователи','Бан',"Бан пользователя '[url=/adm_panel/ban.php?id=$ank[id]]$ank[nick][/url]' до ".vremja($timeban)." по причине '$prich'");msg('Пользователь успешно забанен');}} err();aut(); $k_post=mysql_result(mysql_query("SELECT COUNT(*) FROM `ban` WHERE `id_user` = '$ank[id]'"),0);$k_page=k_page($k_post,$set['p_str']);$page=page($k_page);$start=$set['p_str']*$page-$set['p_str'];echo "<table class='post'>\n";  if ($k_post==0){echo "   <tr>\n";echo "  <td class='p_t'>\n";echo "Нет нарушений\n";echo "  </td>\n";echo "   </tr>\n";}  $q=mysql_query("SELECT * FROM `ban` WHERE `id_user` = '$ank[id]' ORDER BY `time` DESC LIMIT $start, $set[p_str]");while ($post = mysql_fetch_assoc($q)){ $ank2=mysql_fetch_assoc(mysql_query("SELECT * FROM `user` WHERE `id` = $post[id_ban] LIMIT 1"));echo "   <tr>\n";if ($set['set_show_icon']==2){echo "  <td class='icon48' rowspan='2'>\n";avatar($ank2['id']);echo "  </td>\n";}elseif ($set['set_show_icon']==1){echo "  <td class='icon14'>\n";echo "<img src='/style/themes/$set[set_them]/user/$ank2[pol].png' alt='' />";echo "  </td>\n";}echo "  <td class='p_t'>\n";echo "<a href='/info.php?id=$ank2[id]'>$ank2[nick]</a>".online($ank2['id']).": до ".vremja($post['time'])."\n"; echo "  </td>\n";echo "   </tr>\n";echo "   <tr>\n";if ($set['set_show_icon']==1)echo "  <td class='p_m' colspan='2'>\n"; else echo "  <td class='p_m'>\n";echo esc(trim(br(bbcode(smiles(links(stripcslashes(htmlspecialchars($post['prich']))))))))."<br />\n";if ($post['time']>$time && user_access('user_ban_unset'))echo "<a href='?id=$ank[id]&unset=$post[id]'>Снять бан</a><br />\n";echo "  </td>\n";echo "   </tr>\n";}   echo "</table>\n";if ($k_page>1)str('?id='.$ank['id'].'&',$k_page,$page); // Вывод страниц   if (user_access('user_ban_set') || user_access('user_ban_set_h')){echo "<form action=\"ban.php?id=$ank[id]&$passgen\" method=\"post\">\n";echo "Причина:<br />\n";echo "<textarea name=\"ban_pr\"></textarea><br />\n";echo "Время бана ".(user_access('user_ban_set')?null:'(max 1 сутки)').":<br />\n";echo "<input type='text' name='time' title='Время бана' value='10' maxlength='11' size='3' />\n";echo "<select class='form' name=\"vremja\">\n";echo "<option value='min'>Минуты</option>\n";echo "<option ".(($k_post>1)?'selected="selected" ':null)."value='chas'>Часы</option>\n";echo "<option value='sut'>Сутки</option>\n";echo "<option value='mes'".(user_access('user_ban_set')?null:' disabled="disabled"').">Месяцы</option>\n";echo "</select><br />\n";echo "<input type='submit' value='Забанить' />\n";echo "</form>\n";}else{echo "<div class='err'>Нет прав для того, чтобы забанить пользователя</div>\n";} echo "<div class='foot'>\n";echo "»<a href=\"/mail.php?id=$ank[id]\">Написать сообщение</a><br />\n";echo "«<a href=\"/info.php?id=$ank[id]\">В анкету</a><br />\n";if (user_access('adm_panel_show'))echo "«<a href='/adm_panel/'>В админку</a><br />\n";echo "</div>\n";   include_once '../sys/inc/tfoot.php';?> 
  5. Добавил этот код и все норм

    function RussianToUnicode(S: String): String;var Wrd:Word;pW,pR:PWord;len:Integer;beginpW:=@S[1];len:=Length(S);SetLength(Result,len);pR:=@Result[1];while Len<>0 do beginWrd:=pW^;case Wrd of$C0..$DF,$E0..$FF:pR^:=Wrd+$0350;else pR^:=Wrd;end;inc(pW);inc(pR);dec(Len);end;end;
  6. Всем привет)
    Хочу создать новости в memo, но у меня показывает какие-то каракули. Как исправить чтоб нормальный текст показыввало?
    У меня вот такой код 

    Memo1.text:=utf8String(IdHTTP1.get('http://site.ru/new.txt'));

     

  7. Вот весь код инжектора. Компилирую на Delphi xe5

     InjectDLL(PAnsiChar(GetCurrentDir+'hack.dll'), StrToInt(EpiD)); // В ЭТОЙ СТРОКЕ ОШИБКА

     

    unit Unit1;interfaceuses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,  Dialogs, TlHelp32, Buttons, StdCtrls, jpeg, ExtCtrls, sSkinManager,  sEdit, sGauge, sButton, sLabel, ComCtrls, sTrackBar, sPanel, sSpeedButton,  sStatusBar, ShellAPI, sCheckBox, sGroupBox, sBitBtn;type  TForm1 = class(TForm)    sSkinManager1: TsSkinManager;    Button1: TButton;    Button2: TButton;    Timer1: TTimer;    Timer2: TTimer;    sLabel2: TsLabel;    procedure FormCreate(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Timer1Timer(Sender: TObject);    procedure Timer2Timer(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}function processExists(exeFileName: string): Boolean;//Функция поиска процессаvar  ContinueLoop: BOOL;  FSnapshotHandle: THandle;  FProcessEntry32: TProcessEntry32;begin  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);  Result := False;  while Integer(ContinueLoop) <> 0 do  begin    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =      UpperCase(ExeFileName))) then    begin      Result := True;    end;    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);  end;  CloseHandle(FSnapshotHandle);end;function GetOSVersion: Cardinal;//Проверка версии Windowsvar  OSVersionInfo: TOSVersionInfo;begin  Result := 0;  FillChar(OSVersionInfo, Sizeof(OSVersionInfo), 0);  OSVersionInfo.dwOSVersionInfoSize := SizeOf(OSVersionInfo);  if GetVersionEx(OSVersionInfo) then  begin    if OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then    begin      if OSVersionInfo.dwMajorVersion = 5 then      begin        if OSVersionInfo.dwMinorVersion = 0 then          Result := 50//Windows 2000        else if OSVersionInfo.dwMinorVersion = 2 then          Result := 52//Windows 2003        else if OSVersionInfo.dwMinorVersion = 1 then          Result := 51//Windows XP      end;      if OSVersionInfo.dwMajorVersion = 6 then      begin        if OSVersionInfo.dwMinorVersion = 0 then          Result := 60//Windows Vista        else if OSVersionInfo.dwMinorVersion = 1 then          Result := 61;//Windows 7      end;    end;  end;end;function InjectDLL(dwPID: DWORD; DLLPath: pwidechar): integer;vardwThreadID: Cardinal;hProc, hThread, hKernel: NativeUInt;BytesWritten: NativeUInt;pRemoteBuffer, pLoadLibrary: Pointer;begintryhProc := OpenProcess(PROCESS_ALL_ACCESS, False, dwPID);if hProc = 0 thenbeginResult := 0;Exit;end;pRemoteBuffer := VirtualAllocEx(hProc, nil, Length(DLLPath) + 1, MEM_COMMIT,PAGE_READWRITE);if pRemoteBuffer = nil thenbeginResult := 0;Exit;end;if WriteProcessMemory(hProc, Pointer(pRemoteBuffer), lpvoid(DLLPath),Length(DLLPath) + 1, BytesWritten) = False thenbeginResult := 0;Exit;end;hKernel := GetModuleHandle(pwidechar('kernel32.dll'));pLoadLibrary := (GetProcAddress(hKernel, pansichar('LoadLibraryA')));hThread := CreateRemoteThread(hProc, Pointer(nil), 0, Pointer(pLoadLibrary),Pointer(pRemoteBuffer), 0, dwThreadID);WaitForSingleObject(hThread, INFINITE);VirtualFreeEx(hProc, Pointer(pRemoteBuffer), Length(DLLPath) + 1,MEM_RELEASE);CloseHandle(hThread);CloseHandle(hProc);// ShowMessage(IntToStr(hThread)+' '+ inttostr(dwThreadID));Result := 1;excepton d: exception dobeginend;end;end;procedure TForm1.Button1Click(Sender: TObject);var  hSnap:THandle;  pe:TProcessEntry32;  pid: DWORD;  EpiD: string;beginif not processExists('hl.exe') then   //Проверка процесса   begin   //Если не найден   ShowMessage('Сначала игру');   end   else   begin   //Запущен:   //1. Поиск процесса   pe.dwSize:=SizeOf(pe);   hSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);   If Process32First(hSnap,pe) then    While Process32Next(hSnap,pe) do      if ExtractFileName(pe.szExeFile)='hl.exe' then     EpiD:=IntToStr(pe.th32ProcessID);   //2. Внедрение DLL     begin         if FileExists(GetCurrentDir+'hack.dll') then       begin       InjectDLL(PAnsiChar(GetCurrentDir+'hack.dll'), StrToInt(EpiD)); // В ЭТОЙ СТРОКЕ ОШИБКА       ShowMessage('Чит запущен,Свернуть-Развернуть меню чита на кнопку HOME');       Application.Terminate;       end       else       begin       ShowMessage('Ошибка!');       Application.Terminate;       end;     end;   end;end;
  8. <?php	if (isset($_GET['login'])) { $login = $_GET['login']; if ($login == '') { unset($login);} } //заносим введенный пользователем логин в переменную $login, если он пустой, то уничтожаем переменную	if (isset($_GET['password'])) { $password = $_GET['password']; if ($password =='') { unset($password);} }	//заносим введенный пользователем пароль в переменную $password, если он пустой, то уничтожаем переменную	if (empty($login) or empty($password)) //если пользователь не ввел логин или пароль, то выдаем ошибку и останавливаем скрипт	{		exit ("Вы ввели не всю информацию, венитесь назад и заполните все поля!");	}	//если логин и пароль введены,то обрабатываем их, чтобы теги и скрипты не работали, мало ли что люди могут ввести	$login = stripslashes($login);	$login = htmlspecialchars($login);	$password = stripslashes($password);	$password = htmlspecialchars($password);	//удаляем лишние пробелы	$login = trim($login);	$password = trim($password);	// подключаемся к базе	include ("bd.php");// файл bd.php должен быть в той же папке, что и все остальные, если это не так, то просто измените путь	$result = mysql_query("SELECT * FROM users WHERE login='$login'",$db); //извлекаем из базы все данные о пользователе с введенным логином	$myrow = mysql_fetch_array($result);	if (empty($myrow['password']))	{		//если пользователя с введенным логином не существует		exit ("0");	}	else {		//если существует, то сверяем пароли		if ($myrow['password']==$password) {			//если пароли совпадают, то запускаем пользователю сессию! Можете его поздравить, он вошел!			$_SESSION['login']=$myrow['login'];			$_SESSION['id']=$myrow['id'];//эти данные очень часто используются, вот их и будет "носить с собой" вошедший пользователь			echo "1";		}		else {			//если пароли не сошлись			exit ("0");		}	}?> 
    • Плюс 2
  9. Чего ты не понял? Тебе сказали, что весь скрипт за тебя писать не будут.

    Всё что необходимо для написания своего скрипа ты уже получил в этом топике.

    Вот теперь понял) И на это спасибо что помогли

    Всем спасибо!!!! Все сделал и все работает)

  10. А что тут сложного?

    Через HttpAnalyzer посмотрел, какой POST запрос отправляется и с какими параметрами и эмитировал его через свою программу.

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

    Как POST запросы отправлять, я думаю ты уже умеешь...

    Все это умею, но , не могу сделать чтобчтоб капча высвечивалась,
  11. Ну вот смоти, у тебя есть столбец Key, ты внем хочешь найти 123, а что ты хочешь вывести то, если у тебя больше там нет никаких данных?

    Ну вот если нашёл это "123", то чтоб мне выводит "YES". Если не нашел , то чтоб выводило "NO"

  12. В общем вот скриншоты)

    image.png

    image.png

    Ты с Хабаровска?

    NullAlex: изменил сообщения в теме. Убрал картинки и объемный код под спойлеры, убрал очевидные и ненужные цитаты, которые создавали уродливые длиннопосты.
  13. NullAlex, я все понял) Спасибо

    Vlad2, помоги пожалуйста с кодом php

    Имею таблицу в ней 1 столбец: Key

    Нужно произвести поиск по этому  Key

    Если нашёл - вывести из таблицы найденную строку (2 одинаковых фраз не встречается в таблице)

    Название таблицы scaner

     

    как можно сделать так чтоб если есть ключ в этом Key , то будет YES

    NullAlex: не надо цитировать все сообщение, цитировать следует отдельные участки сообщения, или если на то пошло - использовать ник, в качестве обращения. Не нужно создавать страшные длиннопосты
  14. Ошибок вроде не должно быть. А подключение к серверу и БД - проверено?

    Да все отлично

    ,Ну как тогда можно сделать php скрипт чтоб я мог обращаться 

    Запрос делаю вот так

    http://site.ru/key.php?key= здесь пишу ключ который уже есть в бд

    Если есть ключ то пишет ключ "Ключ введен верно"

    а если в бд нет ключа, то 'Ключ не подходит'

  15. Так попробуй

    Вот что пишет

    Warning: mysql_fetch_assoc() expects parameter 1 to be resource, boolean given in /home/u714706965/public_html/scaner/key.php on line 11

    Запрос делаю вот так

    http://site.ru/key.php?key= здесь пишу ключ который уже есть в бд

  16. Если в php не понимаешь - лучше не берись править код, ибо такого можешь напортачить, что мама горевать замучается.

    Да не что такого можно натворить то в этом коде :-D  :-D  :-D

    Смотри по коду в первом сообщении, подсветка даже на сайте говорит о том, что все, что следует после: if (!empty($_GET['key])) - является строкой (зеленый цвет).

    Вот исправил все по другому, но все же ошибочка

    <?php$localhost="localhost";$name_bd="12312431";$base="root";$passw_bd="2134242";$link = mysql_connect($localhost,$name_bd,$passw_bd);mysql_select_db($base, $link);$key = trim($_GET['key']);if (!empty($key))        {    $result = mysql_query("SELECT * FROM `root` WHERE (`key`= '$key') ");             while($row = mysql_fetch_assoc($result)) {            $id=$row['id'];            }                 if(!empty($id)){                echo "Ключ введен вверно";                mysql_query("INSERT INTO `root` ( `key`) VALUES ('".$key."')",$link);                }                 else                {echo 'Ключ не подходит';}         } else {echo 'Не правильно введен ключ';}?>
  17. if (!empty($_GET['key]))

    У тебя забыт второй апостроф в имени ключа $_GET['key]. Должно быть

    if (!empty($_GET['key']))

    Надеюсь, понял, где.

     

    И да, ключ передавать в GET, где его может увидеть любой - маразм запредельный. Если этот ключ должен иметь хоть каплю секретности, лучше передавать его через сессию.

     

    К сожаленю я в php не понимаю, не могли бы подсказать что да как

  18. image.png

    image.png

     

    Вот этим кодом на делфи я подключаюсь

    <?phpinclude('bd.php'); // Подключение к бд$link = mysqli_connect( '127.0.0.1', 'root', '', '123123');        if (!empty($_GET['key]))        {                $klop = mysqli_real_escape_string($link, $_GET['key'] );                $result = mysqli_query( $link, "SELECT * FROM `Ropbazi` WHERE key='$key'ORDER BY id DESC LIMIT 1");                $row = mysqli_fetch_assoc($result);                if ( empty($row['id'] ) )                {                        echo 'YES';                        //echo '<br />'.$add.'<br />';                        if ( $klop == $key ){                                //echo '<br />Add';                                mysqli_query( $link, "INSERT INTO `scaner` ( `key`) VALUES ( '".$key."')");                                //mysqli_close( $link );                        }                }else                        echo 'NO';}//mysqli_close( $link );?>
    varhttp : TidHTTP;str : string;begintry        str := http.Get('http://site.ru/key.php?klop='+edit1.text);        if str = 'NO' then        begin        button1.visible:=true;          //нет логина        end else if str = 'YES' then        begin        button1.visible:=false;          //есть логин        end;      except        //Ошибка      end;    end;end.
×
×
  • Создать...

Важная информация

Находясь на нашем сайте, Вы автоматически соглашаетесь соблюдать наши Условия использования.