24 ответов в данной теме

[Serg-vi (WMID 379091742499 )]

Задача:
Средствами Delphi отправить верный XML запрос на сервер WM.

Код писать Не обязательно, просто проконсультировать меня, что я делаю не так.

На данном этапе на отправляемые мной XML запросы сервер прямо или косвенно жалуется на подпись (если я правильно понял).

Функция генерации подписи формирует её (выдаёт 132-символьную строку).

При этом ErrCode=0 т.е. говорит, что всё прошло Ok.

Но сервер WebMoney что-то не устраивает

 

Например XML интерфейс №3

 

<wm.exchanger.request>

<wmid> мой wmid </wmid>
<signstr> моя подпись </signstr>
<type> 3 </type>

</wm.exchanger.request>

 

Возвращает ответ: Подпись не прошла проверку...

 

Вообщем цель: исправить мою ошибку, чтобы все интерфейсы заработали.
 

Оплата.

10$ за решение данного вопроса (более 1 дня)

20$ если решите в течение 1 дня.

30$ если решите в течение 1 часа. 

 

Skype:  Serg-vi  (редко)
Viber : +375 29 7112223 (постоянно)

[^-^ (WMID 273407224562 )]

Функция генерации подписи формирует её (выдаёт 132-символьную строку).

Функцию сами писали?

[Serg-vi (WMID 379091742499 )]

Функция генерации подписи формирует её (выдаёт 132-символьную строку).

Функцию сами писали?

Нет, знал бы как писать, сам написал бы )  Использовал WMSignerX.dll  Там есть функция подписи строки. 

Сообщение отредактировал Serg-vi: 09 ноября 2016 - 11:32

[^-^ (WMID 273407224562 )]

Может кодировка не нравится? Должно всё быть в CP-1251.

[Serg-vi (WMID 379091742499 )]

Может кодировка не нравится? Должно всё быть в CP-1251.

Пробовал и UTF-8 и windows-1251, не идёт.
В какой кодировке принимает запросы и даёт ответы XML сервер WebMoney :
CharSet = ?
Encoding = ?

[^-^ (WMID 273407224562 )]

Всё в windows-1251.

Хотя нет, CharSet может и utf-8 быть.

Сообщение отредактировал ^-^: 10 ноября 2016 - 10:54

[Jaguar (WMID 385960635969 )]

Задача:
Средствами Delphi отправить верный XML запрос на сервер WM.

Код писать Не обязательно, просто проконсультировать меня, что я делаю не так.

На данном этапе на отправляемые мной XML запросы сервер прямо или косвенно жалуется на подпись (если я правильно понял).

Функция генерации подписи формирует её (выдаёт 132-символьную строку).

При этом ErrCode=0 т.е. говорит, что всё прошло Ok.

Но сервер WebMoney что-то не устраивает

 

Например XML интерфейс №3

 

<wm.exchanger.request>

<wmid> мой wmid </wmid>
<signstr> моя подпись </signstr>
<type> 3 </type>

</wm.exchanger.request>

 

Возвращает ответ: Подпись не прошла проверку...

 

Вообщем цель: исправить мою ошибку, чтобы все интерфейсы заработали.
 

Оплата.

10$ за решение данного вопроса (более 1 дня)

20$ если решите в течение 1 дня.

30$ если решите в течение 1 часа. 

 

Skype:  Serg-vi  (редко)
Viber : +375 29 7112223 (постоянно)

из любопытства (сумма у вас неинтересная), просто привычка решать подобные головоломки:

можете привести реальный пример запроса?

конечно, же обезличив его

например, все цифры поменять на нули, а буквы на... пусть будет "x"

только не удаляя пробелы и прочие другие символы

цифры и буквы, конечно же, менять только в значениях, а не в названиях XML-тегов и атрибутов

и - чем из Delphi XML генерится?

[Serg-vi (WMID 379091742499 )]

Хорошо, буду дома днём, выложу код.
Сумму могу и увеличить. Просто все в основном вообще бесплатно всё спрашивают, а я готов выразить благодарность хотя бы в таком виде.

[! добрый торговец ! (WMID 217358758215 )]

Хорошо, буду дома днём, выложу код.
Сумму могу и увеличить. Просто все в основном вообще бесплатно всё спрашивают, а я готов выразить благодарность хотя бы в таком виде.

Все, в основном, за php спрашивают, а тут - Delphi Сами вы в Delphi, судя по всему, не особо сечете, так что, остается загадкой, почему именно - он.

