Форум АНТИЧАТ - Просьбы о написании скриптов на Php, Perl

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - Просьбы о написании скриптов на Php, Perl (https://forum.antichat.xyz/showthread.php?t=49138)

Piflit

16.09.2007 00:16

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

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

Заявки подаем в формате:

Язык скрипта
Краткое описание

Ответы постить в формате:

Ник просящего (Тот, кому делали скрипт)
Сам скрипт в тегах [code] , [php] или ссылкой на скачку архива

genom--

16.09.2007 00:39

ыыыыыыыыыыыыы
Язык: Perl
Описание: Напишите код для irc бота который успешно законнектится на теперешний канал ачата - хотябы кусочек самого коннекта и приветную мессагу -- будет практика так сказать.

ant0ha

16.09.2007 01:20

Так вроде ..

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 => $server, PeerPort => $port, Proto => '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";

FithShist

16.09.2007 04:21

язык: php
описание: выдергивание полных версий новостей, допустим с readme.ru -)

Ponchik

16.09.2007 10:28

язык: С++
описание: Прога, в ней поле и кнопка, пишем в поле текст, нажимаем на кнопку, она нам алертом выдаёт этот текст. Просто я в С++ полный 0 и хотелбы посмотреть как на нём проги выглядят... Может на него подсяду :)

n1†R0x

16.09.2007 10:37

Цитата:

Сообщение от Ponchik

с++ явно не в раздел с веб-программированием

Ch3ck

16.09.2007 11:22

Цитата:

Может на него подсяду

Ну так подсядь, да посмотри...

Хелпер

16.09.2007 18:21

1. Php
2. Записывает номер скачиванья файла и время в Txt файл.

Ch3ck

16.09.2007 18:42

Цитата:

2. Записывает номер скачиванья файла и время в Txt файл.

http://site.lentay.net/less1.php

ртуть

16.09.2007 18:45

язык: Perl
скрипт с веб-интерфейсом для содания дампа базы данных mysql и postgres желательно ))

BartoSS

16.09.2007 19:43

Нужна такая фигня! (Я в php+mysql N00B)
Чтоб на HTML саите поивились новости! Я ввожу например в базу а они из базы показывались на странитсе HTML :/

BartoSS

16.09.2007 20:25

Кароче нужно чтоб из базы новости поивились между дивами! (Странится в Html)

ant0ha

16.09.2007 20:42

Цитата:

Сообщение от BartoSS

Кароче нужно чтоб из базы новости поивились между дивами! (Странится в Html)

этож самые основы

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['названия поля из таблицы'];

}

?>

Piflit

16.09.2007 20:42

Цитата:

Сообщение от BartoSS

Кароче нужно чтоб из базы новости поивились между дивами! (Странится в Html)

в хтмл ты такое не сделаешь. нужен php etc.

ant0ha

16.09.2007 20:44

Цитата:

Сообщение от Piflit

в хтмл ты такое не сделаешь. нужен php etc.

ну к примеру можно просто расширение страниц на php изменить

Hormold

16.09.2007 20:58

Язык: Php.
Нужен скрипт который берёт новости c ленты(http://lenta.ru/internet/)(полный текст+загловок) и сохраняет её например в переменную $title и $text можно ещё граббер даты...
Плиз Очень нужно!

Ar3s	19.09.2007 17:19

Нужен скрипт на perl который сканирует диапазон IP адресов и проверяет наличие открытых определенных портов. (сканер прокси серверов)
Все настройки хранятся в теле скрипта:
1. диапазон ip в виде 10.168.170.82-10.168.170.200
2. порты в виде 80,8080,1080,3124,3128,3127,5555,6666
Далее найденные открытые порты сохраняются в файл find.txt в виде ip:open_port
После завершения скана управление передается любому прокси чекеру на perl-e.
Прокси чекеры видел на ачате.

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

A1e][

23.09.2007 11:31

нужен скрипт на перл (желательно) или пхп который бы выдирал имя хоста из списка вида
ftp://login:pass@site1.com
ftp://login:pass@site2.com
ftp://login:pass@site3.com
и записывал их в log.txt

lsass.exe

23.09.2007 11:53

Цитата:

Сообщение от A1e][

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

Cawabunga

23.09.2007 11:59

1. Язык php
2. описание : обычный автоматический прокси чекер пример: http://proxy.freeicq.org/

NOmeR1

23.09.2007 12:27

Цитата:

Сообщение от A1e][

PHP код:


		
			
<?

$fopen = fopen('log.txt','a');

$spisok = 'файл_списка.txt';

$spisok = explode("\n", file_get_contents($spisok));

for($i=0;$i<count($spisok);$i++)

{

 $xost = explode('@',$spisok[$i]);

 fwrite($fopen,$xost[1]);

 fwrite($fopen,"\n");

}

fclose($fopen);

?>

baltazar

23.09.2007 13:34

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

ant0ha

23.09.2007 15:49

Цитата:

Сообщение от baltazar

кидаешь этот скрипт в папку с авиками и в папку с юзербарами, на папках должны быть права 777, и запускаешь их когда надо =)

PHP код:


		
			
<?php

$files = glob('*');

$rnd=array_rand($files,count($files));



for($i=0;$i<count($files);$i++)

{

  rename($files[$i],'tmp_'.$files[$i]);

}



for($i=0;$i<count($files);$i++)

{

  rename('tmp_'.$files[$i],$files[$rnd[$i]]);

  echo $files[$i].'->'.$files[$rnd[$i]].'<br>';

}

?>

скрипт случайным образом поменяет у всех файлов между собой названия, и само собой в профиле картинки изменятся :)

Время: 08:29