[Perl] Новичкам: задаем вопросы

Discussion in 'PHP' started by _Great_, 26 May 2007.

Thread Status:
Not open for further replies.
  1. ~EviL~

    ~EviL~ Elder - Старейшина

    Joined:
    14 Aug 2007
    Messages:
    169
    Likes Received:
    77
    Reputations:
    4
    Прошу прощения, вот он весь код:

    printf $socket ("GET %sindex.php?act=Login&CODE=autologin HTTP/1.0\nHost: %s\nAccept: */*\nCookie: member_id=%s; pass_hash=%s%s%s%s%s\nConnection: close\n\n",
    $path,$server,$cmember_id,$pass_hash1,$cmember_id,$pass_hash2,$pass_hash3,$nmalykh);

    Выводится такая ошибка:

    Can't use an undefined value as a symbol reference
     
  2. Digimortal

    Digimortal Banned

    Joined:
    22 Aug 2006
    Messages:
    471
    Likes Received:
    248
    Reputations:
    189
    ~EviL~

    ошибка в том, что у тебя $socket похоже не определен..
    имхо, printf тут не к месту, ведь можно обойтись простым print'ом..
     
    #142 Digimortal, 22 Sep 2007
    Last edited: 22 Sep 2007
  3. cRiLaZ

    cRiLaZ Member

    Joined:
    17 Oct 2006
    Messages:
    21
    Likes Received:
    15
    Reputations:
    18
    мне страницу нужно вытащить. https://..... в инете ничего путного не нашел =\ кто нибудь может направить на путь истинный или готовый вариант (если есть).
     
  4. George767

    George767 Elder - Старейшина

    Joined:
    10 Jan 2006
    Messages:
    129
    Likes Received:
    25
    Reputations:
    -1
    Смотри в сторону curl
     
  5. cRiLaZ

    cRiLaZ Member

    Joined:
    17 Oct 2006
    Messages:
    21
    Likes Received:
    15
    Reputations:
    18
    ))))) я видел такой же ответ на каком то форуме. не нужно копипастить. я же сказал что искал в инете. незнаю как там в с curl в перл. но пхп мне лень переустонавливать что бы добавить эту библиотеку ради одного случая
     
    1 person likes this.
  6. Digimortal

    Digimortal Banned

    Joined:
    22 Aug 2006
    Messages:
    471
    Likes Received:
    248
    Reputations:
    189
    cRiLaZ

    если с LWP работаешь, то используй Crypt::SSLeay - удобная штука..
     
    1 person likes this.
  7. genom--

    genom-- Elder - Старейшина

    Joined:
    9 Jul 2006
    Messages:
    668
    Likes Received:
    416
    Reputations:
    288
    диджи забыл объяснить как ставить ssleay

    ps трай ppm install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd

    если не покатит как у меня -- то пиши надобудет в ручную dll -ки скидывать =)
     
    2 people like this.
  8. Digimortal

    Digimortal Banned

    Joined:
    22 Aug 2006
    Messages:
    471
    Likes Received:
    248
    Reputations:
    189
    да у него, может, и не активперл даже стоит..
    а писать каждый раз как юзать ppm не вижу смысла..
    то, что этот модуль при установке на винду может удалить дллку из систем32 - так хз, может, поправили уже.. )
     
  9. XenOtai

    XenOtai Elder - Старейшина

    Joined:
    30 Dec 2006
    Messages:
    25
    Likes Received:
    17
    Reputations:
    16
    Кто-нибудь может подсказать код веб-шелла на перле для инъекции, как на пхп есть
     
  10. genom--

    genom-- Elder - Старейшина

    Joined:
    9 Jul 2006
    Messages:
    668
    Likes Received:
    416
    Reputations:
    288
    это если инклудить только в .cgi скрипт написанный на perl

    тогда system("ls"); --
     
  11. vladest

    vladest Banned

    Joined:
    16 Jul 2007
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    Подскажите плиз, как сделать что один и тот же сокет отправлял на порт1 и читал с порта2, возможно ли такое? Просто 2 сокета чтоб не создавать.
     
  12. Digimortal

    Digimortal Banned

    Joined:
    22 Aug 2006
    Messages:
    471
    Likes Received:
    248
    Reputations:
    189
    >> возможно ли такое?

    невозможно..
     
  13. genom--

    genom-- Elder - Старейшина

    Joined:
    9 Jul 2006
    Messages:
    668
    Likes Received:
    416
    Reputations:
    288
    если ты юзаешь use socket -- то возможно перехватывать подключение клиента к прослушиваемомму порту и потом отправка клиенту чего либо
     
  14. vladest

    vladest Banned

    Joined:
    16 Jul 2007
    Messages:
    15
    Likes Received:
    0
    Reputations:
    0
    Не понял. Это и так ясно, что можно отловить и послать ))
    Просто такая проблема:
    Серверу запрос отправляется на порт 2222 (например)
    А ответ должен прийти на порт 3333.
    Вот одним сокетом как так сделать?
     
  15. C!klodoL

    C!klodoL Elder - Старейшина

    Joined:
    5 Jun 2007
    Messages:
    302
    Likes Received:
    208
    Reputations:
    4
    Ты пишешь клиент или сервер? Одним сокетом такое не сделать, сокет это ip:port и с двумя портами ты сокет не создашь и после создания порт тоже не поменяешь, и чем тебя смущает создание двух сокетов?
     
    2 people like this.
  16. KSURi

    KSURi tnega AOLPS

    Joined:
    6 Jun 2006
    Messages:
    458
    Likes Received:
    219
    Reputations:
    357
    Весьма полезный топик для веб перловиков: http://community.livejournal.com/ru_perl/200658.html
     
  17. n4n0bit

    n4n0bit Elder - Старейшина

    Joined:
    11 Sep 2006
    Messages:
    52
    Likes Received:
    14
    Reputations:
    20
    если я правильно тебя понял то vladest не слушай этих дядек =) все можна делать.
    Лучше всего на мой взгляд сделать это используя fork() где скажем родитель будет читать из сокета а дочерный будет писать в сокет.

    ps: и обзаведись толковой литературой., а так же perlipc and perlfork
     
    #157 n4n0bit, 10 Oct 2007
    Last edited: 10 Oct 2007
  18. Digimortal

    Digimortal Banned

    Joined:
    22 Aug 2006
    Messages:
    471
    Likes Received:
    248
    Reputations:
    189
    n4n0bit, сам ты дядько.. )

    >> Лучше всего на мой взгляд сделать это используя fork() где скажем родитель будет читать из сокета а дочерный будет писать в сокет.

    по-любому придется создать два сокета.. +)
     
  19. n4n0bit

    n4n0bit Elder - Старейшина

    Joined:
    11 Sep 2006
    Messages:
    52
    Likes Received:
    14
    Reputations:
    20
    Просто такая проблема:
    Серверу запрос отправляется на порт 2222 (например)
    А ответ должен прийти на порт 3333.
    Вот одним сокетом как так сделать?


    нужна два сокета!

    =))
     
    #159 n4n0bit, 11 Oct 2007
    Last edited: 11 Oct 2007
    1 person likes this.
  20. DIAgen

    DIAgen Banned Life!

    Joined:
    2 May 2006
    Messages:
    1,055
    Likes Received:
    376
    Reputations:
    460
    Вот есть скриптик
    Code:
    #!/usr/bin/perl
    print "Content-type: text/html\n\n";
    my $host = "89.108.80.80";
    use Net::Ping;
    $p = Net::Ping->new();
    print "$host is alive.\n" if $p->ping($host);
    $p->close();
    Вот только он не чего не выводит... Библиотека Net::ping установлена, выводит пустую стрницу и все... в чем может быть загвоздка?
     
Thread Status:
Not open for further replies.