Denis97832

Стажёры
  • Публикации

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

  • Посещение

Репутация

2 Навыки не прокачены

О Denis97832

  • Звание
    Пользователь
  • День рождения 12/24/97

Контакты

  • Skype 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. PHP-скрипт бана

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

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

    Вот к меня есть скрипт бана, но я как только его не менял ничего не получается.  Помогите сделать чтоб переходя по ссылке можно было банить пользователя по логину, а не по 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-не могу исправить ошибку

    <?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"); } }?> 
  9. PHP-не могу исправить ошибку

    Вот теперь понял) И на это спасибо что помоглиВсем спасибо!!!! Все сделал и все работает)
  10. PHP-не могу исправить ошибку

    Не понял)
  11. PHP-не могу исправить ошибку

    Спасибо))) Можете помочь полность со всем скриптом)?
  12. Все это умею, но , не могу сделать чтобчтоб капча высвечивалась,
  13. PHP-не могу исправить ошибку

    Мне надо чтоб при таком запросе Http://site.RU/key.php?key= здесь ключ И если такой имеется в базе, то "YES", a ecли нет такого в базе то "NO" Я бы зделал все сам, но в php вообще не понимаю
  14. PHP-не могу исправить ошибку

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