 |
Окт. 24, 2008, 2:40 п.п.
|
 |
|
|
|
Давно известно что простой md5 уже не очень безопасно использовать. Существует множество программ которые подбирают Хеш, так сказать находят коллизии, и ваши пароли оказываются взломанным.
Существует способ немножко усложнить задачу для этих программ, создать сложный хеш пароль. Делается это следующим образом, Берется пароль, шифруется в md5, берется некое значение и тоже шифруется в md5, потом это объединяется и тоже шифруется в md5. Итог, пароль состоящий из двух частей зашифрованный в md5. Простой подбор колизии уже не поможет.
Ну от слов к делу, для создания значения нужно воспользоваться следующим кодом:
function create_salt($len = 5){
$salt = '';
for ($i = 0;$i<$len;$i ...
|
| |
|
Окт. 24, 2008, 2:36 п.п.
|
|
|
|
|
Задача: посчитать кол-во трафика потребляемого пользователями малой сети (офис).
Для выполнения данной задачи я использовал trafd и 1 скрипт perl, ОС FreeBSD.
Устанавливаем на Freebsd trafd.
cd /usr/ports/net-mgmt/trafd && make install
Далее редактируем rc.conf
trafd_enable="YES"
trafd_ifaces="rl0" // написать интерфейс на котором будет считаться трафик, он должен быть внутренним, так как если будет использоваться внешний интерфейс на котором будет использоваться транслирование ип (nat) то увидеть кто конкретно потреблял трафик не получится.
trafd_log="/var/log/traffic.log"
сохраняем.
далее выполняем команду:
touch /usr/local/var/trafd/trafd.rl0
после нужно запустить trafd
trafd -i rl0
далее после запуска ...
|
| |
|
Окт. 24, 2008, 2:36 п.п.
|
|
|
|
|
#!/usr/bin/perl -w
use strict;
use Net::FTP;
my($ftp,$file,$v,$k,$a,$list,@file,@list,@a);
opendir(DIR,"/backup");
@file = grep { !/^\.{1,2}$/} readdir(DIR);
closedir(DIR);
$ftp = Net::FTP->new("HOST", Timeout => 30,Debug => 0 ) or die "unable to connect ftp\n";
print "Connect to server FTP: ok\n";
$ftp->login("LOGIN","PASS") or die "dont login\n";
$ftp->cwd("~") or die "cant change dir\n";
print "Login: ok\n";
@list = $ftp->dir() or die "cant list dir\n";
foreach $v (@list){
chomp($v);
@a = split(/\s+/,$v);
if($a[0] =~ /^\-+/){
if(check_file($a[8],@file ...
|
| |
|
Окт. 24, 2008, 2:36 п.п.
|
|
|
|
|
Недавно столкнулся с проблемой, настройка двух каналов в интернет на ОС FreeBSD
Ничего абсолютно сложного не предполагалось, но все же пришлось не много почитать документацию.
Собственно задача:
1. создать шлюз с двумя выходами в интернет, один основной, другой резервный.
2. минимизировать участие человека в смене на бек канал.
Инструменты:
ОС FreeBSD 6.x , PF, perl
Решение:
FreeBSD был поставлен с минимальной установкой, единственное изменение, которое нужно сделать
это добавить в ядро модуль PF. Делается это все не сложно.
cp /usr/src/sys/i386/conf/GENERIC /usr/src/sys/i386/conf/PF
ee /usr/src/sys/i386/conf/PF
добавляем строчки ...
|
| |
|
|
