IPB

Здравствуйте, гость ( Вход | Регистрация )

2 страниц V  < 1 2  
Ответить в эту темуОткрыть новую тему
> Авторизатор для Linux
OzZz
сообщение 1.4.2007, 21:09
Сообщение #26





Группа: Пользователи
Регистрация: 7.7.2006
Пользователь №: 13 373



Цитата(Antony @ 1.4.2007, 15:53) *
а может кто-нибудь дать готовый авторизатор плиз...а то разобратся вообще не могу

ващето это готовый....
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Gall
сообщение 18.4.2007, 10:51
Сообщение #27





Группа: Пользователи
Регистрация: 18.7.2004
Из: Мосгорка
Пользователь №: 2 341



Готовый авторизатор выложен на моем сайте.
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
ЕС
сообщение 18.4.2007, 11:01
Сообщение #28





Группа: Пользователи
Регистрация: 20.2.2005
Из: из сети
Пользователь №: 3 795



Цитата(Gall @ 18.4.2007, 11:51) *
Готовый авторизатор выложен на моем сайте.


вот помнится юзал до поры до времени этот ваш авторизатор, пока не пришёл ах...ный трафик из-за того что у меня авторизатор по крону рестартовался. crying.gif
нуегонах этот авторизатор, поставил себе впн, зато сплю спокойно rolleyes.gif tongue.gif
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Daemon_Hell
сообщение 18.4.2007, 11:30
Сообщение #29





Группа: Пользователи
Регистрация: 30.5.2006
Пользователь №: 12 355



Цитата(ЕС @ 18.4.2007, 12:01) *
вот помнится юзал до поры до времени этот ваш авторизатор, пока не пришёл ах...ный трафик из-за того что у меня авторизатор по крону рестартовался. crying.gif
нуегонах этот авторизатор, поставил себе впн, зато сплю спокойно rolleyes.gif tongue.gif

Тебя же не раз предупреждали ermm.gif
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
E.Leonov
сообщение 24.7.2010, 20:18
Сообщение #30





Группа: Новички
Регистрация: 23.7.2010
Пользователь №: 50 386



Доброго времени суток уважаемые.
Работа над авторизатором прекращена, или перенесена в другое место?

З.Ы.: В "Кабинете" я со вчерашнего дня.
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Shaman
сообщение 24.7.2010, 20:26
Сообщение #31





Группа: Модераторы
Регистрация: 1.12.2005
Из: OnLine
Пользователь №: 6 823



на линуксе проще юзать впн.
Gall больше не заходит на этот форум
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
-HOOCH-
сообщение 31.7.2010, 22:33
Сообщение #32





Группа: Новички
Регистрация: 2.7.2010
Пользователь №: 50 179



Тут есть два рабочих варианта авторизатора. krutipopik.gif
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
eldarua
сообщение 24.11.2011, 11:14
Сообщение #33





Группа: Новички
Регистрация: 24.11.2011
Пользователь №: 54 399



Тут исправленный исходник авторизатора от 23.10.11
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
lifecash3000
сообщение 15.7.2012, 01:47
Сообщение #34





Группа: Пользователи
Регистрация: 29.6.2006
Пользователь №: 13 147



Цитата(eldarua @ 24.11.2011, 11:14) *
Тут исправленный исходник авторизатора от 23.10.11

Попробовал его поюзать:
gcc -O2 -Wall -s -lcrypto -o lanauth lanauth.c
lanauth.c: In function ‘main’:
lanauth.c:120:9: warning: ignoring return value of ‘daemon’, declared with attribute warn_unused_result
lanauth.c:139:8: warning: ignoring return value of ‘read’, declared with attribute warn_unused_result
lanauth.c:142:8: warning: ignoring return value of ‘read’, declared with attribute warn_unused_result
lanauth.c:161:8: warning: ignoring return value of ‘write’, declared with attribute warn_unused_result
./lanauth -p {тут пароль}
Ошибка сегментирования

Чото устарело за последнее время?
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Nik0lay
сообщение 15.8.2012, 23:42
Сообщение #35





Группа: Пользователи
Регистрация: 18.1.2007
Пользователь №: 19 559



Цитата(lifecash3000 @ 15.7.2012, 02:47) *
Чото устарело за последнее время?

