Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - Hatchet

Страницы: [1] 2
1
Perl / Время жизни???
« : 10 Января 2004, 18:15:43 »
Если удалять файл после показа - то сначало надо убедиться что его увидели.
По крайней мере если писать
print "";
print "В нижеследующее поле введите номер, который Вы видите на картинке.";
print "";
print "Номер";

unlink ("$datadir/$id.jpg") or die;

то картинки не видно!

2
Perl / Время жизни???
« : 10 Декабря 2003, 21:37:37 »
Интересно, а есть ли возможность создавать файлы с ограничение по времени жизни... ну типа файл существует 1 час и уничтожается???

Наверное придется ручками удалять...

Проблема состоит в том, что я сделал генератор картинок со случайной цифрой (такая тема есть в форуме)...
После прохождения формы этот файл затирается скриптом ...

Но часто, люди просто посмотрят на страничку и уходят сос страницы - а файлики то остаются ...

Или как то сделать так, что при закрытии страницы или шага назад скрипт сам тер эти файлы.

3
Perl / Редактирование страниц через скрипт
« : 09 Декабря 2003, 21:52:34 »
Спасибо большое - я ступил :)

простые вещи - самые сложные :)

4
Perl / Редактирование страниц через скрипт
« : 09 Декабря 2003, 21:05:38 »
Простейшая задача - редактирование хтмл страницы, посредством скрипта...
то бишь: скрипт выдает список доступных страниц со ссылками на скрипт с запросом...(сделано)
нужную страницу надо надо открыть в textarea но так, чтобы теги не интерпретировались! то бишь виден был код...
дальше справлюсь :)

5
Perl / Динамическая картинка
« : 05 Декабря 2003, 22:30:06 »
$number не закриптован!

он записан в файле с именем $id

6
Perl / Динамическая картинка
« : 05 Декабря 2003, 20:02:18 »
Я ж грю... в статье жернала Хакер было написано :)

7
Perl / Динамическая картинка
« : 05 Декабря 2003, 00:27:13 »
В статье журнала было рекомендовано не передавать id в поле hidden... якобы можно написать парсер чтоб его извлекать %)

да... придется немного изменить - например, файл с записаным $number надо положить в защищенную .htaccess папку.

8
Perl / Динамическая картинка
« : 28 Ноября 2003, 21:54:51 »
Не для похвалы:

реализация такая:
use Digest::MD5;
use GD;

$datadir="/home/....";

print "Content-type: image/jpeg\\n\\n";

$image = new GD::Image(50,50);
$white = $image->colorAllocate(255,255,255);
$black = $image->colorAllocate(0,0,0);
$image->rectangle(0,0,50,50,$black);
$number=int rand 3333;
$image->fill(49,49,$black);
$image->string(gdGiantFont,5,15,"$number",$white);
binmode STDOUT;
#создаем имя файликов картинки и содержащий цифру    
$salt=Digest::MD5->new;
$string=time().$$;
$hash=$salt->add($string);
$id=$hash->hexdigest;

open(FILE,">$datadir/$id")||die;
print FILE $number;
close(FILE);

open(FILE,">$datadir/$id.jpg")||die;
print FILE $image->jpeg;
close(FILE);
#Показываем картинку и скрытое полу с id по которому можно сравнить введенный номер.
print "";
print "В нижеследующее поле введите номер, который Вы видите на картинке.";
print "";
print "Номер";

#Остально обрабатывает скрипт авторизации...

Толко не забудте затереть созданные файлы - папка разбухнет :)

9
Perl / ubb форум
« : 28 Ноября 2003, 21:50:05 »
упс...

не для похвалы расскажу мое решение:

Я прибавил к полученной цифре после удаоения нолей 100000000

и затер единичку потом используя регулярные выражения :)

10
Perl / ubb форум
« : 28 Ноября 2003, 19:03:53 »
Ок :)

Открыл, нашел нужные файлы, отсортировал, убрал расширение, нашел последний....

например это 00000007
это строка а не число...
как заставить прибавить 1 к имеющемся?
переводить в ASII код и там ????

хотя если убрать нолики все получится - можно++,
но как создать новоеимя опять с нолями ... это и провека типа если >10 то 6 нолей , >100 то 5 нолей?

11
Perl / ubb форум
« : 27 Ноября 2003, 22:25:54 »
Ктонить пытался обьединить регистрацию в форуме ubb и регистрацию на сайте?

Идея такая - только зарегистрированные на ресурсе пользователи имеют доступ к форуму...
т.е. регистрацию на сайте нужно совместить регистрацией на форуме...

И так в папке /Members/ создается файл 0000000n.cgi
где содержатся данные пользователя...

т.е. надо создать такой файл... но  я страшно туплю... и как ...

найти последний файл 000000nn.cgi

нужно прочесть все имена каталога, найти имена содержащие только цифры, найти имя файла с именем наибольшей цифры и создать файл с именем наибольшей цифры++.cgi

Как!!!!!!!!

Спасибо!

12
Perl / Динамическая картинка
« : 27 Ноября 2003, 17:56:53 »
Все сделал :))))

Уряяяя

13
Perl / Динамическая картинка
« : 27 Ноября 2003, 17:42:45 »
а блин как ее сохранить ? :)
чтоб она jpeg-ом была

14
Perl / Динамическая картинка
« : 27 Ноября 2003, 17:36:31 »
К сожалению при вывводе картинки через SSI всеравно битовый вид...

конфликтуют Content-type-ы..

вероятно, тот что выше имеет приоритет и игнорируется следующий... а есть ли возможность отключить временно действие Content-type...

Или может попробовать сгенерированную картинку сохранить гденить п показать обычным способом а потом затереть?

15
Perl / Динамическая картинка
« : 27 Ноября 2003, 16:56:22 »
Прочел статейку по защите сайта от перебора паролей средством динамичесой картинки с номером...
используется модул GD.pm

решил реализовать:

Скрипт пишет фому с предварительным
Content-type:text/html\\n\\n
....

когда требуется отобразить картинку... на этойже странице, с полем ввода требуется

Content-type:image/jpeg\\n\\n

Кароче картинка не кажется :(
Вместо нее казяблики...

Как поступить!

Страницы: [1] 2