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

20.05.2010, 12:46
|
|
Участник форума
Регистрация: 01.09.2007
Сообщений: 203
Провел на форуме: 812964
Репутация:
302
|
|
Пишу программку на делфях для взлома игры 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..
|
|
|

20.05.2010, 13:37
|
|
Участник форума
Регистрация: 01.09.2007
Сообщений: 203
Провел на форуме: 812964
Репутация:
302
|
|
Делаю таким способом.
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 афторизэйшн фаилд типо не зайдено в контакт... Хотя в броузере открыт...
|
|
|

20.05.2010, 16:05
|
|
Участник форума
Регистрация: 20.02.2010
Сообщений: 121
Провел на форуме: 496930
Репутация:
60
|
|
Эээээ
(<input type='hidden' name='s' id='s' value='316b57f44e95dfc34acb8d5eb557d4fed1a358e72e6 a84651100248a' />)
какбэ это твои куки, которые ты должен подставить в кукинанежрер
316b57f44e95dfc34acb8d5eb557d4fed1a358e72e6 a84651100248a
|
|
|

20.05.2010, 20:02
|
|
Новичок
Регистрация: 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..
|
|
|

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

20.05.2010, 23:37
|
|
Познающий
Регистрация: 25.10.2009
Сообщений: 97
Провел на форуме: 604635
Репутация:
15
|
|
А собсна чего именно взламывать хотите? Изменение размера хвоста и стыривание слов не нуждается в авторизации, второе уж точно) А там больше и ломать нечево
|
|
|

21.05.2010, 01:12
|
|
Познающий
Регистрация: 15.03.2009
Сообщений: 87
Провел на форуме: 893829
Репутация:
34
|
|
Сообщение от 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 весь алфавит было записать 
|
|
|

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

21.05.2010, 12:22
|
|
Участник форума
Регистрация: 01.09.2007
Сообщений: 203
Провел на форуме: 812964
Репутация:
302
|
|
ArkNet, спасибо. Помогло, теперь все работает. Осталось слово чтобы отгадывала доделать.
|
|
|

21.05.2010, 23:11
|
|
Новичок
Регистрация: 15.05.2010
Сообщений: 26
Провел на форуме: 35421
Репутация:
5
|
|
А ты снифером проверял пост запрос?Дай ссылку на приложения в ВК
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|