[^-^ (WMID 273407224562 )]

остается загадкой, почему именно - он.

Исходя из определения пишется прога не для сервера, а для пк.

[Serg-vi (WMID 379091742499 )]

В том то и дело что все на PHP только и пишут, и там больше ответов, чем вопросов и всё гораздо проще.

1. Но на php придётся держать свой ключ не дома, а на каком-нибудь сервере, владелец которого  может иметь к нему доступ.

2. php - это открытый код, получив доступ к которому, можно меняя его, делать что хочешь

3. Да, я не гуру в защите данных, но думаю, что в случае с домашним компьютером добраться до ключа гораздо сложнее, а поменять что-то в exe-файле почти нереально.

Итак код:

 

 

procedure TForm1.Button5Click(Sender: TObject);

Var

  Pst: TStringList;              // PostData , т.е. строки для Post запроса.

  wmid, Podpis, Sklei, OperId,s1, tip: String;

  er: smallint;

Begin

 wmid   := '123456789012';    

 OperId := '23205594';

 tip:='3';                 // вернуть все заявки

 

 Memo1.Lines.Add('Подписываю...');

 Sklei :=wmid+tip;            //+OperId;  // для 3го XML интерфейса.

 Podpis := Intf.SignString('Sklei');

 er:= Intf.ErrorCode;

 if er=0 then begin  // если подписали успешно, то отправляем XML запрос

    Memo1.Lines.Add('Отправляю запрос');

    Pst:=TStringList.Create;

    Pst.Add('<wm.exchanger.request>');          //  откывающий тэг

    Pst.Add('<wmid>'+wmid+'</wmid>');           //  wmid

    Pst.Add('<signstr>'+Podpis+'</signstr>');   //  Подпись

    Pst.Add('<type>3</type>');                        //  Тип запроса 3-вернуть все заявки

   // Pst.Add('<queryid>+OperId+</queryid>');   //  № заявки (не обязательно)

    Pst.Add('</wm.exchanger.request>');         //  закрывающий тэг

    s1:=idHTTP1.Post('https://wm.exchanger...ist2.asp',Pst);

    Memo1.Lines.Add(UTF8toNorm(s1));

   Pst.Free;

 end; 

End; 

 

После чего строка s1 содержит: 

<?xml version="1.0"?><wm.exchanger.response>

<retval>-4</retval>

<retdesc>Ошибка загрузки XML c параметрами запроса - Ошибка при указании подписи, тег signstr.Идентификатор клиента не указан</retdesc></wm.exchanger.response>

 

Это была реализация через компонент Indy

Если реализовывать через Synapse то пишет:

Подпись не прошла проверку. Вы уверены что производили цифровую подпись ключами ВМ-идентификатора 123456789012 и подписывали строку 1234567890123 ?

 

P.S. 123456789012 - wmid 
1234567890123 - wmid+'3' т.е. склейка из wmid и 3 - вернуть все заявки

Сообщение отредактировал Serg-vi: 12 ноября 2016 - 21:40

[^-^ (WMID 273407224562 )]

В том то и дело что все на PHP только и пишут, и там больше ответов, чем вопросов и всё гораздо проще.

И? Это хорошо или плохо?
 

1. Но на php придётся держать свой ключ не дома
2. php - это открытый код, получив доступ к которому, можно меняя его, делать что хочешь
3. Да, я не гуру в защите данных, но думаю, что в случае с домашним компьютером добраться до ключа гораздо сложнее

- localhost?

- Не, не слышали.

[! добрый торговец ! (WMID 217358758215 )]

1. Но на php придётся держать свой ключ не дома, а на каком-нибудь сервере, владелец которого  может иметь к нему доступ.

Ну, общеизвестна практика, когда на сервере лежит не от основного кипера ключ, а от доверенного вмид, т.е. заводится еще один вмид и ему выписывается доверие на осуществление нужных операций.
Собственно, ключ ваш нафик никому не нужен, кошельки опустошаются именно с той машины, где сам ключ и лежит (откуда запросы идут) или кипер запущен, сервер это или комп домашний Но, добраться, возможно, действительно, сложнее будет.

Сообщение отредактировал ! добрый торговец !: 12 ноября 2016 - 23:59

[Jaguar (WMID 385960635969 )]

 

В том то и дело что все на PHP только и пишут, и там больше ответов, чем вопросов и всё гораздо проще.

1. Но на php придётся держать свой ключ не дома, а на каком-нибудь сервере, владелец которого  может иметь к нему доступ.