Все протоколы действительны и по сей день. Если Вы об этом..
Ради интереса проверил, даже протокол первой версии работает! Кто нить помнит вообще об его наличии? laugh.gif
Похоже, кибинетовцы исходят из принципа "работает? не трож!", может оно и пральна..
А вообще, Вам компиль пальчиком погрозил, дескать, чего это Вы возращаемое значение ф-ции не используете.
Что такое "Ошибка сегментирования" не в курсе, ибо не линуксоид, ковыряйте gcc
Кстати, есть гдето perl`овый авторизатор, там именно первый протокол используется.

added..

Вот, валялся у меня в закромах. Вроде работал, лень сейчас проверять.
(хм.. а как файло вставить? придется так, да простят меня модераторы...)
Код
#!/usr/bin/perl -w
#
#use strict;

########## perl auth_client.pl пароль 1 шлюз
########## где 1 - внутригород, 2 - внешка
########## пример полного доступа: perl auth_client.pl пароль 2 10.0.0.1

use IO::Socket ();
use Digest::MD5 ();

use vars qw(%secret);

$| = 1;

my $PORT = 8899;
my $MIN_CHALLENGE_LENGTH = 32;
my $MAX_CHALLENGE_LENGTH = 64;

if ($#ARGV < 2 or ($ARGV[1] ne "1" and $ARGV[1] ne "2")) {
    print "Usage: $0 password accesslevel gatewayaddress\n";
    print "    where access level is 1 or 2 -- internal and external traffic.\n";
    die;
}
my $PASS = $ARGV[0];
my $ACCLEV = $ARGV[1];
my $GWADDR = $ARGV[2];

my $proto = "";
my $h = IO::Socket::INET->new('PeerAddr' => $GWADDR,
                              'PeerPort' => $PORT);
&read_handle(\$proto, 1);
if (ord($proto) == 2) {    # redirect to real firewall
    my $gw_len;
    &read_handle(\$gw_len, 1);
    $gw_len = ord($gw_len);
    die "Invalid gateway address length $gw_len.\n" if $gw_len < 7 or $gw_len > 15;
    &read_handle(\$GWADDR, $gw_len);
    $h->close;
    $h = IO::Socket::INET->new('PeerAddr' => $GWADDR,
                               'PeerPort' => $PORT);
    &read_handle(\$proto, 1);
}
die "Access denied.\n" if ord($proto) == 0;
die "Invalid authentication protocol.\n" if ord($proto) != 1;

my $rin = "";
my $chal_len = "";
my $challenge = "";
my $result = "";
my $ctx = Digest::MD5->new;
my $sockhost = $h->sockhost();
# print "Run from $sockhost: ";

my $firsttime = 1;
while ($h->opened) {
    $rin = "";
    vec($rin, fileno($h), 1) = 1;
    my $nf = select($rin, undef, undef, 0);
#    print "nf: $nf\n";
    last if $nf == 1;

    &read_handle(\$chal_len, 1);
    $chal_len = ord($chal_len);
    die "Invalid challenge length $chal_len.\n"
    if $chal_len < $MIN_CHALLENGE_LENGTH or $chal_len > $MAX_CHALLENGE_LENGTH;
    &read_handle(\$challenge, $chal_len);

    $ctx->new;
    $ctx->add($challenge);
    $ctx->add($sockhost);
    $ctx->add($ACCLEV.$PASS);
    my $ident = $ctx->digest;

    syswrite($h, $ident, 16);
    &read_handle(\$result, 1);
    $result = ord($result);
    if ($result == 1 or $result == 2) {
    print "Ok!\n" if $firsttime;
    } else {
    die "Failed...\n" if $firsttime;
    }
    $firsttime = 0;
}

sub read_handle {
    my($ref, $len) = @_;
    die "Socket closed.\n" if !$h->opened;
    my $recvlen = sysread($h, ${$ref}, $len);
    die "Error reading socket.\n" if !defined($recvlen) or $recvlen != $len;
}


Сообщение отредактировал Nik0lay - 15.8.2012, 23:48
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения

2 страниц V  < 1 2
Ответить в эту темуОткрыть новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия Сейчас: 24.4.2018, 05:49
Блог КАБiNET