УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 440 из 677

440

Опции темы

Поиск в этой теме

Опции просмотра

#4391

16.09.2009, 12:32

slesh

Reservists Of Antichat - Level 6

Регистрация: 05.03.2007

Сообщений: 1,985

Провел на форуме:
3288241

Репутация: 3349

Отправить сообщение для slesh с помощью ICQ

2 iGlass самый быстры способ, но небудет пахать на кривой реализации или на очень сложной системе где есть хитрые JS но и то можно сделать проверку на это а так алгоритм такой примерно:

Код:

var
  x,y:integer;
  s1,s2:string;
  tagflag:boolean;
begin
  s1 :=  '<b>big</b> <a href="http://site.com/">link</a>';
  s2 := '';
  y := length(s1);
  tagflag := false;

  for x:=1 to y do
  begin
    if s1[x] = '<' then
    begin
      tagflag := true
    end
    else if s1[x] = '>' then
    begin
      tagflag := false
    end
    else if tagflag = false then s2:=s2+s1[x];
  end;

  showmessage(s2);

end;

в этоге в s2 бадет код без тегов. приметивный очень алгоритм.

Последний раз редактировалось slesh; 16.09.2009 в 12:35..

#4392

16.09.2009, 14:17

iGlass

Познающий

Регистрация: 14.05.2009

Сообщений: 92

Провел на форуме:
299447

Репутация: 5

