Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 14.04.2015, 20:07
Zolt69 Zolt69 вне форума
Прохожий
 
Регистрация: 28.06.2014
Сообщения: 1
Версия Delphi: Delphi XE3
Репутация: 10
Печаль Проблема с post и хэшем

Здравствуйте!
Собственно есть сайт vvsubook.ru, что-то вроде начала фэйсбука, есть две фотографии девушек, нужно выбрать ту что красивее и нажать на её фото, ей прибавляется один голос. Есть топ 5. И что самое важное фотографии всегда рандомные. Но у каждой есть два параметра, о них далее...
При нажатии на фото отправляется пост с (этими двумя) параметрами:

Код:
women_id        328                                                       
hash            d561e93464b98a922f7309e48ac49c0876d0ee6fd98c43152b19c9e9  

women_id у каждой фотографии свой, месяц назад параметра hash не было и накручивание голосов было весёлым занятием
Программно примерно с 1000 раз посылал пост с параметром id=тутidфотки и всё работало.
Сейчас появился этот hash...расшифровывал чем только можно, не получается, пробовал зашифровать имя файла или этот women_id, не совпадает.
Собственно та же программа только с хэшем:
Код:
procedure VVSU.Button1Click(Sender: TObject);
var
  data:tstringlist; reserve:string; i:integer;
begin
  i:=0;
  data:=tstringlist.Create();
  data.Add('women_id=3739');
  data.add('hash=f6f1749c84be01f0a9b21421017802694c953701ac45bde2161ad7fe');
    repeat 
     reserve:=idhttp1.Post('http://vvsubook.ru/classes/db.php',data);
     memo1.Lines.Add(reserve);
     i:=i+1;
    until i=100;
end;
В reserve приходит три символа (п»ї), с обычного браузера приходят они же.
Так вот, есть ли тут могучий программер, который силой своего интеллекта и знаний сломает мою преграду на пути познания чёрт возьми!!? Подскажите пожалуйста, что такое hash? И как заставить это всё работать?
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:17.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter