HOME    FORUMS    MEMBERS    RECENT POSTS    LOG IN  
Баннер 1   Баннер 2

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

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Пишу программку на делфях для взлома игры kroko.vkontakte.ru (нужна помощь)
  #1  
Старый 20.05.2010, 12:46
Assembler
Участник форума
Регистрация: 01.09.2007
Сообщений: 203
Провел на форуме:
812964

Репутация: 302
Отправить сообщение для Assembler с помощью ICQ
По умолчанию Пишу программку на делфях для взлома игры kroko.vkontakte.ru (нужна помощь)

Вобщем. Все вроде бы ничего, написал так что sig генерирует и если в ручную отправлять то все работает ... Отправляется примерно вот это...
PHP код:
http://api.vkontakte.ru/api.php?api_id=1709838&key=1402&method=putVariable&v=2.0&value=458485&sig=eb5df05188517bf1522ea50d39fd25d0 
Но не могу понять как отправить енто из программы. Так же какие то конфликты со входом в контакт. Вплане вроде бы и заходит из программы но не до конца может кто посмотрим в чем косяк...

Вот скидываю сорцы. _http://letitbit.net/download/14372.1445ec4346753fd2c4932913d/kroko.rar.html



Это регистрация в контакте. Вроде и заходит но выдает что то типа
(<input type='hidden' name='s' id='s' value='316b57f44e95dfc34acb8d5eb557d4fed1a358e72e6 a84651100248a' />)

Цитата:
var i:integer ;
CookMan: TidCookieManager;
Params: TStringList;
username,password:string;
begin

IdHTTP1.AllowCookies:=true;
CookMan:=TidCookieManager.Create(idHTTP1);
idHttp1.CookieManager := CookMan;
username := edit1.Text;
password := edit2.Text;
Params:=TStringList.Create;
Params.add('op=a_login_attempt');
Params.add('email='+username);
Params.add('pass='+password);
Params.add('expire=');
Params.add('vk=');


try
IdHTTP1.Port:=80;


IDHttp1.Request.UserAgent:='Mozila';


IdHTTP1.Request.Referer:='http://login.vk.com/?act=login';


memo1.Lines.Text:=
IdHttp1.Post('http://login.vk.com/?act=login',params);

finally
// IdHTTP1.Free;
// IdHandler.Free;
// Params.Free;
end;
А если пытаюсь таким же макаром отправить строку которая вверху. то пишет вабще типо user autorisation failed. Вобщем мб кто помогет.

Последний раз редактировалось Assembler; 20.05.2010 в 12:48..
 
Ответить с цитированием

  #2  
Старый 20.05.2010, 13:37
Assembler
Участник форума
Регистрация: 01.09.2007
Сообщений: 203
Провел на форуме:
812964

Репутация: 302
Отправить сообщение для Assembler с помощью ICQ
По умолчанию

Делаю таким способом.
Цитата:
var
ss : TStringStream;
value: String;
sig : String;
begin
//IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
ss := TStringStream.Create('');
sig := richedit1.Text;
value := inttostr(spinedit1.Value);
ss.WriteString('api_id=1709838&key=1402&method=put Variable&v=2.0&value='+value+'&sig='+sig);
memo1.Lines.Text:=IdHTTP1.Post('http://api.vkontakte.ru/api.php?',ss);
ss.Free;
И выдает
Цитата:
<?xml version="1.0" encoding="utf-8"?>
<error>Invalid application API ID</error>
что означает что строка не правильно составлена

... А если отправлять без выпендрежа целую строку user афторизэйшн фаилд типо не зайдено в контакт... Хотя в броузере открыт...
 
Ответить с цитированием

  #3  
Старый 20.05.2010, 16:05
Berman
Участник форума
Регистрация: 20.02.2010
Сообщений: 121
Провел на форуме:
496930

Репутация: 60
Отправить сообщение для Berman с помощью ICQ
По умолчанию

Эээээ

(<input type='hidden' name='s' id='s' value='316b57f44e95dfc34acb8d5eb557d4fed1a358e72e6 a84651100248a' />)
какбэ это твои куки, которые ты должен подставить в кукинанежрер
316b57f44e95dfc34acb8d5eb557d4fed1a358e72e6 a84651100248a
 
Ответить с цитированием

  #4  
Старый 20.05.2010, 20:02
ArkNet
Новичок
Регистрация: 15.05.2010
Сообщений: 26
Провел на форуме:
35421

