Вобщем. Все вроде бы ничего, написал так что 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='316b57f44e95dfc34acb8d5eb557d4fed1a358e72e6a84651100248a' />) А если пытаюсь таким же макаром отправить строку которая вверху. то пишет вабще типо user autorisation failed. Вобщем мб кто помогет.
Делаю таким способом. И выдает что означает что строка не правильно составлена ... А если отправлять без выпендрежа целую строку user афторизэйшн фаилд типо не зайдено в контакт... Хотя в броузере открыт...
Эээээ (<input type='hidden' name='s' id='s' value='316b57f44e95dfc34acb8d5eb557d4fed1a358e72e6 a84651100248a' />) какбэ это твои куки, которые ты должен подставить в кукинанежрер 316b57f44e95dfc34acb8d5eb557d4fed1a358e72e6 a84651100248a
Полностю рабочий код входа в ВК с получением исодного кода анкеты в 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;
А собсна чего именно взламывать хотите? Изменение размера хвоста и стыривание слов не нуждается в авторизации, второе уж точно) А там больше и ломать нечево