2. php - это открытый код, получив доступ к которому, можно меняя его, делать что хочешь

3. Да, я не гуру в защите данных, но думаю, что в случае с домашним компьютером добраться до ключа гораздо сложнее, а поменять что-то в exe-файле почти нереально.

Итак код:

 

 

procedure TForm1.Button5Click(Sender: TObject);

Var

  Pst: TStringList;              // PostData , т.е. строки для Post запроса.

  wmid, Podpis, Sklei, OperId,s1, tip: String;

  er: smallint;

Begin

 wmid   := '123456789012';    

 OperId := '23205594';

 tip:='3';                 // вернуть все заявки

 

 Memo1.Lines.Add('Подписываю...');

 Sklei :=wmid+tip;            //+OperId;  // для 3го XML интерфейса.

 Podpis := Intf.SignString('Sklei');

 er:= Intf.ErrorCode;

 if er=0 then begin  // если подписали успешно, то отправляем XML запрос

    Memo1.Lines.Add('Отправляю запрос');

    Pst:=TStringList.Create;

    Pst.Add('<wm.exchanger.request>');          //  откывающий тэг

    Pst.Add('<wmid>'+wmid+'</wmid>');           //  wmid

    Pst.Add('<signstr>'+Podpis+'</signstr>');   //  Подпись

    Pst.Add('<type>3</type>');                        //  Тип запроса 3-вернуть все заявки

   // Pst.Add('<queryid>+OperId+</queryid>');   //  № заявки (не обязательно)

    Pst.Add('</wm.exchanger.request>');         //  закрывающий тэг

    s1:=idHTTP1.Post('https://wm.exchanger...ist2.asp',Pst);

    Memo1.Lines.Add(UTF8toNorm(s1));

   Pst.Free;

 end; 

End; 

 

После чего строка s1 содержит: 

<?xml version="1.0"?><wm.exchanger.response>

<retval>-4</retval>

<retdesc>Ошибка загрузки XML c параметрами запроса - Ошибка при указании подписи, тег signstr.Идентификатор клиента не указан</retdesc></wm.exchanger.response>

 

Это была реализация через компонент Indy

Если реализовывать через Synapse то пишет:

Подпись не прошла проверку. Вы уверены что производили цифровую подпись ключами ВМ-идентификатора 123456789012 и подписывали строку 1234567890123 ?

 

P.S. 123456789012 - wmid 
1234567890123 - wmid+'3' т.е. склейка из wmid и 3 - вернуть все заявки

 

Всё-таки хотелось бы увидеть, что за XML формируется (что содержит Pst.Lines перед отправкой).

Интерфейсы WebMoney не изучал, но, навскидку:

 

 s1:=idHTTP1.Post('https://wm.exchanger...ist2.asp',Pst);

 

Какая кодировка выставлена у idHTTP1?

 

+ посмотрел интерфейс:

 

• signstr - 132-символьная цифровая подпись (ключами .kwm идентификатора wmid) значений 3-х тэгов запроса склееных в одну строку без пробелов "wmid + type + queryid" (формирование цифровой подписи см. в описании общих ВМ-интерфейсов для разработчиков)

 

может, все же попробовать в signstr добавить queryid?

правда, я пока не понял, откуда его брать.

 

+ еще: возможно, в качестве подписи совсем не склейка строк должна быть, а именно подпись, сгенерированная на ее основе

[Jaguar (WMID 385960635969 )]

 

 

В том то и дело что все на PHP только и пишут, и там больше ответов, чем вопросов и всё гораздо проще.

1. Но на php придётся держать свой ключ не дома, а на каком-нибудь сервере, владелец которого  может иметь к нему доступ.

2. php - это открытый код, получив доступ к которому, можно меняя его, делать что хочешь

3. Да, я не гуру в защите данных, но думаю, что в случае с домашним компьютером добраться до ключа гораздо сложнее, а поменять что-то в exe-файле почти нереально.

Итак код:

 

 

procedure TForm1.Button5Click(Sender: TObject);

Var

  Pst: TStringList;              // PostData , т.е. строки для Post запроса.

  wmid, Podpis, Sklei, OperId,s1, tip: String;

  er: smallint;

