Хроники эксперимента

воскресенье, 12 апреля 2009

13:13

domov0y

домовой

После настройки сервера вспомнилась идея сделать жаббер-шелл (портировать собственное творение с делфи на перл). непонятное и не обоснованное "ХАЧУ" крутилось аж до пятницы. SSH в этот день поставил жирную роспись под этим желанием. Непонятно с чего,днем, задержки между нажатием на клавишу и появлением символа в окне терминала удаленной машины, достигли аж 30 секунд. ни о какой нормальной работе речь уже не шла. Пол дня смотрел на историю. ни одно мое действие кроме su и правки текстовиков, на самом деле не требовало полноценного шелла. В общем пришел к выводу что имеет смысл сделать резервную систему управления на базе жаббер протокола.
Немного покопавшись в инете я нашел пару готовых жаббер шеллов которые меня не устроили, но ответили на несколько вопросов касающихся вариантов авторизации и выполнения команд

внизу черным по черному написан код этого страшного творения


# Jabber::Connection это единственная библиотека которую удалось без мата и плясок с бубном  научить рабтать под фряхой. потому свой выбор остановил на ней
###############################################
 use Jabber::Connection;
 use Jabber::NodeFactory;
 use Encode 'encode','decode';


###################  config  #######################
$server='jabber.org'; #сервер
$login ='domov0y';    # имя пользователя 
$passwd='12 345 3';   # пароль от аккаунта
my $aith="bonw;";    # авторизация на шелле
################################################

 my $nf= new Jabber::NodeFactory;                                     #
 my $jabber= new Jabber::Connection(server => $server  );# эти переменные  будут видны в  
 my @admin;                                                                        # процедуре
 $jabber->connect();
 $jabber->auth($login,$passwd,'Psi'); 
 $jabber->register_handler('message',\&message);                 # обработчик входящих сообщений
 $jabber->send('<presence/>');                                          # статус онлайн
 $jabber->start();

sub message
{
 $node = shift;                        #выдирание данных из сообщения
 my $jid=$node->attr('from'); #конвертация  в кои8-р сделана с применением жутних костылей
 my $body=encode('koi8-r',decode('utf8',$node->getTag('body')->data)); 

 if ($body eq 'login '.$aith)    # если  тело  сообщения  есть  'login '+$aith
{
 push @admin,$jid;
 $jabber->send('<message to="'.$jid.'"><body>Login..Ok</body></message>');
#то добавить jid в список доверенных и сказать пользователю что он жутко крут раз знает пасс
}
else 
{
foreach $test(@admin)# иначе проверка jid по списку доверенных (@admin)
 {if ($test eq $jid)  #если  дають щастье  и жид с  ресурсом есть  в списке
 {
  $mes=`$body 2>&1`; #выполнить команду
  do  
# а тут пляска с бубном. сообщения больше 4х кб передаются с большим скрыпом  и не в этой 
#жизни.  я нарезаю сообщение по 1 кб (блажь), перекодирую  его с помощью тех же  костылей в 
#уникод и отсылаю
   {
    $message=encode('utf8',decode('koi8-r', substr($mes,0,1024)));
    my $answer = $nf->newNode('message');
    $answer->attr('to',$jid);
    $answer->insertTag('body')->data($message);
    $jabber->send($answer);
    $mes=substr($mes,1025);
   }
   while(length($mes)>0);
   $body='';
  }
 }
}
просьба в каментах вместо "ошибка в днк" и "афтар убейся ап стену" описать про ошибки

@настроение: непонятное

@темы: удаленное управление, jabber, хроники эксперимента