Просьбы о написании скриптов на Php, Perl

Discussion in 'PHP' started by Piflit, 16 Sep 2007.

  1. Piflit

    Piflit Banned

    Joined:
    11 Aug 2006
    Messages:
    1,249
    Likes Received:
    585
    Reputations:
    31
    Просьбы о написании скриптов

    Собственно сюда можете постить свои просьбы с указанием языка, и принципа работы скрипта.
    Если будут желающие, то они его напишут и выложат здесь. Думаю, новичкам теперь будет
    на чем потренироваться. :)

    Заявки подаем в формате:
    • Язык скрипта
    • Краткое описание

    Ответы постить в формате:
    • Ник просящего (Тот, кому делали скрипт)
    • Сам скрипт в тегах
      Code:
       , [php] или ссылкой на скачку архива
      [/list]
     
    #1 Piflit, 16 Sep 2007
    Last edited by a moderator: 25 Sep 2007
    1 person likes this.
  2. genom--

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

    Joined:
    9 Jul 2006
    Messages:
    668
    Likes Received:
    416
    Reputations:
    288
    ыыыыыыыыыыыыы
    Язык: Perl
    Описание: Напишите код для irc бота который успешно законнектится на теперешний канал ачата - хотябы кусочек самого коннекта и приветную мессагу -- будет практика так сказать.
     
  3. ant0ha

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

    Joined:
    22 May 2007
    Messages:
    130
    Likes Received:
    50
    Reputations:
    13
    Так вроде ..
    PHP:
    #!/usr/bin/perl

    use IO::Socket;

    $server "irc.antichat.net";
    $nick "ant0ha";
    $user "bot"
    $channel "#antichat";
    $port '7771';

    $connect = new IO::Socket::INET(PeerAddr => $serverPeerPort => $portProto => 'tcp';) or die "Connect error\n";

    print 
    $connect "NICK $nick\r\n";
    print 
    $connect "USER $user \r\n"

    while (
    $input = <$connect>) {
      if (
    $input =~ /^PING(.*)$/i) {
        print 
    $connect "PONG $1\r\n";
      }
    }

    print 
    $connect "JOIN $channel\r\n";

    while (
    $input = <$connect>) {
      
    chop $input;
      if (
    $input =~ /^PING(.*)$/i) {
        print 
    $connect "PONG $1\r\n";
        } else {
          print 
    "$input\n";
        }


    print 
    $connect "PRIVMSG $channel :Hi\r\n";
     
    4 people like this.
  4. FithShist

    FithShist New Member

    Joined:
    26 Dec 2005
    Messages:
    12
    Likes Received:
    0
    Reputations:
    0
    язык: php
    описание: выдергивание полных версий новостей, допустим с readme.ru -)
     
  5. Ponchik

    Ponchik Хлебо-булочное изделие

    Joined:
    30 Aug 2005
    Messages:
    687
    Likes Received:
    807
    Reputations:
    311
    язык: С++
    описание: Прога, в ней поле и кнопка, пишем в поле текст, нажимаем на кнопку, она нам алертом выдаёт этот текст. Просто я в С++ полный 0 и хотелбы посмотреть как на нём проги выглядят... Может на него подсяду :)
     
  6. n1†R0x

    n1†R0x Elder - Старейшина

    Joined:
    20 Jan 2007
    Messages:
    728
    Likes Received:
    376
    Reputations:
    235
    с++ явно не в раздел с веб-программированием
     
    1 person likes this.
  7. Ch3ck

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

    Joined:
    9 Jun 2006
    Messages:
    1,363
    Likes Received:
    1,192
    Reputations:
    430
    Ну так подсядь, да посмотри...
     
  8. Хелпер

    Хелпер Elder - Старейшина

    Joined:
    21 Feb 2007
    Messages:
    120
    Likes Received:
    31
    Reputations:
    -1
    1. Php
    2. Записывает номер скачиванья файла и время в Txt файл.
     
  9. Ch3ck

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

    Joined:
    9 Jun 2006
    Messages:
    1,363
    Likes Received:
    1,192
    Reputations:
    430
    http://site.lentay.net/less1.php
     
  10. ртуть

    ртуть Elder - Старейшина

    Joined:
    31 Aug 2007
    Messages:
    314
    Likes Received:
    389
    Reputations:
    29
    язык: Perl
    скрипт с веб-интерфейсом для содания дампа базы данных mysql и postgres желательно ))
     
  11. BartoSS

    BartoSS New Member

    Joined:
    26 Aug 2007
    Messages:
    8
    Likes Received:
    0
    Reputations:
    0
    Нужна такая фигня! (Я в php+mysql N00B)
    Чтоб на HTML саите поивились новости! Я ввожу например в базу а они из базы показывались на странитсе HTML :/
     
  12. BartoSS

    BartoSS New Member

    Joined:
    26 Aug 2007
    Messages:
    8
    Likes Received:
    0
    Reputations:
    0
    Кароче нужно чтоб из базы новости поивились между дивами! (Странится в Html)
     
  13. ant0ha

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

    Joined:
    22 May 2007
    Messages:
    130
    Likes Received:
    50
    Reputations:
    13
    этож самые основы

    PHP:
    <?php
    $mysql_login
    ='root'// пользователь mysql
    $mysql_password='password'// пароль mysql
    $mysql_host='localhost'// хост
    $mysql_db='news'// база mysql
    $mysql_table='news'// таблица новостей

    mysql_connect($mysql_host,$mysql_login,$mysql_password) or die(mysql_error());
    mysql_select_db($mysql_db);

    $query=mysql_query("select * from `$mysql_table`") or die(mysql_error());

    for(
    $i=0;$i<mysql_num_rows($query);$i++)
    {
      
    $array=mysql_fetch_array($query);
      echo 
    $array['названия поля из таблицы'];
    }
    ?>
     
  14. Piflit

    Piflit Banned

    Joined:
    11 Aug 2006
    Messages:
    1,249
    Likes Received:
    585
    Reputations:
    31
    в хтмл ты такое не сделаешь. нужен php etc.
     
    2 people like this.
  15. ant0ha

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

    Joined:
    22 May 2007
    Messages:
    130
    Likes Received:
    50
    Reputations:
    13
    ну к примеру можно просто расширение страниц на php изменить
     
    1 person likes this.
  16. Hormold

    Hormold Banned

    Joined:
    26 Jun 2007
    Messages:
    43
    Likes Received:
    9
    Reputations:
    -14
    Язык: Php.
    Нужен скрипт который берёт новости c ленты(http://lenta.ru/internet/)(полный текст+загловок) и сохраняет её например в переменную $title и $text можно ещё граббер даты...
    Плиз Очень нужно!
     
    #16 Hormold, 16 Sep 2007
    Last edited: 16 Sep 2007
  17. Ar3s

    Ar3s Banned

    Joined:
    4 May 2005
    Messages:
    86
    Likes Received:
    14
    Reputations:
    5
    Нужен скрипт на perl который сканирует диапазон IP адресов и проверяет наличие открытых определенных портов. (сканер прокси серверов)
    Все настройки хранятся в теле скрипта:
    1. диапазон ip в виде 10.168.170.82-10.168.170.200
    2. порты в виде 80,8080,1080,3124,3128,3127,5555,6666
    Далее найденные открытые порты сохраняются в файл find.txt в виде ip:eek:pen_port
    После завершения скана управление передается любому прокси чекеру на perl-e.
    Прокси чекеры видел на ачате.

    Суть в том, чтобы самому насканить открытых портов, отчекать их собственными силами (т.е. прокси черер не использует общедоступные чекеры а проверку проводит сам), и затем в файликах http.txt https.txt socks4.txt и socks5.txt сохраняются найденные живые проксы.
     
  18. A1e][

    A1e][ New Member

    Joined:
    4 Nov 2006
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    нужен скрипт на перл (желательно) или пхп который бы выдирал имя хоста из списка вида
    ftp://login:p[email protected]
    ftp://login:p[email protected]
    ftp://login:p[email protected]
    и записывал их в log.txt
     
  19. lsass.exe

    lsass.exe Elder - Старейшина

    Joined:
    5 Aug 2007
    Messages:
    156
    Likes Received:
    161
    Reputations:
    24
    PHP:
    <?php
    $f
    =fopen("log.txt","a");
    $t=fopen("list.txt","r");
    while(!
    feof($t))
    {
    $h=fgets($t,255);
    list(
    $b,$g)=explode("@",$h);
    fwrite($f,$g);
    }
    fclose($f);
    fclose($t);
    ?>
    Исходный список лежит в list.txt
     
    #19 lsass.exe, 23 Sep 2007
    Last edited: 23 Sep 2007
  20. Cawabunga

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

    Joined:
    16 Apr 2007
    Messages:
    359
    Likes Received:
    165
    Reputations:
    -22
    1. Язык php
    2. описание : обычный автоматический прокси чекер пример: http://proxy.freeicq.org/