Begin

 wmid   := '123456789012';    

 OperId := '23205594';

 tip:='3';                 // вернуть все заявки

 

 Memo1.Lines.Add('Подписываю...');

 Sklei :=wmid+tip;            //+OperId;  // для 3го XML интерфейса.

 Podpis := Intf.SignString('Sklei');

 er:= Intf.ErrorCode;

 if er=0 then begin  // если подписали успешно, то отправляем XML запрос

    Memo1.Lines.Add('Отправляю запрос');

    Pst:=TStringList.Create;

    Pst.Add('<wm.exchanger.request>');          //  откывающий тэг

    Pst.Add('<wmid>'+wmid+'</wmid>');           //  wmid

    Pst.Add('<signstr>'+Podpis+'</signstr>');   //  Подпись

    Pst.Add('<type>3</type>');                        //  Тип запроса 3-вернуть все заявки

   // Pst.Add('<queryid>+OperId+</queryid>');   //  № заявки (не обязательно)

    Pst.Add('</wm.exchanger.request>');         //  закрывающий тэг

    s1:=idHTTP1.Post('https://wm.exchanger...ist2.asp',Pst);

    Memo1.Lines.Add(UTF8toNorm(s1));

   Pst.Free;

 end; 

End; 

 

После чего строка s1 содержит: 

<?xml version="1.0"?><wm.exchanger.response>

<retval>-4</retval>

<retdesc>Ошибка загрузки XML c параметрами запроса - Ошибка при указании подписи, тег signstr.Идентификатор клиента не указан</retdesc></wm.exchanger.response>

 

Это была реализация через компонент Indy

Если реализовывать через Synapse то пишет:

Подпись не прошла проверку. Вы уверены что производили цифровую подпись ключами ВМ-идентификатора 123456789012 и подписывали строку 1234567890123 ?

 

P.S. 123456789012 - wmid 
1234567890123 - wmid+'3' т.е. склейка из wmid и 3 - вернуть все заявки

 

Всё-таки хотелось бы увидеть, что за XML формируется (что содержит Pst.Lines перед отправкой).

Интерфейсы WebMoney не изучал, но, навскидку:

 

 s1:=idHTTP1.Post('https://wm.exchanger...ist2.asp',Pst);

 

Какая кодировка выставлена у idHTTP1?

 

+ посмотрел интерфейс:

 

• signstr - 132-символьная цифровая подпись (ключами .kwm идентификатора wmid) значений 3-х тэгов запроса склееных в одну строку без пробелов "wmid + type + queryid" (формирование цифровой подписи см. в описании общих ВМ-интерфейсов для разработчиков)

 

может, все же попробовать в signstr добавить queryid?

правда, я пока не понял, откуда его брать.

 

+ еще: возможно, в качестве подписи совсем не склейка строк должна быть, а именно подпись, сгенерированная на ее основе

 

только что обратил внимание:

Podpis := Intf.SignString('Sklei');

думаю, должно быть так:

Podpis := Intf.SignString(Sklei);

[Serg-vi (WMID 379091742499 )]

Отличное замечание!
Неуж то я из-за этой мелочи 3 месяца долбался)))
Менял, компоненты доступа, перепробовал многие кодировки, обращался к различным Xml - интерфейсам...
А эту строку просто блоком копировал всё время, и ни разу не заметил, что там кавычки)
Сегодня днём буду дома - проверю, отпишусь.

Сообщение отредактировал Serg-vi: 14 ноября 2016 - 02:51

[Jaguar (WMID 385960635969 )]

Так хэппи-энд произошел или нет?

Проблема решилась?

[Serg-vi (WMID 379091742499 )]

Всё в силе, был очень занят, не мог добраться, чтобы проверить.

Кавычки исправил, но выдало ещё одну ошибку. Предполагаю, это из-за Indy. Копаться с Indy не буду, я и так слишком долго вокруг него танцы с бубном устраивал, просто попробую через Synapse и отпишусь.

P.S. Пользователь Jaguar, похоже, претендент на победу

[^-^ (WMID 273407224562 )]

Если не секрет: пишется кипер по линукс?

[Jaguar (WMID 385960635969 )]

Всё в силе, был очень занят, не мог добраться, чтобы проверить.

Кавычки исправил, но выдало ещё одну ошибку. Предполагаю, это из-за Indy. Копаться с Indy не буду, я и так слишком долго вокруг него танцы с бубном устраивал, просто попробую через Synapse и отпишусь.

P.S. Пользователь Jaguar, похоже, претендент на победу

А что за новая ошибка?

Я, конечно, не знаю, что за программу вы пишете и какие к ней требования.

Но выбор Delphi не очень ясен.

Или там сложный пользовательский интерфейс рисовать надо?