Php скрипт в perl

Discussion in 'PHP' started by $n@ke, 9 Sep 2008.

  1. $n@ke

    $n@ke Elder - Старейшина

    Joined:
    18 Sep 2006
    Messages:
    697
    Likes Received:
    404
    Reputations:
    134
    есть хост, который не понимает пхп, в данной дире..только pl(cgi). Попытки запустить пхп из cgi неудались.
    в скриптах с99madshell и, особенно, eugen shell,функция: "а доступна ли дира под запись",-работает как раз так,как надо мне!
    Вопрос:
    Где можно такое на перле взять или мб ктото могет переписать один из вышеперечисленных скриптов на перл?
     
  2. P3L3NG

    P3L3NG Banned

    Joined:
    4 Jun 2008
    Messages:
    175
    Likes Received:
    204
    Reputations:
    11
    http://www.google.ru/search?q=webshell+perl&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:ru:eek:fficial&client=firefox-a

    http://mentat.sibintercom.ru/Nemo/shell/r57pws.pl.txt ссыль два
     
  3. $n@ke

    $n@ke Elder - Старейшина

    Joined:
    18 Sep 2006
    Messages:
    697
    Likes Received:
    404
    Reputations:
    134
    прочти мой пост внимательнее, там ясно написано что мне надо не АБЫ какой шелл на перле, а именно с функцией определения доступной под запись диры, как у с99madshell или Eugen.
     
  4. slesh

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

    Joined:
    5 Mar 2007
    Messages:
    2,702
    Likes Received:
    1,224
    Reputations:
    455
    $n@ke дык на перле system("ls -la");
    И там уже смотри права доступа на папку. если конечно серв не на винде
     
  5. $n@ke

    $n@ke Elder - Старейшина

    Joined:
    18 Sep 2006
    Messages:
    697
    Likes Received:
    404
    Reputations:
    134
    я совсем чтоле по вашему ноль??))
    я не зря написал определенные скрипты! там иная система, на Afs она не катит.
     
  6. Kaimi

    Kaimi Well-Known Member

    Joined:
    23 Aug 2007
    Messages:
    1,732
    Likes Received:
    809
    Reputations:
    231
    Вариант?
    my $dir="C:/Perl/";
    stat($dir);
    print "Readable\n" if -r _;
    print "Writable\n" if -w _;
    print "Executable\n" if -x _;
     
    _________________________
  7. aka PSIH

    aka PSIH Elder - Старейшина

    Joined:
    7 Feb 2006
    Messages:
    543
    Likes Received:
    274
    Reputations:
    51
    это "алиасы" под ними просто сохранены команды *nix
    ex.:
    find all writables dir and files
    cmd: find . -perm -2 -ls

    так что заливай любой шелл на перле, и выполняй эти команды... ;)

    и т.д и т.п
     
    #7 aka PSIH, 9 Sep 2008
    Last edited: 9 Sep 2008
  8. $n@ke

    $n@ke Elder - Старейшина

    Joined:
    18 Sep 2006
    Messages:
    697
    Likes Received:
    404
    Reputations:
    134
    2 Kaimi - нет. там надо разобрать алиас, помоему чмодится дира(файл), и, если тру, то выводим в green название диры(файла).

    2 aka PSIH - нет нет)) я не зря написал именно эти шеллы)
    повторюсь:
     
  9. Spyder

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

    Joined:
    9 Oct 2006
    Messages:
    1,388
    Likes Received:
    1,209
    Reputations:
    475
    я совсем чтоле по вашему ноль??))

    по моему ты совсем ноль, тебе aka PSIH написал Ленокс команду find, которую юзает твой разлюбимейщий c99madshell. Никакой там другой система нету

    cmd: find . -perm -2 -ls

    поиск всех файлов и дир в тукушей папке и подпапках с правами -rwxrwxrwx

    для поиска только даир доступных на запись

    find . -perm -2 -type d -ls

    http://linux.about.com/od/commands/l/blcmdl1_find.htm

    если тебе так не хочется юзать find, и если у тебя linux, выполняй
    id
    ls -la /dira

    Смотри какие права для владельца, для группы и для всех остальных
    Если у тебя виндвоз то тебе ничто не поможет
     
    #9 Spyder, 9 Sep 2008
    Last edited: 9 Sep 2008
    1 person likes this.
  10. $n@ke

    $n@ke Elder - Старейшина

    Joined:
    18 Sep 2006
    Messages:
    697
    Likes Received:
    404
    Reputations:
    134
    а по моему ты nix`ы видел только на локалхосте..

    специально для тебя, не поленюсь и напишу еще раз:
    там AFS, и "find . -perm -2 -ls",etc - можешь делать до усЁра, и пробовать записать в диру, что покажет тебе такая команда - тоже до того самого...

    зы:на крупных .edu и некоторых других(iastate.edu,cern.ch,openafs.org) серваках есть AFS.