#!/usr/bin/perl
# ============================================================ =============
# Автоизатор
# ============================================================ =============
use
IO
:
:
Socket
;
use
Sys
:
:
Hostname
;
use
Crypt
:
:
Rijndael
;
# ------------------------------------------------------------ -------------
$yourpass
=
'you_password'
;
# Замените на пароль
$server
=
'192.168.7.254'
;
# сервер авторизации
$portno
=
7723
;
# порт подключения
# ------------------------------------------------------------ -------------
$ver
=
14
;
# protocol version
$v
=
0
;
# 1 - verbose
# ============================================================ =============
sub
SEND
{
$sock1
-
>
send
(
$_
[
0
]
)
;
}
sub
GET
{
my
(
$i
,
$n
,
$str
,
$tmout
,
$rin
,
$txt
,
$ip
,
$addr
)
=
(
0
,
10
,
''
,
5
,
''
,
''
,
''
,
''
)
;
vec
(
$rin
,
fileno
(
$sock2
)
,
1
)
=
1
;
while
(
select
(
$txt
=
$rin
,
undef
,
undef
,
$tmout
)
&&
++
$i

10
)
{
$noanswer
=
0
;
sleep
20
;
}
print
"no answer...\n"
if
$v
;
}
return
(
$str
)
;
}
# ============================================================ ==================
$passwd_in
=
substr
(
(
substr
$yourpass
,
0
,
3
)
.
"Z"
x
16
,
0
,
16
)
;
$passwd_out
=
substr
(
(
substr
$yourpass
,
3
,
16
)
.
"0"
x
16
,
0
,
16
)
;
$sock1
=
IO
:
:
Socket
:
:
INET
-
>
new
(
Proto
=
>
'udp'
,
PeerPort
=
>
$portno
,
PeerAddr
=
>
$server
)
;
unless
(
$sock1
)
{
print
"Cannot create socket...exit\n"
;
exit
;
}
$proto
=
getprotobyname
(
'udp'
)
;
unless
(
socket
(
$sock2
,
PF_INET
,
SOCK_DGRAM
,
$proto
)
&&
bind
(
$sock2
,
sockaddr_in
(
$portno
,
INADDR_ANY
)
)
)
{
print
"Cannot bind socket...exit\n"
;
exit
;
}
$id
=
substr
(
rand
,
2
,
6
)
;
$noanswer
=
0
;
while
(
1
)
{
$id
=
999999
unless
$id
--
;
&
SEND
(
"$ver$id"
)
;
print
"BEGIN SESSION\n"
if
$v
;
$p
=
&
GET
;
next unless
$p
;
if
(
$p
!
~
/
^
id
(
.
{
16
}
)
$ver
$id
$
/
s
)
{
&
GET
;
&
GET
;
sleep
1
;
next
;
}
$cipher
=
new
Crypt
:
:
Rijndael
$passwd_in
,
Crypt
:
:
Rijndael
:
:
MODE_CBC
;
$key
=
$cipher
-
>
decrypt
(
$1
)
;
$cipher
=
new
Crypt
:
:
Rijndael
$passwd_out
,
Crypt
:
:
Rijndael
:
:
MODE_CBC
;
$skey
=
$cipher
-
>
encrypt
(
$key
)
;
&
SEND
(
$skey
.
"a$ver$id"
)
;
$p
=
&
GET
;
next unless
$p
;
$stat
=
substr
$p
,
0
,
2
;
$stat
=
$stat
eq
'ok'
||
$stat
eq
'sv'
?
"OK"
:
"NO"
;
print
"AUTH $stat\n"
if
$v
;
sleep
40
;
}