เชŸเซ‡เชฒเชฟเช—เซเชฐเชพเชฎ v 2.0 เชฎเชพเช‚เชฅเซ€ Mikrotik เชธเซเช•เซเชฐเชฟเชชเซเชŸเซเชธเชจเซเช‚ เชฆเซ‚เชฐเชธเซเชฅ เชธเช•เซเชฐเชฟเชฏเช•เชฐเชฃ

เชฌเชงเชพ เชชเชพเช›เชฒเซ€ เชฐเชœเชพ เชธเชพเชฅเซ‡. เช† เชฅเซ€เชฎ เชตเชงเซ เชธเชพเชฐเซ€ เช›เซ‡ เชฎเซ‡เช‚ 2016 เชฎเชพเช‚ เชœเซ‡ เชฒเช–เซเชฏเซเช‚ เชนเชคเซเช‚ เชคเซ‡เชจเซเช‚ เชธเช‚เชธเซเช•เชฐเชฃ เช…เชนเซ€เช‚.

เชธเชพเชฎเชพเชจเซเชฏ เชฐเซ€เชคเซ‡, เช“เชชเชฐเซ‡เชถเชจเชจเซ‹ เชธเชฟเชฆเซเชงเชพเช‚เชค เชฌเชฆเชฒเชพเชฏเซ‹ เชจเชฅเซ€, เชฎเชพเชคเซเชฐ เชเชŸเชฒเซ‹ เชœ เชคเชซเชพเชตเชค เช›เซ‡ เช•เซ‡ เชนเชตเซ‡ เชคเซ‡ เชตเชฟเชฒเช‚เชฌ เช•เชฐเซเชฏเชพ เชตเชฟเชจเชพ เชคเชฐเชค เชœ เช•เชพเชฐเซเชฏ เช•เชฐเซ‡ เช›เซ‡.

เช…เชฎเซ‡ เชธเซเช•เซเชฐเชฟเชชเซเชŸเชจเซ‡ Mikrotik เชชเชฐ เช…เชชเชฒเซ‹เชก เช•เชฐเซ€เช เช›เซ€เช, BotID เช…เชจเซ‡ ChatID เช…เชฎเชพเชฐเชพ เชชเซ‹เชคเชพเชจเชพเชฎเชพเช‚ เชฌเชฆเชฒเซ€เช เช›เซ€เช เช…เชจเซ‡ เชคเซ‡เชจเชพ เชฎเชพเชŸเซ‡ เชถเซ‡เชกเซเชฏเซ‚เชฒ เชฌเชจเชพเชตเซ€เช เช›เซ€เช. เชธเซเชŸเชพเชฐเซเชŸเช…เชช เชฎเชพเชŸเซ‡ "เชธเซเชŸเชพเชฐเซเชŸ เชŸเชพเช‡เชฎ" เชชเซ‡เชฐเชพเชฎเซ€เชŸเชฐ เชธเซ‡เชŸ เช•เชฐเซ‹ (เชธเซเชŸเชพเชฐเซเชŸเช…เชช เชตเช–เชคเซ‡ เชธเซเช•เซเชฐเชฟเชชเซเชŸ เชšเชฒเชพเชตเซ‹.)
เช…เช‚เชคเชฐเชพเชฒ: 00:00:00
เชฌเชพเช•เซ€เชจเซเช‚ เชฌเชงเซเช‚ เชœเซ‡เชฎ เชนเชคเซเช‚ เชคเซ‡เชฎ เช›เซ‡.

เชŸเซ‡เชฒเชฟเช—เซเชฐเชพเชฎ-v2

:delay 10
:global mtIdentity [/system identity get name];
:global botID "botXXXXXXXXX:XXXXXXXXXXXXXXXXXXXXXXXXX" ;
:global myChatID "YYYYYY" ;
:local chatId 0;
:local messageId 0;


