ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
31.03.2008, 13:52
|
|
Новичок
Регистрация: 28.03.2008
Сообщений: 24
Провел на форуме:
52770
Репутация:
-5
|
|
И правдо, ошибся, простите....
|
|
|
31.03.2008, 14:11
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
ZET36:
Win32::Registry, http://search.cpan.org/~jdb/libwin32-0.28/Registry/Registry.pm
Юзай это для реестра...там вроде все написано
|
|
|
|
02.04.2008, 16:02
|
|
Познающий
Регистрация: 27.04.2006
Сообщений: 46
Провел на форуме:
177234
Репутация:
11
|
|
вопрос
Такой вопрос. Есть скрипт для веб)) :
Код:
use strict;
use CGI qw/:standard/;
my $cgi = new CGI;
<br /><br />
my $file = $cgi->param('file');
<br /><br />
# grab date base
$file =~ m/(.*).txt/;
my $date = $1;
<br /><br />
my @images = <Images/$date/*.jpg>;
my @audio = <Audio/$date/*.mp3>;
<br /><br />
<br /><br />
print "Content-type: text/html\n\n";
<br /><br />
print "<html><body>";
<br /><br />
print "<!-- generatede -->";
<br /><br />
open(INPUT, "<$file");
while (<INPUT>) {
# add breaks...
if (/^$/) {
print "<br /><br />";
}
print;
}
close(INPUT);
<br /><br />
print "<br />";
<br /><br />
foreach (@images) {
print "<img src='$_'><br /><br />";
}
<br /><br />
print "<br />";
<br /><br />
print "<h3>Sound Bites</h3> (xxxxxxxx)<br /><br />";
<br /><br />
foreach (@audio) {
print "<a href='$_'>$_</a><br /><br />";
Хотелось бы понять, кроме чтения произвольных файлов есть возможность исполнения команд или чего либо еще? |
|
|
|
02.04.2008, 20:33
|
|
Познающий
Регистрация: 26.03.2008
Сообщений: 31
Провел на форуме:
208349
Репутация:
82
|
|
выполнять команды неполучиться, так как в
open(INPUT, "<$file");
определено что открывается файл на чтение символом "<"
если бы было
open(INPUT, "$file");
то можно было бы подставив пайп выполнять команды, типа
.pl?file=|id
|
|
|
|
04.04.2008, 13:00
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме:
5128756
Репутация:
2032
|
|
Can't call method "scheme" on an undefined value at C:/Perl/lib/HTTP/Cookies.pm line 44.
(v5.10.0 built for MSWin32-x86-multi-thread)
как от этого избавиться?
|
|
|
|
04.04.2008, 13:22
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
netf0x
Сообщение от netf0x
open(INPUT, "<$file");
открывать файл надо так
open(KARTINKA, '<', '4.jpg');
где содержимое файла будет в Дескрипторе KARTINKA который прочитать можно так
print <KARTINKA>;
вот советую почитать учебник для новичков по перлу
http://dump.ru/files/n/n6133429141/
там есть раздел где описываются много функциий с файлами и папками
|
|
|
|
04.04.2008, 13:28
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
Сообщение от Piflit
Can't call method "scheme" on an undefined value at C:/Perl/lib/HTTP/Cookies.pm line 44.
(v5.10.0 built for MSWin32-x86-multi-thread)
как от этого избавиться?
ошибка говорит "немогу пробить метод "scheme" в неопределённом значении в файле C:/Perl/lib/HTTP/Cookies.pm"
эта ошибка содержится в 44 строке кода
если можно неплохо бы увидеть сам код
|
|
|
|
04.04.2008, 14:05
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме:
5128756
Репутация:
2032
|
|
Сообщение от ZET36
ошибка говорит "немогу пробить метод "scheme" в неопределённом значении в файле C:/Perl/lib/HTTP/Cookies.pm"
эта ошибка содержится в 44 строке кода
да ну
Сообщение от ZET36
если можно неплохо бы увидеть сам код
http://www.activestate.com/Products/activeperl/
PS мой скрипт читает почту на mail.ru.
сначала запрос к http://win.mail.ru/cgi-bin/auth,
потом идет по линку вида
http://win.mail.ru/cgi-bin/checkcookie?id=765b5d705151745f19050219
затем заходит в папку Входящие и читает письма.
возможно это поможет
Последний раз редактировалось Piflit; 04.04.2008 в 14:10..
|
|
|
|
04.04.2008, 15:01
|
|
Участник форума
Регистрация: 08.10.2007
Сообщений: 259
Провел на форуме:
500748
Репутация:
137
|
|
Piflit хех я так и незнаю где у тебя ошибка невидя кода)) ну максимум могу посоветовать почитать вот это
www.opennet.ru/base/dev/perl_lwp.txt.html
(там есть описание метода cookie_jar интуиция подсказывает что напутал ты там в нём)
Последний раз редактировалось ZET36; 04.04.2008 в 15:04..
|
|
|
|
04.04.2008, 18:14
|
|
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311
Репутация:
1676
|
|
Как ты такой ошибки добился то?
Вот пример скрипта который логинится на мейл.ру, парсит список сообщений и скидывает в файл содержимое писем:
Код:
#!/usr/bin/perl -w
use LWP::UserAgent;
use HTTP::Cookies;
if (@ARGV < 2){
print "Usage: script.pl login password";
exit;
}
($login, $domain) = split(/@/,$ARGV[0]);
$pwd = $ARGV[1];
$ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new(file => "cookies.txt"));
$res = $ua->post( "http://win.mail.ru/cgi-bin/auth", {Login => $login, Domain => $domain, Password => $pwd} );
$res = $res->as_string;
open(FILE, '>>letters.txt') || die "Could not open letters.txt\n";
if($res =~ /<HTML>(.*)<\/HTML>/)
{
$ua->get($1);
$res = $ua->get('http://win.mail.ru/cgi-bin/msglist?folder=0');
$res = $res->as_string;
while($res =~ m/title="(.*?)"><a href="readmsg\?id=(.*?)"/g)
{
print FILE "From: $1 ID: $2\n";
$msg = $ua->get('http://win.mail.ru/cgi-bin/readmsg?id='.$2)->as_string;
if($msg =~ /<div id=let_body>(.*?)<\/div>/ms){print FILE "Body:\n$1\n-----------------------------------------------------------";}
}
}
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
