ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
06.11.2007, 02:04
|
|
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
Провел на форуме:
1948091
Репутация:
1686
|
|
разделом ошибся чтоли? почему php? а так никто еще system() не отменял можно и ось и им компа с сети узнать и много чего еще
|
|
|
06.11.2007, 02:32
|
|
Участник форума
Регистрация: 06.02.2006
Сообщений: 137
Провел на форуме:
656903
Репутация:
15
|
|
народ как правельно сделать подсчёт сколько компов в онлайне:
if (eregi ("1", $dati_mount[1], $out)) {$connesso="<img src=\"on.gif\">online";
global $a;
$a++;
echo " Сейчас в сети $a пользователей";}
мне выдаёт Сейчас в сети 1 пользователей Сейчас в сети 2 пользователей =)
а как написать правельно? |
|
|
|
06.11.2007, 03:30
|
|
Участник форума
Регистрация: 06.02.2006
Сообщений: 137
Провел на форуме:
656903
Репутация:
15
|
|
ой яж ошибся топиком =)
|
|
|
|
17.11.2007, 11:12
|
|
Members of Antichat - Level 5
Регистрация: 09.07.2006
Сообщений: 553
Провел на форуме:
7561206
Репутация:
1861
|
|
есть скрипт, но в нем походу есть ошибки, потому что за место списка он выводит несколько раз первую строку из файла, а нужно чтобы все...
Код:
open(SITES,"sites.txt") ;
@server = <SITES>;
close(SITES);
for ($i=$#server; $i>=0; $i--){
print "forum $server[i] unvulnerable\r\n";
}
компилятор выводит 2 ошибки:
Код:
Unquoted string "i" may clash with future reserved word at poisk.pl line 6.
Argument "i" isn't numeric in array element at poisk.pl line 6.
|
|
|
|
17.11.2007, 12:10
|
|
Banned
Регистрация: 12.01.2007
Сообщений: 113
Провел на форуме:
4094601
Репутация:
495
|
|
Код:
#!perl
use strict;
use warnings;
open(my $SITES,"sites.txt") ;
while( <$SITES> )
{
chomp;
print "$_ \n";
}
sites.txt
Код:
192.168.0.1
192.168.0.2
192.168.0.3
192.168.0.4
Код:
C:\>s.pl
192.168.0.1
192.168.0.2
192.168.0.3
192.168.0.4
|
|
|
|
17.11.2007, 12:24
|
|
Members of Antichat - Level 5
Регистрация: 09.07.2006
Сообщений: 553
Провел на форуме:
7561206
Репутация:
1861
|
|
Сообщение от demonoid
Код:
#!perl
use strict;
use warnings;
open(my $SITES,"sites.txt") ;
while( <$SITES> )
{
chomp;
print "$_ \n";
}
sites.txt
Код:
192.168.0.1
192.168.0.2
192.168.0.3
192.168.0.4
Код:
C:\>s.pl
192.168.0.1
192.168.0.2
192.168.0.3
192.168.0.4
Конечно спасибо...
Но этим способом мы уже реализовывали, мне нужно указать ошибки в моем коде...
|
|
|
|
17.11.2007, 13:33
|
|
Banned
Регистрация: 12.01.2007
Сообщений: 113
Провел на форуме:
4094601
Репутация:
495
|
|
Код:
....
chomp( $server[$i] );
print "forum $server[$i] unvulnerable \n";
....
Код:
C:\>s.pl
forum 192.168.0.4 unvulnerable
forum 192.168.0.3 unvulnerable
forum 192.168.0.2 unvulnerable
forum 192.168.0.1 unvulnerable
Последний раз редактировалось demonoid; 17.11.2007 в 14:31..
Причина: +chomp
|
|
|
|
17.11.2007, 15:28
|
|
Banned
Регистрация: 23.07.2007
Сообщений: 87
Провел на форуме:
2147329
Репутация:
613
|
|
Парни, проблема такая. Как можно в созданном файле, контента: uin;pass удалить дубликаты пар uin;pass? преобразовать массив к множеству?
|
|
|
|
17.11.2007, 16:38
|
|
Познавший АНТИЧАТ
Регистрация: 02.06.2006
Сообщений: 1,188
Провел на форуме:
6023777
Репутация:
2642
|
|
Сообщение от Tiler2k
Парни, проблема такая. Как можно в созданном файле, контента: uin;pass удалить дубликаты пар uin;pass? преобразовать массив к множеству?
Перл не знаю, но сделать это можно легко на пхп.
PHP код:
<?
$file = 'file.txt'; // файл с уинами
$file2 = 'file2.txt'; // файл с уинами без повторений
$array = explode( "\n", file_get_contents($file) );
$array = array_unique( $array );
$handle = fopen($file2, 'a');
fwrite($handle, implode("\n", $array));
fclose($handle);
?>
|
|
|
|
17.11.2007, 18:44
|
|
Постоянный
Регистрация: 05.06.2007
Сообщений: 335
Провел на форуме:
4319431
Репутация:
677
|
|
Сообщение от Tiler2k
Парни, проблема такая. Как можно в созданном файле, контента: uin;pass удалить дубликаты пар uin;pass? преобразовать массив к множеству?
удалить дубликаты:
open(incom, "<./in.txt");
@IN = <incom>;
@IN = grep{!$_{$_}++} @IN;
close(incom);
open(out, ">./out.txt");
print out @IN;
close(out);
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
