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

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. Спасибо Вам! На выходных попробую и отпишусь)
  3. Нифига) Спасибо большое) Как можно сделать чтоб доступ к странице где можно банить имел каждый заходящий по этому адресу?
  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"); } }?>
  9. Вот теперь понял) И на это спасибо что помоглиВсем спасибо!!!! Все сделал и все работает)
  10. Спасибо))) Можете помочь полность со всем скриптом)?
  11. Все это умею, но , не могу сделать чтобчтоб капча высвечивалась,
  12. Мне надо чтоб при таком запросе Http://site.RU/key.php?key= здесь ключ И если такой имеется в базе, то "YES", a ecли нет такого в базе то "NO" Я бы зделал все сам, но в php вообще не понимаю
  13. Ну вот если нашёл это "123", то чтоб мне выводит "YES". Если не нашел , то чтоб выводило "NO"
  14. Всем привет)) Дайте исходник авторегера если есть.
  15. NullAlex, я все понял) Спасибо Vlad2, помоги пожалуйста с кодом php Имею таблицу в ней 1 столбец: Key Нужно произвести поиск по этому Key Если нашёл - вывести из таблицы найденную строку (2 одинаковых фраз не встречается в таблице) Название таблицы scaner как можно сделать так чтоб если есть ключ в этом Key , то будет YES NullAlex: не надо цитировать все сообщение, цитировать следует отдельные участки сообщения, или если на то пошло - использовать ник, в качестве обращения. Не нужно создавать страшные длиннопосты
  16. Да все отлично ,Ну как тогда можно сделать php скрипт чтоб я мог обращаться Запрос делаю вот так http://site.ru/key.php?key= здесь пишу ключ который уже есть в бд Если есть ключ то пишет ключ "Ключ введен верно" а если в бд нет ключа, то 'Ключ не подходит'
  17. Вот что пишет 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= здесь пишу ключ который уже есть в бд
  18. Да не что такого можно натворить то в этом коде Вот исправил все по другому, но все же ошибочка <?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 'Не правильно введен ключ';}?>
  19. К сожаленю я в php не понимаю, не могли бы подсказать что да как
  20. <?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.
  21. Всем привет))) Я давно уже думал. А можно ли сделать сканер байтов. То есть если есть адрес то по нему бы выдавало байты ВКЛ и выкл
×
×
  • Создать...

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

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