:local parse do={
  :local startLoc ([:find $content $variable -1] + [:len $variable] + 2);
  :local commaLoc ([:find $content "," $startLoc] - 1 + 1);
  :local braceLoc ([:find $content "}" $startLoc] - 1 + 1);
  :local endLoc $commaLoc;
  :local startSymbol [:pick $content $startLoc]
  :if ($braceLoc != 0 and ($commaLoc = 0 or $braceLoc < $commaLoc)) do={
    :set endLoc $braceLoc;
  };
  :if ($startSymbol = "{") do={
    :set endLoc ($braceLoc + 1);
  };
  :if ($quotas = true) do={
    :set startLoc ($startLoc + 1);
    :set endLoc ($endLoc - 1);
  }
  :if ($endLoc < $startLoc) do={
    :set endLoc ($startLoc + 1);
  };
  :local message [:pick $content $startLoc $endLoc]
  #:log info $message;
  :return $message;
}


:while ( true ) do={
  :do {
    #:log info "https://api.telegram.org/$botID/getUpdates?offset=$messageId&limit=1&allowed_updates=message&timeout=60";
    :tool fetch url=("https://api.telegram.org/$botID/getUpdates?offset=$messageId&limit=1&allowed_updates=message&timeout=60") dst-path="getUpdates";
    :local content [/file get [/file find name=getUpdates] contents] ;
    #:log info $content;
    :if ([:len $content] > 30) do={
      :set messageId ([$parse content=$content variable="update_id"] + 1)
      :local message [$parse content=$content variable="text" quotas=true]
      :local chat [$parse content=$content variable="chat"]
      :local chatId [$parse content=$chat variable="id"]      
      
      :if (($chatId = $myChatID) and ([/system script find name=$message] != "")) do={
        :system script run $message;
      } else={
        :tool fetch url=("https://api.telegram.org/$botID/sendmessage?chat_id=$chatId&text=$mtIdentity: Unknown command: $message") keep-result=no
      }
    }
  } on-error={}
};

เชฅเซ‹เชกเชพ เชตเชฐเซเชทเซ‹เชจเชพ เช‰เชชเชฏเซ‹เช— เชฎเชพเชŸเซ‡, เชเช• เชญเซ‚เชฒ เชฌเชนเชพเชฐ เช†เชตเซ€ เชนเชคเซ€, เช•เซ‹เชˆ เช…เชœเชพเชฃเซเชฏเชพ เช•เชพเชฐเชฃเซ‹เชธเชฐ, เชจเชฌเชณเชพ เชฎเชฟเช•เซเชฐเซ‹เชŸเชฟเช• เช•เซ‹เชˆ เช•เชพเชฐเชฃเซ‹เชธเชฐ เชธเซเช•เซเชฐเชฟเชชเซเชŸเชจเซ‡ เชฌเช‚เชง เช•เชฐเซ‡ เช›เซ‡, เชตเชงเซ เชถเช•เซเชคเชฟเชถเชพเชณเซ€ เชฒเซ‹เช•เซ‹ เชชเชฐ เชคเซ‡ เชฌเชฟเชจ-เชธเซเชŸเซ‹เชช เช•เชพเชฐเซเชฏ เช•เชฐเซ‡ เช›เซ‡.

เช† เชนเซ‡เชคเซเช“ เชฎเชพเชŸเซ‡, เชฎเซ‡เช‚ เชตเซ‹เชšเชกเซ‹เช— เช•เซเชฐเชš เชซเซ‡เช‚เช•เซเชฏเซเช‚. เช…เชนเซ€เช‚ เช†เชชเชฃเซ‡ เชธเซเช•เซเชฐเชฟเชชเซเชŸเชจเซเช‚ เชจเชพเชฎ เช‰เชชเชฐ เชฆเชฐเซเชถเชพเชตเซ‡เชฒ เชจเชพเชฎเชฎเชพเช‚ เชฌเชฆเชฒเซ€เช เช›เซ€เช. เช…เชจเซ‡ เชชเซเชจเชƒเชชเซเชฐเชพเชฐเช‚เชญ เช…เช‚เชคเชฐเชพเชฒเชจเซ‡ 5 เชฎเชฟเชจเชฟเชŸ เชชเชฐ เชธเซ‡เชŸ เช•เชฐเซ‹. เชฆเชฐ 5 เชฎเชฟเชจเชฟเชŸเซ‡, เช…เชฎเชพเชฐเซ‹ "เชตเซ‹เชš เชกเซ‹เช—" เชธเซเช•เซเชฐเชฟเชชเซเชŸ เชคเชชเชพเชธเชถเซ‡, เช…เชจเซ‡ เชœเซ‹ เชคเซ‡ เช•เชพเชฎ เช•เชฐเชคเซเช‚ เชจเชฅเซ€, เชคเซ‹ เชคเซ‡ เชคเซ‡เชจเซ‡ เชšเชฒเชพเชตเชถเซ‡.

