Помогите...нужно написать программу на языке Perl которая будет из списка айпишников выделять (красным цветом) потерянный, или удалённый ip и высылать на определенный мэил. Я сам в программирование ничего не шарю((( и рад бы научиться. но времени совсем нету. помогите пожалуйсто сделать эту прогу. нужно срочно. и нужно хотя бы краткое описание как это делается. помогите пожалуйсто...оч надо.
и простите если не туда тему создал я тут первый раз...извиняюсь заранее  

50€

MrD
Хорошая попытка )

в смысле хорошая попытка?

в смысле бесплатно, это никому не нужно.
Здесь помогают решать проблемы, а для таких запросов как  Ваш есть специальный раздел РАБОТА

хммм...ну мало ли...кто нибудь бы помог б...  

MrD, в раздел работа, цена вопроса 0$ может кто откликнется ;)
  

 да да - ключевая фраза, как будто у кого другого есть лишнее время.

 
Скажу даже больше
лишнего времени вообще не существует 

Добавлено @ 21:46
зы 
времени не существует

Это сообщение отредактировал(а) shamber - 16.3.2009, 22:13

ЕЕее мне нравятся эти слова...) в них глаголит правда  

Уважаемый MrD, пишите мне в аську: 232-010-606, попробуем решить Ваш вопрос.

P.S. Ключевое слово: попробуем. Жду...

MrD, только осторожнее  

arto, злой человек, 1 строка = 50€ ?   

кризис в стране) все жадные.  

  
MrD, не все

  Во всём есть исключения   

не правда, к этой строчке прилагается балончик с красной краской, а расходники нынче дорогие.
так что это не от arto зависит.

          

просто убил   

   
Поиск ip адреса в тексте

gcc, насколько я понял задачу топикстартера, речь идет не о том, чтобы найти в тексте нечто похожее на IP (это легко), а из списка IP найти битые/неживые. Последнее -- тоже несложно, но муторно. Это надо на список IP напустить что-нибудь вроде Net::Ping, но не просто так, а распаралелить (иначе будет долго). Кстати, MrD, если задача действительно такова, то в Net::Ping в качестве примера есть скрипт, который делает такой массированный пинг. Можно его взять за основу.

основа есть. но это только первый шаг    благодарю всех кому не лень и он помогает.  

я бы назвал это не помогает: а делает вместо тебя 
Впрочем это конечно же его личное дело 

ну говорю ж я нубас в этом дела!   умел б хоть чёто давно уж замутил. вот    

Э... Если речь обо мне, то я не собираюсь писать скрипт, а всего лишь дал совет.

MrD, программа, о которой я говорил выше, оказывается, отсутствует в последних версиях Net::Ping, но есть в более ранней: http://search.cpan.org/~bbb/Net-Ping-2.31/demo/fping
Посмотрите, может ее фунционалитета Вам уже хватит.

примерно так, если system возвращает 1,  при верном:

Помогите написать декодер ASN.1 ber на перле.
с использованием Convert::ASN1.

Это сообщение отредактировал(а) Cyr - 9.3.2014, 15:50

200€

могу дать 3000 руб.

btw, что такое ber? Berber language (ISO 639 alpha-3, ber)?
может der http://en.wikipedia.org/wiki/Distinguished...es#DER_encoding?

если моя догадка верна, то вот вам бесплатная подсказка:
# openssl x509 -in CERT1.pem -outform DER | perl -0777 -MConvert::ASN1=asn_dump -lne 'asn_dump($_)' 
0000  802: SEQUENCE {
0004  721:   SEQUENCE {
0008    3:     [CONTEXT 0] {
000A    1:       INTEGER = 2
000D     :     }
000D   10:     INTEGER = -1
0019    8:     SEQUENCE {
001B    6:       OBJECT ID = 1.2.643.2.2.3
0023     :     }
0023  101:     SEQUENCE {
0025   32:       SET {
0027   30:         SEQUENCE {
0029    9:           OBJECT ID = 1.2.840.113549.1.9.1
0034   17:           [UNIVERSAL 22]
0036     :             69 6E 66 6F 40 63 72 79 70 74 6F 70 72 6F 2E 72 [email protected]
0046     :             75 __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ u
0047     :         }
0047     :       }
0047   11:       SET {
0049    9:         SEQUENCE {
004B    3:           OBJECT ID = 2.5.4.6
0050    2:           [UNIVERSAL 19]
0052     :             52 55 __ __ __ __ __ __ __ __ __ __ __ __ __ __ RU
0054     :         }
0054     :       }
...

arto, у меня бинарник (пакет) от АТС. Протокол там CSTA (ASN.1 ber). есть даже файл с определениями asn1.
Сколько не бился, сколько не пробовал готовые pm. не выходит ни фига. утилитой unber из asn1c я получил тоже что и вы мне тут показали. Но надо перлом эту структуру ещё заполнить определениями из файла asn1.

Это сообщение отредактировал(а) Cyr - 10.3.2014, 15:52

В дистрибутиве Convert::ASN1 идёт пример x509decode, он рабочий:

# perl x509decode server-cert.der
$VAR1 = {
  "signature" => [
    "\"\254\263\240g\353\302\@6\232Vq \374.K=\333\261\203\363\226Z3\233\3333\336R\334\234\2006x\233\343\220\352c\314\f\254\17\275\1 &\217G'\203#\251\220\266\256\\\330< '\312\4\264^\233\205\3744\257^\221`;\322\337\267\6\256\343\1\t\37\211\257\n\30\n?\357C\326=n\26t2\263\6\360\212\364\200a\367\361\203\205\350,\35\270\203\366\201\207\263\315+\13\210\32\371?\25w;\314",
    1024
  ],
  "tbsCertificate" => {
    "subject" => {
      "rdnSequence" => [
        [
          {
            "type" => "2.5.4.6",
            "value" => {
              "printableString" => "DE"
            }
          }
        ],
        [
          {
            "value" => {
              "printableString" => "Bayern"
            },
            "type" => "2.5.4.8"
          }
        ],
...

Посмотрите и сделайте, как там описано, должно помочь.

ps. для asn.1 схему для гостового сертификата не нашёл, поэтому использовал стандартный rsa сертификат.

arto, давай начнём сначала.
Вот мой код (бинарник обрабатываемого пакета прикрёплён к сообщению):

выводит
$VAR1 = undef;
что я делаю не так?

Это сообщение отредактировал(а) Cyr - 11.3.2014, 11:50

Присоединённый файл ( Кол-во скачиваний: 3 )
 114_111.bin 0,08 Kb

Net::CSTA и Net::CSTA::ASN не помогут?

Может и помогут, только я не знаю с какой стороны к ним подступить ?
Как ими декодировать бинарник?

посмотреть как сделана и загружена грамматика и система типов, затем запустить decode.