Что то он целиком всю строчку грузит не убирая тэгов (
Спс за помощь.

#4393

16.09.2009, 20:08

transserg

Участник форума

Регистрация: 02.07.2008

Сообщений: 132

Провел на форуме:
1035284

Репутация: 52

Отправить сообщение для transserg с помощью ICQ

как можно подавить реакцию компа на ВСЕ!!! клавиши клавиатуры? так как BlockInput непомогает отрубается после вызова деспетчера задач, да и еще не блочит мультимедийные клавиши что ни есть гуд.

#4394

16.09.2009, 20:17

Dosia

Участник форума

Регистрация: 05.06.2009

Сообщений: 127

Провел на форуме:
1313455

Репутация: 249

// отрубаем мышь и клаву

procedure LockPC;
var
OldValue: LongBool;
begin
SystemParametersInfo(97, Word(Bool), @OldValue, 0);
WinExec(PChar('rundll32 mouse,disable'), SW_SHOW);
WinExec(PChar('rundll32 keyboard,disable'), SW_SHOW);
end;

// блокируем пк

procedure TForm1.Button1Click(Sender: TObject);
begin
LockWorkStation;
end;

{ Loading LockWorkStation dynamically}

function LockWS: Boolean;
// by Thomas Stutz, SDC
type
TLockWorkStation = function: Boolean;
var
hUser32: HMODULE;
LockWorkStation: TLockWorkStation;
begin
// Here we import the function from USER32.DLL
hUser32 := GetModuleHandle('USER32.DLL');
if hUser32 <> 0 then
begin
@LockWorkStation := GetProcAddress(hUser32, 'LockWorkStation');
if @LockWorkStation <> nil then
begin
LockWorkStation;
Result := True;
end;
end;
end;

взято отсюда

Последний раз редактировалось Dosia; 16.09.2009 в 20:31..

#4395

17.09.2009, 02:51

yfet

Познающий

Регистрация: 11.07.2009

Сообщений: 83

Провел на форуме:
279987

Репутация: 30

Отправить сообщение для yfet с помощью ICQ

вопрос такой. есть список акков вк. как правильно пройти аторизацию на сайте и узнать валид акк или нет? пользую idHTTP.
пишу так
[.code]
var
sl : TStringList;
begin
sl:=TStringList.Create;
sl.Add('email='+email);
sl.Add('pass='+pass);
IdHTTP1.Post('http://login.vk.com/?act=login',sl);
sl.Free;
end;
[/.code]
но че то хреново оно заходит, не вижу этот id в онлайне((
Помогите плз

#4396

17.09.2009, 03:25

wolmer

Постоянный

Регистрация: 12.05.2009

Сообщений: 395

Провел на форуме:
4761503

Репутация: 229

Цитата:

Сообщение от yfet

HTML:

PHP код:


		
			
<form method="post" name="login" id="login" action="http://login.vk.com/" onsubmit="if (vklogin) { return true} else { quick_login();return false;}">

 <input type="hidden" name="act" id="act" value="login">

 <input type="hidden" name="success_url" id="success_url" value="">

 <input type="hidden" name="fail_url" id="fail_url" value="">

 <input type="hidden" name="try_to_login" id="try_to_login" value="1">

 <input type="hidden" name="to" id="to" value=""/>

 <input type="hidden" name="vk" id="vk" value="">



  <table align="center" cellpadding=0 cellspacing=7 border=0 width="40%">

   <tr>

    <td width="100px">

     <span class="grey">Email:</span>

    </td>

    <td>

     <input class="inputText" type="text" name="email" value="" id="email" size="25" />

    <td>

   </tr>

   <tr>

    <td>

     <span class="grey">Пароль:</span>

    </td>

    <td>

     <input class="inputText" type="password" name="pass" value="" id="pass" size="25" />

    </td>

   </tr>

   <tr>

    <td>

     &nbsp;

    </td>

    <td>

     <input style="margin-top:1px; vertical-align: middle;" type="checkbox" name="expire" id="expire" value="1" /><small>Чужой компьютер</small>

    </td>

   </tr>

   <tr>

    <td>

     &nbsp;

    </td>

    <td>

<div style="height:20px; margin:5px 0px">

<ul class='nNav'><li style="margin-left:0px">

<b class="nc"><b class="nc1"><b></b></b><b class="nc2"><b></b></b></b>

<span class="ncc"><a href="javascript: quick_login()">Вход</a></span>

<b class="nc"><b class="nc2"><b></b></b><b class="nc1"><b></b></b></b>

</li>

<li>

<b class="nc"><b class="nc1"><b></b></b><b class="nc2"><b></b></b></b>

<span class="ncc"><a href="/reg0">Регистрация</a></span>

<b class="nc"><b class="nc2"><b></b></b><b class="nc1"><b></b></b></b>

</li></ul>

</div>



    </td>

   </tr>

   <tr>

    <td>

     &nbsp;

    </td>

    <td class="forgotPass">

     <a href="login.php?op=forgot">Забыли пароль?</a>

    </td>

   </tr>



  </table>

  <input type="submit" value='.' style="color:#fff;border:0;padding:0;margin:0;background:#fff;height:6px;width:6px"/>

</form>

Видишь инпаты? (input) Вот их и пихай (name и value ихнии) в пост запрос а не токо email и password (так просто не пройдет!)

Не разобрал что я сказал? Ок, бери сниффер http пакетов, снифай что отправляется на сервер при логине/входе

Точно не могу проверить но вот примерно что должно быть в коде

Код:

...
sl.Add('act=login');
sl.Add('success_url=');
sl.Add('fail_url=');
sl.Add('try_to_login=1');
sl.Add('to=');
sl.Add('vk=');
sl.Add('expire=1');
sl.Add('email='+email);
sl.Add('pass='+pass);
...

Кстати на сайте может включатся каптча если что...

Последний раз редактировалось wolmer; 17.09.2009 в 03:28..

#4397

17.09.2009, 07:35

vvs777

Познавший АНТИЧАТ

Регистрация: 16.11.2004

Сообщений: 1,257

Провел на форуме:
1331503

Репутация: 454

Отправить сообщение для vvs777 с помощью ICQ

Отправить сообщение для vvs777 с помощью AIM

тупой вопрос, особенно для меня, но не могу найти исходник, в котором эту проблему пару лет назад решил и не помню как.
Вообщем надо строку преобразовать в юникод. Желательно не ипаццо с типами переменных, а так чтобы это в string хранилось, просто вместо кириллических символов стояло 2 с соответствующими кодами.

Есть у кого функция готовая?

#4398

17.09.2009, 09:47

slesh

Reservists Of Antichat - Level 6

Регистрация: 05.03.2007

Сообщений: 1,985

Провел на форуме:
3288241

Репутация: 3349

юзай StringToWideChar - чтобы все символы были в расширенном виде.
Или если тебе нужне не юников, а UTF8 что скорее всего. То AnsiToUtf8

#4399

17.09.2009, 09:57

transserg

Участник форума

Регистрация: 02.07.2008

Сообщений: 132

Провел на форуме:
1035284

Репутация: 52

2 Dosia нужно просто заблокировать клаву а не выходить из сеанса пользователя
вот это не работает=)

Код:

procedure LockPC;
var
OldValue: LongBool;
begin
SystemParametersInfo(97, Word(Bool), @OldValue, 0);
WinExec(PChar('rundll32 mouse,disable'), SW_SHOW);
WinExec(PChar('rundll32 keyboard,disable'), SW_SHOW);
end;

#4400

17.09.2009, 11:11

slesh

Reservists Of Antichat - Level 6

Регистрация: 05.03.2007

Сообщений: 1,985

Провел на форуме:
3288241

Репутация: 3349

эти команды тока под Win 9x
Под другие винды юзай апишку BlockInput на XP точно пашет.

Код:

procedure BlockInput(ABlockInput: boolean); stdcall; external 'USER32.DLL';

procedure TForm1.Button1Click(Sender: TObject);
begin
    BlockInput(True); - заблокировать клаву и мыш
    sleep(5000);
    BlockInput(false); - разблокировать
end;

Последний раз редактировалось slesh; 17.09.2009 в 11:14..

Страница 440 из 677

440

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/WPAN/WLAN	2567	19.04.2026 23:21
[ *NIX ] Задай вопрос - получи ответ.	Xszz	*nix	1547	15.06.2010 15:41
[jQuery] - Задай вопрос, получи ответ	Isis	PHP, PERL, MySQL, JavaScript	62	25.12.2009 03:25
ЕсТь ВоПрос	Guma	Чаты	4	26.10.2005 21:48

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход