Сообщения

1

Perl / перекачка файлов между серверами

« : 31 Мая 2002, 13:30:19 »

С NET::Ftp еще не разбирался, но похоже то что надо

2

Perl / перекачка файлов между серверами

« : 31 Мая 2002, 12:23:35 »

Спасибо, попробую

3

Perl / перекачка файлов между серверами

« : 31 Мая 2002, 10:35:06 »

Может кто занимался таким.

Есть два сервера.
На каждом из них стоит одна и таже версия сайта.
Как без ФТП и т.п. скриптом залить файлы с одного сервера на другой?

Фактически изменение скриптов проводится на одном сервере, а потом эти изменения нужно перенести на другой.

4

Perl / шифрование данных и разшифрование

« : 27 Мая 2002, 16:10:54 »

Потом расскажешь как данные из файла вытаскивал...

use Crypt::CBC;
use Crypt::Blowfish;
my $key = \'ключ\';
my $upload_dir = \'папка для заливки\'; #внимательно с правами
my $upload_file = \'имя файла\';
my $cipher = new Crypt::CBC(\'$key\',\'Crypt::Blowfish\');
open(OUT,">$upload_dir/$upload_file");
$cipher->start(\'encrypting\');
print OUT $cipher->crypt("текст для шифрования1");
print OUT $cipher->crypt("текст для шифрования2");
print OUT $cipher->crypt("текст для шифрования3");
close(OUT) ;
$cipher->finish();
А это для дешифрации
open(CFILE,"$upload_dir/$upload_file");
$cipher->start(\'decrypting\');
print $cipher->crypt($_) while ;
$cipher->finish();

5

Perl / шифрование данных и разшифрование

« : 22 Мая 2002, 15:29:14 »

Ок.
Как только разберусь опишу.
Хотя третий имеет возможность шифровать сразу файл.

6

Perl / шифрование данных и разшифрование

« : 22 Мая 2002, 15:04:22 »

Я нашел в Инете такие модули для шифрования:
Crypt::Blowfish
Crypt::DES
Crypt::CipherSaber
Если кому надо, пользуйтесь.
Похоже то что надо

7

Perl / шифрование данных и разшифрование

« : 22 Мая 2002, 14:42:34 »

зашифрованая информация в обычный файл

8

Perl / шифрование данных и разшифрование

« : 22 Мая 2002, 14:35:04 »

Я формирую текст, который потом заливается на сервер в шифрованый текстовый файл.
В дальнейшем у меня должна быть возможность читать данные из этого файла.

9

Perl / шифрование данных и разшифрование

« : 22 Мая 2002, 14:13:00 »

Тогда какой модуль лучше выбрать?
И еще, есть ли какой-нибудь модуль для шифрования, в котором для шифрования можно було бы использовать пароль(ключ) для этого, а не просто шифрование по какому-то алгоритму?

10

Perl / шифрование данных и разшифрование

« : 22 Мая 2002, 13:34:45 »

Вопрос вот какой:

Код: [Выделить]


use Digest::MD5  qw(md5 md5_hex md5_base64);
$text = md5($text);
#или
#$text = md5_hex($text);
#или
#$text = md5_base64($text);

Таким образом данные шифруются.
Как их теперь разшифровать?

11

Базы данных / Ещё раз про сортировку кириллицы и как с этим бороться.

« : 22 Мая 2002, 10:24:24 »

А chset в этом примере binary или нет?

12

Базы данных / Ещё раз про сортировку кириллицы и как с этим бороться.

« : 22 Мая 2002, 10:02:54 »

К примеру:
select * from table where lower(name) like lower(\'%$query%\')
результат тот же, что и без lower

13

Базы данных / Ещё раз про сортировку кириллицы и как с этим бороться.

« : 21 Мая 2002, 18:39:57 »

Читал, читал.
Но в этом весь прикол...
Не работает так.
Только по регистру

14

Базы данных / Ещё раз про сортировку кириллицы и как с этим бороться.

« : 21 Мая 2002, 18:17:30 »

Не плохо..., проблема с сортировкой при использовании свойства binary для char (varchar) полей отпадает.

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

Можно как-нибудь это побороть?