WatchDogT.me

:global scriptname "t.me"
:if ([:len [/system script job find script=$"scriptname"]] > 0) do={
:log info "$scriptname Already Running - killing old script before continuing"
:foreach counter in=[/system script job find script=$"scriptname"] do={
/system script job remove $counter
}
}
/system script run $scriptname

เช…เชจเซ‡ เชกเซ‡เชเชฐเซเชŸ เชฎเชพเชŸเซ‡, เชธเซเช•เซเชฐเชฟเชชเซเชŸ เชฎเชฟเช•เซเชฐเซ‹เชŸเชฟเช• เชซเซ‹เชฐเชฎเชฎเชพเช‚เชฅเซ€ เชฒเซ‡เชตเชพเชฎเชพเช‚ เช†เชตเซ€ เช›เซ‡.
เชฒเซ‹เช—เชฎเชพเช‚เชฅเซ€ เช…เชฎเชพเชฐเชพ เช•เชพเชฐเซเชŸเชฎเชพเช‚ เชฎเชนเชคเซเชตเชชเซ‚เชฐเซเชฃ เชตเชฟเชทเชฏเซ‹ เชฎเซ‹เช•เชฒเซ‡ เช›เซ‡.

เชธเซเช•เซเชฐเชฟเชชเซเชŸเชจเซ‡ เชถเซ‡เชกเซเชฏเซ‚เชฒเชฎเชพเช‚ เชจเชพเช–เซ‹ เช…เชจเซ‡ เชฆเชฐ 5 เชฎเชฟเชจเชฟเชŸเซ‡ เชชเซเชจเชƒเชชเซเชฐเชพเชฐเช‚เชญ เช…เช‚เชคเชฐเชพเชฒเชจเซ‹ เช‰เชฒเซเชฒเซ‡เช– เช•เชฐเซ‹, BotID เช…เชจเซ‡ ChatID เชจเซ‡ เชคเชฎเชพเชฐเชพ เชชเซ‹เชคเชพเชจเชพเชฎเชพเช‚ เชฌเชฆเชฒเซ‹.

notify-log

:global lastTime
:global output
:global mtIdentity [/system identity get name];
:global botID "botXXXXXXXXX:XXXXXXXXXXXXXXXXXXXXXXXXX" ;
:global myChatID "YYYYYY" ;

:local LogGet [ :toarray [ /log find topics~"critical" || message~"login failure" || message~"[Ff]ailure" ] ] ;
:local LogtLineCount [ :len $LogGet ] ;
if ($LogtLineCount > 0) do={
   :local currentTime "$[ /log get [ :pick $LogGet ($LogtLineCount -1) ] time ]";
   :if ([:len $currentTime] = 10 ) do={
      :set currentTime [ :pick $currentTime 0 10 ];
   }
   :set output "$currentTime - $[/log get [ :pick $LogGet ($LogtLineCount-1) ] message ]";
   :if (([:len $lastTime] < 1) || (([:len $lastTime] > 0) && ($lastTime != $currentTime))) do={
      :set lastTime $currentTime ;
         :tool fetch url=("https://api.telegram.org/$botID/sendmessage?chat_id=$myChatID&text="$mtIdentity" :  $output") keep-result=no
   }
}

เช…เชฎเชจเซ‡ เชชเชฐเชฟเชฃเชพเชฎ เชฎเชณเซ‡ เช›เซ‡:

เชŸเซ‡เชฒเชฟเช—เซเชฐเชพเชฎ v 2.0 เชฎเชพเช‚เชฅเซ€ Mikrotik เชธเซเช•เซเชฐเชฟเชชเซเชŸเซเชธเชจเซเช‚ เชฆเซ‚เชฐเชธเซเชฅ เชธเช•เซเชฐเชฟเชฏเช•เชฐเชฃ

เชธเซ‹เชฐเซเชธ: www.habr.com

เชเช• เชŸเชฟเชชเซเชชเชฃเซ€ เช‰เชฎเซ‡เชฐเซ‹