воть пример головоломки )
открываю ie6.0 все красиво, меняю в строке
почему от содержимого
меняеца другая строка? и почему када вторую букву добавляю опять меняеца? какая связь между ячейкой с буквой B и той в которую вставлена таблица? :insane:
9
« : 13 Сентября 2007, 21:43:18 »
=> вот тут <= описан способ по которому с машины юзера скриптом собираеца инфа и дальше ... все бы хорошо ) только непонятно ничего в этой куче символов... что это например {7790769C-0471-11D2-AF11-00C04FA35D02} ? знает кто где почитать про это? ну или хотяб пару слов на тему сбора инфы с компа скриптом... может другие еще способы есть? поделитесь опытом плз "Как видим, в скрипте перебираются установленные компоненты системы (около 30 штук) и определяется их версия" эта куча символов как понимаю 1 из этих 30 компонентов ... хорошо бы гденить прочитать про них какие вобще бывают и тд
10
« : 04 Октября 2006, 09:02:12 »
на хостинге нет модуля GD ... в Image::Magick есть функция чтоб линии рисовать или придется велосипед изобретать? 
11
« : 08 Июля 2006, 19:46:45 »
есть модули для перла с которыми мона решать системы нелинейных алгебраических уравнений?
или может есть у кого скрипт в котором это уже реализовано?
12
« : 01 Июня 2006, 17:35:55 »
бред какойто ... много раз пользовался sendmail`ом никогда проблем не возникало... вот небольшой скрипт для теста который все время работал и перестал#!/usr/bin/perl
my $from = "09h\\@mail.ru";
my $from_name = "09h";
my $to = "admin\\@iron26.ru";
my $to_name = "Your";
my $subject = "aaaaaa";
my $text = "aaaaaaaaaaaaaaaaaaa";
open (MAIL, "|/usr/sbin/sendmail -t");
print MAIL "From: $from_name <$from>\\n";
print MAIL "To: $to_name <$to>\\n";
print MAIL "Content-Type: text/html; charset=\\"Windows-1251\\"\\n";
print MAIL "Subject: $subject\\n\\n";
print MAIL "$text";
close (MAIL);
print "Content-type: text/html\\n\\n";
print "send to $to !"; 1. не выдает никаких ошибок
2. не отправляет с машины вообще ничего (снифером смотрел)
пробовал запускать на работе, дома и еще на 2-х хостах дома и на работе стоит винхр, денвер... раньше на тока поставленной винде и денвере все работало а ща не хотит...
Что за мистика такая??? че делать? я в ужасе
13
« : 21 Мая 2006, 03:44:47 »
ну вот такой вот сайтик еще не законченый http://iron26.ru в прошлой версии были проблемы с яркостью на посаженых мониторах, вроде добавил яркости... но на новеньком лсд теперь немного засвечено кажется ... у каво как смотрится на мониторах (слишком темно\\светло)? PS вес сайта немного большеват ) про это не напоминайте )... делаю сайт для того чтоб клиентам показывать типа как свою работу, чтоб знали что с анимацией дружу чуть почуть, да и многие клиенты не понимают что такое скрипты ... и что они бывают плохими или хорошими и смотрят только на внешний вид )) есть идеи что добавить\\убрать?
14
« : 19 Мая 2006, 01:16:44 »
use Socket;
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname(\'tcp\'));
$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
$msg = "\\x05\\x01\\x00";
send (SOCK, "$msg", 0);
sysread(SOCK,$answer_data,1024);
print_data($answer_data);
$msg = "\\x05\\x02\\x00\\x01\\xcd\\xbc\\x93\\x2e\\x09\\xf2";
send (SOCK, "$msg", 0);
sysread(SOCK,$answer_data,1024);
print_data($answer_data);
#FUNCTIONS
sub print_data() { # выводим данные в hex
my ($data)=@_;
my $i=0;
foreach(split(//,$data)) {
print unpack(\'H8\',$_)." ";
$i++;
if ($i eq 16) {
print "
\\n";
$i=0;
}
}
print "
\\n";
} проблема: если делаю send (SOCK, "$msg", 0); больше 2-х раз скрипт вешается или оооочень долго думает.
как подольше пообщатся с сервером? запустил прогу которая через прокси сокс5 работает и снифером выдернул весь разговор
запрос - ответ:
05 01 00 - 05 00
05 02 00 01 cd bc 93 2e 09 f2 - 05 00 00 01 45 2f 67 8b 0e 40
05 02 00 02 - 05 00
05 01 00 03 0d 6c 6f 67 69 6e 2e 69 63 71 2e 63 6f 6d 14 46 - 05 00 00 01 45 2f 67 8b 0e 4d
... - ...
как этот разговор клиент-сервер реализовать?
15
« : 09 Мая 2006, 20:20:24 »
народ караул... выручайте, уже месяц разобратся не могу подключаюсь к прокси, пишу ему 05 01 00, он отвечает 05 00, потом пихаю это 05 01 00 01 сd bc 99 79 35 31 39 30, отвечает 05 00 00 01 30 28 99 02 35 31 и сразу после этого еще 2a 01 73 10 00 04 00 00 00 01 (это приветствие от сервера к которому и надо подключатся через проксю), а вот дальше не пойму... подключится подключился а как чтонить ($data) теперь отправить ? пробовал по всякому и даже никакого ответа не приходило #!/usr/bin/perl -wT
use Socket;
$host = "69.47.103.139"; #прокси
$port = "58";
print "Content-type: text/html\\n\\n";
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname(\'tcp\'));
$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
$msg =
"\\x05".
"\\x01".
"\\x00";
send (SOCK, "$msg", 0);
sysread(SOCK,$answer_data,1024); # читаем ответ от сервера
print_data($answer_data); # печатаем ответ от сервера
$msg =
"\\x05".
"\\x01".
"\\x00".
"\\x01".
"\\xcd\\xbc\\x99\\x79". # ip
"\\x35\\x31\\x39\\x30"; # port
send (SOCK, "$msg", 0);
sysread(SOCK,$answer_data,1024); # читаем ответ от сервера
# тут отвечает прокси сервер
print "
";
print_data($answer_data); # печатаем ответ от сервера
sysread(SOCK,$answer_data,1024); # читаем ответ от сервера
# а тут приходит приветствие от сервера icq с которым мне и надо пообщатся через проксю
print "
";
print_data($answer_data); # печатаем ответ от сервера
close(SOCK);
#FUNCTIONS
sub print_data() { # выводим данные в hex
my ($data)=@_;
my $i=0;
foreach(split(//,$data)) {
print unpack(\'H8\',$_)." ";
$i++;
if ($i eq 16) {
print "\\n";
$i=0;
}
}
} Вот это надо отправить через проксю серверу icq который со мной здаровается: \\x00\\x2a\\x01\\x13\\x5a\\x00\\x7c\\x00\\x00\\x00\\x01\\x00\\x01\\x00\\x09\\x32\\x34\\x37\\x32\\x37\\x32\\x39\\x35\\x34\\x00\\x02\\x00\\x05\\xc0\\x14\\xb0\\xf2\\x0e\\x00\\x03\\x00\\x2c\\x46\\x61\\x6b\\x65\\x20\\x69\\x63\\x71\\x2d\\x63\\x6c\\x69\\x65\\x6e\\x74\\x20\\x73\\x70\\x65 \\x63\\x69\\x61\\x6c\\x20\\x66\\x6f\\x72\\x20\\x70\\x6f\\x69\\x7a\\x6f\\x6e\\x2e\\x6e\\x65\\x74\\x2e\\x72\\x75\\x20\\x3d\\x29\\x00\\x16\\x00\\x02\\x01\\x0a\\x00\\x17\\x00\\x02\\x00\\x04\\x00\\x18\\x00\\x02\\x00\\x41\\x00\\x19\\x00\\x02\\x00\\x01\\x00\\x1a\\x00\\x02\\x0c\\xd1\\x00 \\x14\\x00\\x04\\x00\\x00\\x00\\x55\\x00\\x0f\\x00\\x02\\x65\\x6e\\x00\\x0e\\x00\\x02\\x75\\x73 без прокси с icq сервером общаюсь нормально никак не могу догнать как отправить эти данные описание протокола или подскажите как сделать это через IO::Socket::Socks #!/usr/bin/perl -wT
use IO::Socket::Socks;
my $socks = new IO::Socket::Socks(ProxyAddr=>"69.47.103.139", ProxyPort=>"58", ConnectAddr=>"login.icq.com", ConnectPort=>"5190", );
$socks->close(); получить главную страницу гугла получается и послушать приветствие от сервера аськи тоже, но вот отправить эти данные (\\x00\\x2a\\x01\\x13\\x5a\\x00\\x7c\\x00\\x00\\x00\\x01\\x00\\x01\\.......) серверу аськи не получается
| 
Просмотр сообщений