Есть исходник directmailer'а

Статус
В этой теме нельзя размещать новые ответы.

dez2007

Создатель
Регистрация
27 Апр 2008
Сообщения
31
Реакции
1
Есть его исходник. А так же кусок поста с форума не помню какого : ;)
######################################
Да действительно есть зависимость работы скрипта от этой строки
rel => 'u114XXXXXXX'
а именно номера лицензии я так понимаю, делается запрос на какойто урл, я копать не стал какой именно.

И если этот номер заблочен скрипт перестает слать и бодяжит ошибки:
502 Error: command not implemented
501 Unknown command
502 unimplemented (#5.5.1)

этот номер зависит от этой проверки
for ('rel', 'addr', 'name', 'path') { $q .= '=' . unpack ('H*', ($c{$_} ||= 'none')); }
my $u = sub { my $u = pack ('H*', '687474703a2f2f65646573736f2e6e65742f6367692d62696e'.
'2f646d2f696e6465782e6367693f75'); $u .= shift }; $q = $u->($q);


немного поколдовав в коде, и выяснив гдеб это отрубить. Все заработало.
А номер лицензии скрипта 1.6.8 который я слил случайно на купленном фтп и правда сегодня перестал работать.

Но после модификации я смело забил номер лицензии u1111111111 и продолжил юзать скрипт дальше
#########################################
Предлагаю тем кто шарит переделать этот изходник.
 

Вложения

  • mailer 1.6.8.txt
    72,9 KB · Просмотры: 3
Статус
В этой теме нельзя размещать новые ответы.
Назад
Сверху