ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

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

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу [Delphi]Приглашение в группы вконтакте
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

[Delphi]Приглашение в группы вконтакте
  #1  
Старый 17.01.2010, 22:35
f0rward
Новичок
Регистрация: 26.10.2008
Сообщений: 15
Провел на форуме:
126398

Репутация: 6
По умолчанию [Delphi]Приглашение в группы вконтакте
Вопрос по приглагению в группы. Авторизация проходит успешно кукис получаю.
Отсылаю вот это:
Код:
POST /friends_ajax.php HTTP/1.1
Accept: */*
Accept-Language: ru
Referer: http://vkontakte.ru/club1363
x-requested-with: XMLHttpRequest
Content-Type: application/x-www-form-urlencoded
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; EmbeddedWB 14.52 from: http://www.bsalsa.com/ EmbeddedWB 14,52; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)
Host: vkontakte.ru
Content-Length: 20
Connection: Keep-Alive
Cache-Control: no-cache
Cookie: remixchk=5; remixsid=XXX

from=groups&gid=1363
Откуда получаю список друзей с их ID.
А вот дальше сложнее:
Код:
POST /groups_ajax.php?act=a_invite_friends HTTP/1.1
Accept: */*
Accept-Language: ru
Referer: http://vkontakte.ru/club1363
x-requested-with: XMLHttpRequest
Content-Type: application/x-www-form-urlencoded
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; EmbeddedWB 14.52 from: http://www.bsalsa.com/ EmbeddedWB 14,52; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)
Host: vkontakte.ru
Content-Length: 60
Connection: Keep-Alive
Cache-Control: no-cache
Cookie: remixchk=5; remixsid=XXX

friends=55482684%2C18858581&gid=1363&hash=ff4f53ae9498bf9a66
Переменную hash я ни на странице группы, ни в ответе первого запроса не обнаружил.

Помогите plz.
 
Ответить с цитированием

  #2  
Старый 17.01.2010, 22:43
AquaKlaster
Участник форума
Регистрация: 09.03.2009
Сообщений: 178
Провел на форуме:
1605524

Репутация: 523
Отправить сообщение для AquaKlaster с помощью ICQ
По умолчанию
хеш есть на странице группы, но его нужно декодировать
 
Ответить с цитированием

  #3  
Старый 27.02.2010, 19:48
Ratt1e
Новичок
Регистрация: 20.01.2008
Сообщений: 18
Провел на форуме:
307401

Репутация: 1
Отправить сообщение для Ratt1e с помощью ICQ
По умолчанию
хэш генерируется ява-скриптом на странице, пытаться расшифровать бессмысленно, т.к. скрипт постоянно меняется, проще выполнять этот js и подставлять полученный хэш
 
Ответить с цитированием

  #4  
Старый 27.02.2010, 21:05
Spy2ex
Новичок
Регистрация: 20.09.2008
Сообщений: 29
Провел на форуме:
528520

Репутация: 13
По умолчанию
Недавно работал.
С++ Builder
Код:
String decodeHash (String sHash)
{
String sFirst = sHash.SubString(5,13);
String sNextPart = sHash.SubString(21,5);

String sSecond;
int iLength = sFirst.Length();
int i;

for (int i=0; i < sFirst.Length(); i++)
{
	sSecond += sFirst[iLength--];
}

String sThird;
int iLength2 = sNextPart.Length();
int a;

for (a = 0; a < sNextPart.Length(); a++)
{
	sThird += sNextPart[iLength2--];
}

String sDecodehash;
sDecodehash = sSecond+sThird;

return sDecodehash;
}
 
Ответить с цитированием

  #5  
Старый 27.02.2010, 22:20
RedFern.89
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
Провел на форуме:
500264

Репутация: 69
Отправить сообщение для RedFern.89 с помощью ICQ
По умолчанию
вот на на Delphi писал когда то)))

Код:
function DecChas(chas: string): string;
var
 Decchas : string;
 str : string;
 I : Integer;
 Len : integer;
begin

 str := Copy(chas, 6, 12);
 Len := Length(str);

 For I := 0 To Length(str) -1 do
 begin
  Decchas := Decchas + str[len];
  Inc(len, -1);
 end;

 str := Copy(chas, 21, Length(chas) -5);
 str := str + Copy(chas, 5, 1);

 Len := Length(str);

 For I := 0 To Length(str) -1 do
 begin
   Decchas := Decchas + str[len];
   Inc(len, -1);
 end;

 Result := Decchas;
end;
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
КАкбЭ откауем группы Вконтакте [Спамер] SoulReaver Социальные сети 70 16.02.2010 19:11
Программы для сайта Вконтакте. Fruit Социальные сети 3 05.01.2010 22:59
Вконтакте | клонирую группы .Bug Покупка, продажа, услуги в Соц. Сетях 6 09.08.2009 03:37
приглашение в группы вконтакте. lion-mobile Покупка, продажа, услуги в Соц. Сетях 0 23.04.2009 19:05



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


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




ANTICHAT.XYZ