Репутация: 5
По умолчанию

Полностю рабочий код входа в ВК с получением исодного кода анкеты в Memo1
Indy 10.x.x
var
s,pass,str,uns: String;
outfo: TStringList;
begin
pass := StringReplace(edit2.text, ' ', '+', [rfReplaceAll, rfIgnoreCase]);
outfo := TStringList.Create;
idhttp1.Get('http://vkontakte.ru/login.php?op=a_login_attempt');
outfo.Add('act=login');
outfo.Add('email='+edit1.text);
outfo.Add('pass='+pass);
try
uns:=UTF8toANSI(idhttp1.post('http://login.vk.com/', outfo));
s:=copy(uns, 286, 56);
finally
idhttp1.Request.CustomHeaders.Add('Cookie: remixsid=' + s);
str := idhttp1.Get('http://vkontakte.ru/profile.php');
Memo1.Text:=str;
end
end;

Последний раз редактировалось ArkNet; 21.05.2010 в 09:06..
 
Ответить с цитированием

  #5  
Старый 20.05.2010, 20:04
ArkNet
Новичок
Регистрация: 15.05.2010
Сообщений: 26
Провел на форуме:
35421

Репутация: 5
По умолчанию

Работай со Снифером и все будет понятней...
 
Ответить с цитированием

  #6  
Старый 20.05.2010, 23:37
Jingo Bo
Познающий
Регистрация: 25.10.2009
Сообщений: 97
Провел на форуме:
604635

Репутация: 15
По умолчанию

А собсна чего именно взламывать хотите? Изменение размера хвоста и стыривание слов не нуждается в авторизации, второе уж точно) А там больше и ломать нечево
 
Ответить с цитированием

  #7  
Старый 21.05.2010, 01:12
090808
Познающий
Регистрация: 15.03.2009
Сообщений: 87
Провел на форуме:
893829

Репутация: 34
Отправить сообщение для 090808 с помощью ICQ
По умолчанию

Цитата:
Сообщение от ArkNet  
Полностю рабочий код входа в ВК с получением исодного кода анкеты в Memo1
Indy 10.x.x
var
i,a,b,c :integer;
s,pass,str,uns: String;
outfo: TStringList;
begin
pass := StringReplace(edit2.text, ' ', '+', [rfReplaceAll, rfIgnoreCase]);
outfo := TStringList.Create;
idhttp1.Get('http://vkontakte.ru/login.php?op=a_login_attempt');
outfo.Add('act=login');
outfo.Add('email='+edit1.text);
outfo.Add('pass='+pass);
try
uns:=UTF8toANSI(idhttp1.post('http://login.vk.com/', outfo));
s:=copy(uns, 286, 56);
finally
idhttp1.Request.CustomHeaders.Add('Cookie: remixsid=' + s);
str := idhttp1.Get('http://vkontakte.ru/profile.php');
Memo1.Text:=str;
end
end;
Нужно в integer весь алфавит было записать
 
Ответить с цитированием

  #8  
Старый 21.05.2010, 09:05
ArkNet
Новичок
Регистрация: 15.05.2010
Сообщений: 26
Провел на форуме:
35421

Репутация: 5
По умолчанию

Просто вырезал код из своей программы
 
Ответить с цитированием

  #9  
Старый 21.05.2010, 12:22
Assembler
Участник форума
Регистрация: 01.09.2007
Сообщений: 203
Провел на форуме:
812964

Репутация: 302
Отправить сообщение для Assembler с помощью ICQ
По умолчанию

ArkNet, спасибо. Помогло, теперь все работает. Осталось слово чтобы отгадывала доделать.
 
Ответить с цитированием

  #10  
Старый 21.05.2010, 23:11
ArkNet
Новичок
Регистрация: 15.05.2010
Сообщений: 26
Провел на форуме:
35421

Репутация: 5
По умолчанию

А ты снифером проверял пост запрос?Дай ссылку на приложения в ВК
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Base PR - обновляемая база для AS Savelli Услуги, Покупка и Продажа в SEO 3 09.12.2009 12:50
Хакер и закон! SladerNon Болталка 17 12.11.2009 09:42
Сбор литературы для начинающего и опытного ассемблерщика -m0rgan- PHP 2 02.12.2008 23:23



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


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




ANTICHAT.XYZ