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

Просмотр полной версии : Просьбы о написании скриптов на Php, Perl

Piflit

16.09.2007, 00:16

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

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

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

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

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

genom--

16.09.2007, 00:39

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

ant0ha

16.09.2007, 01:20

Так вроде ..

#!/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

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

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

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

<?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_pass word) 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

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

ant0ha

16.09.2007, 20:44

в хтмл ты такое не сделаешь. нужен 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

[']нужен скрипт на перл (желательно) или пхп который бы выдирал имя хоста из списка вида
ftp://login:pass@site1.com
ftp://login:pass@site2.com
ftp://login:pass@site3.com
и записывал их в log.txt
<?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

[']нужен скрипт на перл (желательно) или пхп который бы выдирал имя хоста из списка вида
ftp://login:pass@site1.com
ftp://login:pass@site2.com
ftp://login:pass@site3.com
и записывал их в log.txt
<?
$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

нужен скрипт который менял бы напрмер в профиле аватар и юзербар с определенным интервалом,тоесть сегодня один авик,завтра другой,чтоб все авики брались с определенной папки)
кидаешь этот скрипт в папку с авиками и в папку с юзербарами, на папках должны быть права 777, и запускаешь их когда надо =)
<?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>';
}
?>
скрипт случайным образом поменяет у всех файлов между собой названия, и само собой в профиле картинки изменятся :)