29/10/2024
# Custom Script v1.2 by DwiChan0905
# MikroTik Script for Telegram Bot
# Tested on MikroTik RB750 with RouterOS ver. 6.45.5
# just upload this file to your MikroTik's FTP. Then, import this file to apply the scripts.
# Telegram Bot Configurations is in tg_config.
/system scheduler
add interval=10s name=Telegram on-event="/system script run tg_getUpdates" \
policy=ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon \
start-date=sep/04/2019 start-time=18:28:04
add name="Reboot Report" on-event=\
":delay 30\r\
\n/system script run reboot-report" policy=\
ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon \
start-time=startup
/system script
add name=tg_getUpdates policy=read \
source=":global TGLASTMSGID\r\
\n:global TGLASTUPDID\r\
\n\r\
\n:local fconfig [:parse [/system script get tg_config source]]\r\
\n:local http [:parse [/system script get func_fetch source]]\r\
\n:local gkey [:parse [/system script get tg_getkey source]]\r\
\n:local send [:parse [/system script get tg_sendMessage source]]\r\
\n\r\
\n:local cfg [\$fconfig]\r\
\n:local trusted [:toarray (\$cfg->\"trusted\")]\r\
\n:local botID (\$cfg->\"botAPI\")\r\
\n:local storage (\$cfg->\"storage\")\r\
\n:local timeout (\$cfg->\"timeout\")\r\
\n\r\
\n:put \"cfg=\$cfg\"\r\
\n:put \"trusted=\$trusted\"\r\
\n:put \"botID=\$botID\"\r\
\n:put \"storage=\$storage\"\r\
\n:put \"timeout=\$timeout\"\r\
\n\r\
\n:local file (\$storage.\"tg_get_updates.txt\")\r\
\n:local logfile (\$storage.\"tg_fetch_log.txt\")\r\
\n 1 message per time\r\
\n:local url (\"https://api.telegram.org/bot".$botID."/getUpdates?time
out=\$timeout&limit=1\")\r\
\n:if ([:len \$TGLASTUPDID]>0) do={\r\
\n :set url \"\$url&offset=\$(\$TGLASTUPDID+1)\"\r\
\n}\r\
\n\r\
\n:put \"Reading updates...\"\r\
\n:local res [\$http dst-path=\$file url=\$url resfile=\$logfile]\r\
\n:if (\$res!=\"success\") do={\r\
\n :put \"Error getting updates\"\r\
\n return \"Failed get updates\"\r\
\n}\r\
\n:put \"Finished to read updates.\"\r\
\n\r\
\n:local content [/file get [/file find name=\$file] contents]\r\
\n\r\
\n:local msgid [\$gkey key=\"message_id\" text=\$content]\r\
\n:if (\$msgid=\"\") do={ \r\
\n :put \"No new updates\"\r\
\n :return 0 \r\
\n}\r\
\n:set TGLASTMSGID \$msgid\r\
\n\r\
\n:local updid [\$gkey key=\"update_id\" text=\$content]\r\
\n:set TGLASTUPDID \$updid\r\
\n\r\
\n:local fromid [\$gkey block=\"from\" key=\"id\" text=\$content]\r\
\n:local username [\$gkey block=\"from\" key=\"username\" text=\$content]\
\r\
\n:local firstname [\$gkey block=\"from\" key=\"first_name\" text=\$conten\
t]\r\
\n:local lastname [\$gkey block=\"from\" key=\"last_name\" text=\$content]\
\r\
\n:local chatid [\$gkey block=\"chat\" key=\"id\" text=\$content]\r\
\n:local chattext [\$gkey block=\"chat\" key=\"text\" text=\$content]\r\
\n\r\
\n:put \"message id=\$msgid\"\r\
\n:put \"update id=\$updid\"\r\
\n:put \"from id=\$fromid\"\r\
\n:put \"first name=\$firstname\"\r\
\n:put \"last name=\$lastname\"\r\
\n:put \"username=\$username\"\r\
\n:local name \"\$firstname \$lastname\"\r\
\n:if ([:len \$name] \$cmd)] = \"str\") do={:set cmd (\
\$alternativeCommand -> \$cmd); :put \"cmd=\"}\r\
\n\r\
\n:put \"params=\"\r\
\n\r\
\n:global TGLASTCMD \$cmd\r\
\n\r\
\n:put \"Try to invoke external script tg_cmd_\$cmd\"\r\
\n:local script [:parse [/system script get \"tg_cmd_\$cmd\" source]]\r\
\n\$script params=\$params chatid=\$chatid from=\$name"
add name=func_fetch policy=ftp,read,write,policy,test source=" # # # #\
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #\r\
\n # Wrapper for /tools fetch\r\
\n # Input:\r\
\n # mode\r\
\n # upload=yes/no\r\
\n # user\r\
\n # password\r\
\n # address\r\
\n # host\r\
\n # httpdata\r\
\n # httpmethod\r\
\n # check-certificate\r\
\n # src-path\r\
\n # dst-path\r\
\n # ascii=yes/no\r\
\n # url\r\
\n # resfile\r\
\n\r\
\n:local res \"fetchresult.txt\"\r\
\n:if ([:len \$resfile]>0) do={:set res \$resfile}\r\
\n #:put \$res\r\
\n\r\
\n:local cmd \"/tool fetch\"\r\
\n:if ([:len \$mode]>0) do={:set cmd \"\$cmd mode=\$mode\"}\r\
\n:if ([:len \$upload]>0) do={:set cmd \"\$cmd upload=\$upload\"}\r\
\n:if ([:len \$user]>0) do={:set cmd \"\$cmd user=\\\"\$user\\\"\"}\r\
\n:if ([:len \$password]>0) do={:set cmd \"\$cmd password=\\\"\$password\\\
\"\"}\r\
\n:if ([:len \$address]>0) do={:set cmd \"\$cmd address=\\\"\$address\\\"\
\"}\r\
\n:if ([:len \$host]>0) do={:set cmd \"\$cmd host=\\\"\$host\\\"\"}\r\
\n:if ([:len \$\"http-data\"]>0) do={:set cmd \"\$cmd http-data=\\\"\$\"ht\
tp-data\"\\\"\"}\r\
\n:if ([:len \$\"http-method\"]>0) do={:set cmd \"\$cmd http-method=\\\"\$\
\"http-method\"\\\"\"}\r\
\n:if ([:len \$\"check-certificate\"]>0) do={:set cmd \"\$cmd check-certif\
icate=\\\"\$\"check-certificate\"\\\"\"}\r\
\n:if ([:len \$\"src-path\"]>0) do={:set cmd \"\$cmd src-path=\\\"\$\"src-\
path\"\\\"\"}\r\
\n:if ([:len \$\"dst-path\"]>0) do={:set cmd \"\$cmd dst-path=\\\"\$\"dst-\
path\"\\\"\"}\r\
\n:if ([:len \$ascii]>0) do={:set cmd \"\$cmd ascii=\\\"\$ascii\\\"\"}\r\
\n:if ([:len \$url]>0) do={:set cmd \"\$cmd url=\\\"\$url\\\"\"}\r\
\n\r\
\n:put \">> \$cmd\"\r\
\n\r\
\n:global FETCHRESULT\r\
\n:set FETCHRESULT \"none\"\r\
\n\r\
\n:local script \"\\\r\
\n :global FETCHRESULT;\\\r\
\n :do {\\\r\
\n \$cmd;\\\r\
\n :set FETCHRESULT \\\"success\\\";\\\r\
\n } on-error={\\\r\
\n :set FETCHRESULT \\\"failed\\\";\\\r\
\n }\\\r\
\n\"\r\
\n:execute script=\$script file=\$res\r\
\n:local cnt 0\r\
\n #:put \"\$cnt -> \$FETCHRESULT\"\r\
\n:while (\$cnt0) do={\r\
\n :set p [:find \$text \$block \$cur]\r\
\n :if ([:type \$p]=\"nil\") do={\r\
\n :return \$res\r\
\n }\r\
\n :set cur (\$p+[:len \$block]+2)\r\
\n}\r\
\n\r\
\n:set p [:find \$text \$key \$cur]\r\
\n:if ([:type \$p]!=\"nil\") do={\r\
\n :set cur (\$p+lkey+2)\r\
\n :set p [:find \$text \",\" \$cur]\r\
\n :if ([:type \$p]!=\"nil\") do={\r\
\n if ([:pick \$text \$cur]=\"\\\"\") do={\r\
\n :set res [:pick \$text (\$cur+1) (\$p-1)]\r\
\n } else={\r\
\n :set res [:pick \$text \$cur \$p]\r\
\n }\r\
\n } \r\
\n}\r\
\n:return \$res"
add name=tg_sendMessage policy=read source=":local fconfig [:parse\
\_[/system script get tg_config source]]\r\
\n\r\
\n:local cfg [\$fconfig]\r\
\n:local chatID (\$cfg->\"defaultChatID\")\r\
\n:local botID (\$cfg->\"botAPI\")\r\
\n:local storage (\$cfg->\"storage\")\r\
\n\r\
\n:if ([:len \$chat]>0) do={:set chatID \$chat}\r\
\n\r\
\n:local url \"https://api.telegram.org/bot$botID/sendmessage?chat_id=$
chatID&text=\$text\"\r\
\n:if ([:len \$mode]>0) do={:set url (\$url.\"&parse_mode=\$mode\")}\r\
\n\r\
\n:local file (\$tgStorage.\"tg_get_updates.txt\")\r\
\n:local logfile (\$tgStorage.\"tg_fetch_log.txt\")\r\
\n\r\
\n/tool fetch url=\$url keep-result=no"
add name=tg_cmd_cpu policy=read source=":local send [:parse [/syst\
em script get tg_sendMessage source]]\r\
\n:local hotspot [:len [/ip hotspot active find]]\r\
\n\r\
\n:put \$params\r\
\n:put \$chatid\r\
\n:put \$from\r\
\n \r\
\n:local text \"Router ID:* \$[/system identity get name] * %0A\\\r\
\nUptime: _\$[/system resource get uptime]_%0A\\\r\
\nCPU Load: _\$[/system resource get cpu-load]%_%0A\\\r\
\nRAM: _\$(([/system resource get total-memory]-[/system resource get free\
-memory])/(1024*1024))M/\$([/system resource get total-memory]/(1024*1024)\
)M_\"\r\
\n \r\
\n\$send chat=\$chatid text=\$text mode=\"Markdown\"\r\
\n:return true"
add name=tg_cmd_public policy=read source=":local send [:parse [/s\
ystem script get tg_sendMessage source]]\r\
\n:put \$params\r\
\n:put \$chatid\r\
\n:put \$from\r\
\n\r\
\n:local public;\r\
\n\
\n:local ddns;\r\
\n\
\n:set public [/ip cloud get public-address];\r\
\n\
\n:set ddns [/ip cloud get dns-name];\r\
\n\
\n:local text \"DDNS : \$ddns : IP Public : \$public\"\r\
\n\r\
\n\r\
\n\$send chat=\$chatid text=\$text mode=\"Markdown\""
add name=tg_cmd_ping policy=\
ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source=":\
local send [:parse [/system script get tg_sendMessage source]]\r\
\n:local param1 [:pick \$params 0 [:find \$params \" \"]]\r\
\n:local param2 [:pick \$params ([:find \$params \" \"]+1) [:len \$params]\
]\r\
\n\r\
\n:put \$params\r\
\n:put \$param1\r\
\n:put \$param2\r\
\n:put \$chatid\r\
\n:put \$from\r\
\n\r\
\n:if (\$param1=\"to\") do={\r\
\n Variables\r\
\n:local avgRtt;\r\
\n:local pin\r\
\n:local pout\r\
\n:local datetime \"\$[/system clock get date] \$[/system clock get time]\
\"\r\
\n it real good\r\
\n/tool flood-ping \$param2 count=10 do={\r\
\n \r\
\n:if (\$sent = 10) do={\r\
\n \r\
\n:set avgRtt \$\"avg-rtt\"\r\
\n \r\
\n:set pout \$sent\r\
\n \r\
\n:set pin \$received\r\
\n }\r\
\n\r\
\n}\r\
\n\r\
\n:local ploss (100 - ((\$pin * 100) / \$pout))\r\
\n\r\
\n:local logmsg (\"Ping Average for \$param2 - \".[:tostr \$avgRtt].\"ms -\
\_packet loss: \".[:tostr \$ploss].\"%\")\r\
\n\r\
\n:log info \$logmsg\r\
\n\r\
\n:local text \"Router ID:* \$[/system identity get name] * %0A\\\r\
\nDate : _\$datetime_%0A\\\r\
\nIP: _\$param2_%0A\\\r\
\nResult:%0A_\$logmsg_\"\r\
\n\$send chat=\$chatid text=\$text mode=\"Markdown\"\r\
\n:return true\r\
\n} else={\r\
\n Variables\r\
\n:local avgRtt;\r\
\n:local pin\r\
\n:local pout\r\
\n:local datetime \"\$[/system clock get date] \$[/system clock get time]\
\"\r\
\n it real good\r\
\n/tool flood-ping 8.8.8.8 count=10 do={\r\
\n \r\
\n:if (\$sent = 10) do={\r\
\n \r\
\n:set avgRtt \$\"avg-rtt\"\r\
\n \r\
\n:set pout \$sent\r\
\n \r\
\n:set pin \$received\r\
\n }\r\
\n\r\
\n}\r\
\n\r\
\n:local ploss (100 - ((\$pin * 100) / \$pout))\r\
\n\r\
\n:local logmsg (\"Ping Average for 8.8.8.8 - \".[:tostr \$avgRtt].\"ms - \
packet loss: \".[:tostr \$ploss].\"%\")\r\
\n\r\
\n:log info \$logmsg\r\
\n\r\
\n:local text \"Router ID:* \$[/system identity get name] * %0A\\\r\
\nDate : _\$datetime_%0A\\\r\
\nIP: _8.8.8.8_%0A\\\r\
\nResult:%0A_\$logmsg_\"\r\
\n\$send chat=\$chatid text=\$text mode=\"Markdown\"\r\
\n:return true\r\
\n}"
add name=tg_cmd_disablehotspot policy=\
ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source=":\
local send [:parse [/system script get tg_sendMessage source]]\r\
\n:put \$params\r\
\n:put \$chatid\r\
\n:put \$from\r\
\n\r\
\n:local text \"All hotspots disabled\"\r\
\n\r\
\n\$send chat=\$chatid text=\$text mode=\"Markdown\"\r\
\n/ip hotspot disable lantai1\r\
\n/ip hotspot disable lantai2"
add name=tg_cmd_enablehotspot policy=\
ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source=":\
local send [:parse [/system script get tg_sendMessage source]]\r\
\n:put \$params\r\
\n:put \$chatid\r\
\n:put \$from\r\
\n\r\
\n:local text \"All hotspots enabled\"\r\
\n\r\
\n\$send chat=\$chatid text=\$text mode=\"Markdown\"\r\
\n/ip hotspot enable lantai1\r\
\n/ip hotspot enable lantai2"
add name=tg_cmd_forceupdateddns policy=\
ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source=":\
local send [:parse [/system script get tg_sendMessage source]]\r\
\n:put \$params\r\
\n:put \$chatid\r\
\n:put \$from\r\
\n\r\
\n:local text \"Force Update DDNS\"\r\
\n\r\
\n\$send chat=\$chatid text=\$text mode=\"Markdown\"\r\
\n/ip cloud force-update"
add name=tg_config policy=\
ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source=" #\
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #\r\
\n # Telegram bot API, VVS/BlackVS 2017\r\
\n # Config file\r\
\n # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #\r\
\n:log info \"telegram configuration file has been loaded\";\r\
\n\r\
\n # to use config insert next lines:\r\
\n #:local fconfig [:parse [/system script get tg_config source]]\r\
\n #:local config [\$fconfig]\r\
\n #:put \$config\r\
\n\r\
\n # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #\r\
\n # Common parameters\r\
\n # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #\r\
\n\r\
\n:local config {\r\
\n\"Command\"=\"telegram\";\r\
\n\t\"botAPI\"=\"#########x:###############-#########xx\";\r\
\n\t\"defaultChatID\"=\"#########\";\r\
\n\t\"trusted\"=\"#########, -#########\";\r\
\n\t\"storage\"=\"\";\r\
\n\t\"timeout\"=5;\r\
\n\t\"refresh_active\"=15;\r\
\n\t\"refresh_standby\"=300;\r\
\n}\r\
\nreturn \$config"
add name=tg_cmd_hotspot policy=read \
source=":local send [:parse [/system script get tg_sendMessage source]]\r\
\n:local tolower [:parse [/system script get func_lowercase source]]\r\
\n:local param1 [:pick \$params 0 [:find \$params \" \"]]\r\
\n:local param2 [:pick \$params ([:find \$params \" \"]+1) [:len \$params]\
]\r\
\n:local param3 [:pick [:pick \$params ([:find \$params \" \"]+1) [:len \$\
params]] ([:find [:pick \$params ([:find \$params \" \"]+1) [:len \$params\
]] \" \"]+1) [:len [:pick \$params ([:find \$params \" \"]+1) [:len \$para\
ms]]]]\r\
\n:if ([:len [:find \$param2 \" \"]]>0) do={\r\
\n\t:set param2 [:pick [:pick \$params ([:find \$params \" \"]+1) [:len \$\
params]] 0 [:find [:pick \$params ([:find \$params \" \"]+1) [:len \$param\
s]] \" \"]]\r\
\n} else={\r\
\n\t:set param3 \"\"\r\
\n}\r\
\n\r\
\n:put \$params\r\
\n:put \$param1\r\
\n:put \$param2\r\
\n:put \$param3\r\
\n:put \$chatid\r\
\n:put \$from\r\
\n\r\
\n:local paramsLower [\$tolower \$params]\r\
\n:local param1Lower [\$tolower \$param1]\r\
\n:local param2Lower [\$tolower \$param2]\r\
\n:local param3Lower [\$tolower \$param3]\r\
\n\r\
\n:local sendHelp do={\r\
\n\t:local send [:parse [/system script get tg_sendMessage source]]\r\
\n\t:local txt \r\
\n\t:set txt (\"*Daftar parameter:*%0A%0A\")\r\
\n\t:set txt (\$txt.\"> session count - Menampilkan jumlah user yang seda\
ng aktif %0ACth: _/hotspot session showall_%0A\")\r\
\n\t:set txt (\$txt.\"> session showall - Menampilkan seluruh detail user\
\_yang sedang aktif %0ACth: _/hotspot session showall_%0A\")\r\
\n\t:set txt (\$txt.\"> session deauth-by-user __ - Mencabut se\
si perangkat berdasarkan Username. %0ACth: _/hotspot session deauth-by-use\
r admin_%0A\")\r\
\n\t:set txt (\$txt.\"> session deauth-by-ip __ - Mencabut sesi peran\
gkat berdasarkan Alamat IP. %0ACth: _/hotspot session deauth-by-ip 192.168\
.1.1_%0A\")\r\
\n\t:set txt (\$txt.\"> session deauth-by-mac __ - Mencabut sesi per\
angkat berdasarkan Alamat MAC. %0ACth: _/hotspot session deauth-by-mac AB:\
CD:EF:01:23:45_%0A\")\r\
\n\t:set txt (\$txt.\"> add _ _ - Menambah user baru. %0A\
Cth: _/hotspot add admin admin123_%0A\")\r\
\n\t:set txt (\$txt.\"> delete __ - Menghapus user. %0ACth: _/hotsp\
ot delete admin _%0A\")\r\
\n\t:set txt (\$txt.\"> disable __ - menonaktifkan user. %0ACth: _/\
hotspot disable admin _%0A\")\r\
\n\t:set txt (\$txt.\"> enable __ - mengaktifkan user. %0ACth: _/ho\
tspot enable admin _%0A\")\r\
\n\t:set txt (\$txt.\"> change-password _ _ - mengganti p\
assword user. %0ACth: _/hotspot change-password admin p4sSw_%0A%0A\")\r\
\n\t\$send chat=\$chatid text=(\"\$txt\") mode=\"Markdown\"\r\
\n}\r\
\n\r\
\nif (\$paramsLower = \"help\") do={\r\
\n\t\$sendHelp\r\
\n}\r\
\n\r\
\n:if (\$param1Lower=\"session\") do={\r\
\n\t:if (\$param2Lower=\"count\") do={\r\
\n\t\t:local output\r\
\n\t\t:local hotspot [:len [/ip hotspot active find]]\r\
\n\t\t:local text \"Router ID:* \$[/system identity get name] * %0A\\\r\
\n\t\tHotspot users: _\$hotspot online_\"\r\
\n\t\t\$send chat=\$chatid text=\$text mode=\"Markdown\"\r\
\n\t}\r\
\n\t:if (\$param2Lower=\"showall\") do={\r\
\n\t\t:local output\r\
\n\t\t:foreach activeIndex in=[/ip hotspot active find] do={\r\
\n\t\t\t:local activeUser (\"*Username*: \".[/ip hotspot active get value-\
name=\"user\" \$activeIndex].\"%0A\")\r\
\n\t\t\t:local activeAddress (\"*IP*: \".[/ip hotspot active get value-nam\
e=\"address\" \$activeIndex].\"%0A\")\r\
\n\t\t\t:local activeMACAddr (\"*MAC*: \".[/ip hotspot active get value-na\
me=\"mac-address\" \$activeIndex].\"%0A\")\r\
\n\t\t\t:local activeLoginBy (\"*Login Method*: \".[/ip hotspot active get\
\_value-name=\"login-by\" \$activeIndex].\"%0A\")\r\
\n\t\t\t:local activeUptime (\"*Uptime*: \".[/ip hotspot active get value-\
name=\"uptime\" \$activeIndex].\"%0A\")\r\
\n\t\t\t:local idleTime (\"*Idle Time*: \".[/ip hotspot active get value-n\
ame=\"idle-time\" \$activeIndex].\"%0A\")\r\
\n\t\t\t:local serverIn (\"*Server*: \".[/ip hotspot active get value-name\
=\"server\" \$activeIndex].\"%0A\")\r\
\n\t\t\t:set output (\$output.\$activeUser.\$activeAddress.\$activeMACAddr\
.\$activeUptime.\$idleTime.\$activeLoginBy.\$serverIn.\"%0A\")\r\
\n\t\t}\r\
\n\t\t\$send chat=\$chatid text=(\"\$output\") mode=\"Markdown\"\r\
\n\t}\r\
\n\t:if (\$param2Lower=\"deauth-by-user\") do={\r\
\n\t\t/ip hotspot active remove [find user=\"\$param3\"]\r\
\n\t\t\$send chat=\$chatid text=(\"Sesi User \$param3 berhasil dihapus\") \
mode=\"Markdown\"\r\
\n\t}\r\
\n\t:if (\$param2Lower=\"deauth-by-mac\") do={\r\
\n\t\t/ip hotspot active remove [find mac-address=\"\$param3\"]\r\
\n\t\t\$send chat=\$chatid text=(\"Sesi MAC \$param3 berhasil dihapus\") m\
ode=\"Markdown\"\r\
\n\t}\r\
\n\t:if (\$param2Lower=\"deauth-by-ip\") do={\r\
\n\t\t/ip hotspot active remove [find address=\"\$param3\"]\r\
\n\t\t\$send chat=\$chatid text=(\"Sesi IP \$param3 berhasil dihapus\") mo\
de=\"Markdown\"\r\
\n\t}\r\
\n}\r\
\n:if (\$param1Lower=\"add\") do={\r\
\n\tif ([:len [ip hotspot user find where name=\$param2]] = 0) do={\r\
\n\t\t/ip hotspot user add name=\$param2 password=\$param3 profile=default\
\r\
\n\t\t\$send chat=\$chatid text=(\"Berhasil membuat user baru. Masuk ke ho\
tspot dengan:%0A%0A*Username:* \$param2%0A*Password:* \$param3\") mode=\"M\
arkdown\"\r\
\n\t} else={\r\
\n\t\t\$send chat=\$chatid text=(\"User \$param2 sudah terpakai, silahkan \
gunakan nama lain\") mode=\"Markdown\"\r\
\n\t}\r\
\n\t\r\
\n}\r\
\n:if (\$param1Lower=\"delete\") do={\r\
\n\tif ([:len [ip hotspot user find where name=\$param2]] > 0) do={\r\
\n\t\t/ip hotspot user remove [find name=\$param2]\r\
\n\t\t\$send chat=\$chatid text=(\"Berhasil menghapus user \$param2.\") mo\
de=\"Markdown\"\r\
\n\t} else={\r\
\n\t\t\$send chat=\$chatid text=(\"User \$param2 tidak ditemukan\") mode=\
\"Markdown\"\r\
\n\t}\r\
\n}\r\
\n:if (\$param1Lower=\"disable\") do={\r\
\n\tif ([:len [ip hotspot user find where name=\$param2]] > 0) do={\r\
\n\t\t/ip hotspot user disable [find name=\$param2]\r\
\n\t\t\$send chat=\$chatid text=(\"\$param2 kini telah dinonaktifkan\") mo\
de=\"Markdown\"\r\
\n\t} else={\r\
\n\t\t\$send chat=\$chatid text=(\"User \$param2 tidak ditemukan\") mode=\
\"Markdown\"\r\
\n\t}\r\
\n}\r\
\n:if (\$param1Lower=\"enable\") do={\r\
\n\tif ([:len [ip hotspot user find where name=\$param2]] > 0) do={\r\
\n\t/ip hotspot user enable [find name=\$param2]\r\
\n\t\$send chat=\$chatid text=(\"\$param2 kini telah diaktifkan\") mode=\"\
Markdown\"\r\
\n\t} else={\r\
\n\t\t\$send chat=\$chatid text=(\"User \$param2 tidak ditemukan\") mode=\
\"Markdown\"\r\
\n\t}\r\
\n}\r\
\n:if (\$param1Lower=\"setprofile\") do={\r\
\n\tif ([:len [ip hotspot user find where name=\$param2]] > 0) do={\r\
\n\t\t/ip hotspot user set password=\$param3 [find name=\$param2]\r\
\n\t\t/ip hotspot active remove [find name=\$param2]\r\
\n\t\t\$send chat=\$chatid text=(\"Berhasil mengganti profile menjadi \$pa\
ram3.\") mode=\"Markdown\"\r\
\n\t} else={\r\
\n\t\t\$send chat=\$chatid text=(\"User \$param2 tidak ditemukan\") mode=\
\"Markdown\"\r\
\n\t}\r\
\n}\r\
\n:if (\$param1Lower=\"change-password\") do={\r\
\n\tif ([:len [ip hotspot user find where name=\$param2]] > 0) do={\r\
\n\t\t/ip hotspot user set password=\$param3 [find name=\$param2]\r\
\n\t\t/ip hotspot active remove [find name=\$param2]\r\
\n\t\t\$send chat=\$chatid text=(\"Berhasil mengganti password untuk \$par\
am2.\") mode=\"Markdown\"\r\
\n\t} else={\r\
\n\t\t\$send chat=\$chatid text=(\"User \$param2 tidak ditemukan\") mode=\
\"Markdown\"\r\
\n\t}\r\
\n}\r\
\n"
add name=tg_cmd_interface policy=read source=":local send [:parse [/system script get tg_sendMessage source]]\r\
\n:local param1 [:pick \$params 0 [:find \$params \" \"]]\r\
\n:local param2 [:pick \$params ([:find \$params \" \"]+1) [:len \$params]\
]\r\
\n:local param3 [:pick [:pick \$params ([:find \$params \" \"]+1) [:len \$\
params]] ([:find [:pick \$params ([:find \$params \" \"]+1) [:len \$params\
]] \" \"]+1) [:len [:pick \$params ([:find \$params \" \"]+1) [:len \$para\
ms]]]]\r\
\n:if ([:len [:find \$param2 \" \"]]>0) do={\r\
\n\t:set param2 [:pick [:pick \$params ([:find \$params \" \"]+1) [:len \$\
params]] 0 [:find [:pick \$params ([:find \$params \" \"]+1) [:len \$param\
s]] \" \"]]\r\
\n} else={\r\
\n\t:set param3 \"\"\r\
\n}\r\
\n\r\
\n:put \$params\r\
\n:put \$param1\r\
\n:put \$param2\r\
\n:put \$param3\r\
\n:put \$chatid\r\
\n:put \$from\r\
\n\r\
\n:if (\$params=\"show\") do={\r\
\n\t:local output \"Router ID:* \$[/system identity get name] * %0A%0A\"\r\
\n\t:local eth01status\r\
\n\t:local eth03status\r\
\n\t:local eth04status\r\
\n\t:local eth05status\r\
\n\r\
\n\t:if ([/interface ethernet get eth01-router running]=true) do={\r\
\n\t\t:set eth01status (\"Internet is *CONNECTED*%0A\")\r\
\n\t} else={\r\
\n\t\t:set eth01status (\"Internet is *DISCONNECTED*%0A\")\r\
\n\t}\r\
\n\r\
\n\t:if ([/interface ethernet get eth03-lantai-1 running]=true) do={\r\
\n\t\t:set eth03status (\"Lantai 1 is *CONNECTED*%0A\")\r\
\n\t} else={\r\
\n\t\t:set eth03status (\"Lantai 1 is *DISCONNECTED*%0A\")\r\
\n\t}\r\
\n\r\
\n\t:if ([/interface ethernet get eth04-lantai-2 running]=true) do={\r\
\n\t\t:set eth04status (\"Lantai 2 is *CONNECTED*%0A\")\r\
\n\t} else={\r\
\n\t\t:set eth04status (\"Lantai 2 is *DISCONNECTED*%0A\")\r\
\n\t}\r\
\n\r\
\n\t:if ([/interface ethernet get eth05-configurator running]=true) do={\r\
\n\t\t:set eth05status (\"Config is *CONNECTED*%0A\")\r\
\n\t} else={\r\
\n\t\t:set eth05status (\"Config is *DISCONNECTED*%0A\")\r\
\n\t}\r\
\n\t:set output (\$output.\$eth01status.\$eth03status.\$eth04status.\$eth0\
5status)\r\
\n\t\$send chat=\$chatid text=(\"\$output\") mode=\"Markdown\"\r\
\n}\r\
\n:if ((\$param1=\"show\") and (\$param2=\"all\")) do={\r\
\n\tlocal status \r\
\n\tlocal name\r\
\n\tforeach i in=[interface find] do={\r\
\n\t\tset status (\$status,[/interface get value-name=running \$i])\r\
\n\t\tset name (\$name,[/interface get value-name=name \$i])\r\
\n\t}\r\
\n\tput \$status\r\
\n\tput \$name\r\
\n\tlocal text\r\
\n\tfor e from=0 to=([:len [interface find]] - 1) do={\r\
\n\t\tlocal change {\"true\"=\"Connected\";\"false\"=\"Disconnected\"}\r\
\n\t\tlocal newstatus (\$change->[:pick \$status \$e])\r\
\n\t\tlocal before (\"%0AInterface \".[:pick \$name \$e].\" - Status: \".\
\$newstatus)\r\
\n\t\tput \$before\r\
\n\t\tset text (\$text.\$before)\r\
\n\t}\r\
\n\tput \$text\r\
\n\t\$send chat=\$chatid text=(\"\$text\") mode=\"Markdown\"\r\
\n}\r\
\n"
add name=tg_cmd_help policy=read source=":local send [:parse [/sys\
tem script get tg_sendMessage source]]\r\
\n\r\
\n:put \$params\r\
\n:put \$chatid\r\
\n:put \$from\r\
\n\r\
\n:local text \"Router ID:* \$[/system identity get name] * %0A\\\r\
\n==================%0A\\\r\
\nMENU TERSEDIA%0A\\\r\
\n==================%0A\\\r\
\n/help%0A\\\r\
\n/start%0A\\\r\
\n/cpu%0A\\\r\
\n/interface%0A\\\r\
\n - show%0A\\\r\
\n - show all%0A\\\r\
\n/dhcp%0A\\\r\
\n - lease%0A\\\r\
\n/hotspot%0A\\\r\
\n - help%0A\\\r\
\n - session%0A\\\r\
\n > count%0A\\\r\
\n > showall%0A\\\r\
\n > deauth-by-user %0A\\\r\
\n > deauth-by-mac %0A\\\r\
\n > deauth-by-ip %0A\\\r\
\n - add %0A\\\r\
\n - delete %0A\\\r\
\n - disable %0A\\\r\
\n - enable %0A\\\r\
\n - setprofile %0A\\\r\
\n - change-password %0A\\\r\
\n/ping to %0A\\\r\
\n/monitoring%0A\\\r\
\n - interface %0A\\\r\
\n - cpu%0A\\\r\
\n - ram%0A\\\r\
\n - memory%0A\\\r\
\n/public%0A\\\r\
\n/enablehotspot%0A\\\r\
\n/disablehotspot%0A\\\r\
\n/forceupdateddns%0A\\\r\
\n/reboot\"\r\
\n \r\
\n\$send chat=\$chatid text=\$text mode=\"Markdown\"\r\
\n:return true"
add name=reboot-report policy=\
ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source=":\
local send [:parse [/system script get tg_sendMessage source]]\r\
\n:put \$params\r\
\n:put \$chatid\r\
\n:put \$from\r\
\n\r\
\n:local reportBody \"\"\r\
\n \r\
\n:local deviceName [/system identity get name]\r\
\n:local deviceDate [/system clock get date]\r\
\n:local deviceTime [/system clock get time]\r\
\n:local hwModel [/system routerboard get model]\r\
\n:local rosVersion [/system package get system version]\r\
\n:local currentFirmware [/system routerboard get current-firmware]\r\
\n:local upgradeFirmware [/system routerboard get upgrade-firmware]\r\
\n \r\
\n \r\
\n:set reportBody (\$reportBody . \"Router Reboot Report for \$deviceName%\
0A\")\r\
\n:set reportBody (\$reportBody . \"Report generated on \$deviceDate at \$\
deviceTime%0A%0A\")\r\
\n \r\
\n:set reportBody (\$reportBody . \"Hardware Model: \$hwModel%0A\")\r\
\n:set reportBody (\$reportBody . \"RouterOS Version: \$rosVersion%0A\")\r\
\n:set reportBody (\$reportBody . \"Current Firmware: \$currentFirmware%0A\
\")\r\
\n:set reportBody (\$reportBody . \"Upgrade Firmware: \$upgradeFirmware\")\
\r\
\nif ( \$currentFirmware < \$upgradeFirmware) do={\r\
\n:set reportBody (\$reportBody . \"NOTE: You should upgrade the RouterBOA\
RD firmware!%0A\")\r\
\n}\r\
\n \r\
\n:set reportBody (\$reportBody . \"%0A%0A=== Critical Log Events ===%0A\"\
\_)\r\
\n \r\
\n:local x\r\
\n:local ts\r\
\n:local msg\r\
\nforeach i in=([/log find where topics~\"critical\"]) do={\r\
\n:set \$ts [/log get \$i time]\r\
\n:set \$msg [/log get \$i message]\r\
\n:set \$reportBody (\$reportBody . \$ts . \" \" . \$msg . \"%0A\" )\r\
\n}\r\
\n \r\
\n:set reportBody (\$reportBody . \"%0A=== end of report ===%0A\")\r\
\n\$send chat=\$chatid text=\$reportBody mode=\"Markdown\""
add name=tg_cmd_reboot policy=\
ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source=":\
local send [:parse [/system script get tg_sendMessage source]]\r\
\n:put \$params\r\
\n:put \$chatid\r\
\n:put \$from\r\
\n\r\
\n:local text \"Menghidupkan ulang router dalam 30 detik...\"\r\
\n\r\
\n\$send chat=\$chatid text=\$text mode=\"Markdown\"\r\
\n\r\
\n:delay 30\r\
\nsystem reboot"
add name=tg_cmd_dhcp policy=\
ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon source=":\
local send [:parse [/system script get tg_sendMessage source]]\r\
\n:local tolower [:parse [/system script get func_lowercase source]]\r\
\n:local param1 [:pick \$params 0 [:find \$params \" \"]]\r\
\n:local param2 [:pick \$params ([:find \$params \" \"]+1) [:len \$params]\
]\r\
\n:local param3 [:pick [:pick \$params ([:find \$params \" \"]+1) [:len \$\
params]] ([:find [:pick \$params ([:find \$params \" \"]+1) [:len \$params\
]] \" \"]+1) [:len [:pick \$params ([:find \$params \" \"]+1) [:len \$para\
ms]]]]\r\
\n:if ([:len [:find \$param2 \" \"]]>0) do={\r\
\n\t:set param2 [:pick [:pick \$params ([:find \$params \" \"]+1) [:len \$\
params]] 0 [:find [:pick \$params ([:find \$params \" \"]+1) [:len \$param\
s]] \" \"]]\r\
\n} else={\r\
\n\t:set param3 \"\"\r\
\n}\r\
\n\r\
\n:local paramsLower [\$tolower \$params]\r\
\n:local param1Lower [\$tolower \$param1]\r\
\n:local param2Lower [\$tolower \$param2]\r\
\n:local param3Lower [\$tolower \$param3]\r\
\n\r\
\n:local getVendor false\r\
\n:if (\$paramsLower = \"lease\") do={\r\
\n\tlocal GetMacVendor do={\r\
\n\t\t:do {\r\
\n\t\t\treturn ([/tool fetch mode=https http-method=get url=(\"https://api
.macvendors.com/\".[:pick [:tostr \$1] 0 8 ]) as-value output=user ]->\"da\
ta\")\r\
\n\t\t} on-error={\r\
\n\t\t\treturn \"unknown vendor\"\r\
\n\t\t}\r\
\n\t}\r\
\n\t:local text\r\
\n\t:local number (0)\r\
\n\t:set text (\"Router ID: \$[/system identity get value-name=name]\")\r\
\n\t:foreach lease in=[/ip dhcp-server lease find] do={\r\
\n\t\t:set number (\$number + 1)\r\
\n\t\tset text (\$text.\"====== \\F0\\9F\\97\\82 DHCP LEASE (\$number) \\F\
0\\9F\\97\\82 ======%0A\")\r\
\n\t\t:local addr [/ip dhcp-server lease get value-name=address \$lease]\r\
\n\t\t:set text (\$text.\"IP Address: \$addr%0A\")\r\
\n\t\t:local mac [/ip dhcp-server lease get value-name=mac-address \$lease\
]\r\
\n\t\t:set text (\$text.\"Mac Address: \$mac%0A\")\r\
\n\t\t:if (\$getVendor = \"true\") do={\r\
\n\t\t\t:local macvendor [\$GetMacVendor \$mac]\r\
\n\t\t\t:set text (\$text.\"Mac Vendor: \$macvendor%0A\")\t\r\
\n\t\t}\r\
\n\t\t:local host [/ip dhcp-server lease get value-name=host-name \$lease]\
\r\
\n\t\t:if ([:typeof \$host] = \"nil\") do={set host (\"Unknown Hostname\")\
}\r\
\n\t\t:set text (\$text.\"Hostname: \$\$host%0A\")\r\
\n\t\t:local lastseen [/ip dhcp-server lease get value-name=last-seen \$le\
ase]\r\
\n\t\t:set text (\$text.\"Uptime: \$lastseen%0A\")\r\
\n\t\t:local server [/ip dhcp-server lease get value-name=server \$lease]\
\r\
\n\t\t:set text (\$text.\"Server: \$server%0A\")\r\
\n\t}\r\
\n\t:set text (\$text.\"=========== END REPORT ===========%0A\")\r\
\n\t\$send chat=\$chatid text=(\"\$text\") mode=\"Markdown\"\r\
\n}\r\
\n:if (\$param1Lower = \"client\" && \$param2Lower = \"release\") do={\r\
\n\t:if ([:len \$param3] > 0) do={\r\
\n\t\t:if ([:len [/ip dhcp-client/ find where interface=\$param3]] > 0) do\
={\r\
\n\t\t\t\$send chat=\$chatid text=\"DHCP Client akan di release dalam 5 de\
tik\" mode=\"Markdown\";\r\
\n\t\t\t:delay 5s\r\
\n\t\t\t/ip dhcp-client release \$param3\r\
\n\t\t} else={\r\
\n\t\t\t\$send chat=\$chatid text=(\"Maaf, DHCP client dengan interface \$\
param3 tidak ditemukan\") mode=\"Markdown\";\r\
\n\t\t}\r\
\n\t} else={\r\
\n\t\t\$send chat=\$chatid text=\"Silahkan masukkan interface yang ingin d\
i release dhcpclient-nya\" mode=\"Markdown\";\r\
\n\t}\r\
\n}"
add name=func_lowercase policy=read \
source="local alphabet {\"A\"=\"a\";\"B\"=\"b\";\"C\"=\"c\";\"D\"=\"d\";\"\
E\"=\"e\";\"F\"=\"f\";\"G\"=\"g\";\"H\"=\"h\";\"I\"=\"i\";\"J\"=\"j\";\"K\
\"=\"k\";\"L\"=\"l\";\"M\"=\"m\";\"N\"=\"n\";\"O\"=\"o\";\"P\"=\"p\";\"Q\"\
=\"q\";\"R\"=\"r\";\"S\"=\"s\";\"T\"=\"t\";\"U\"=\"u\";\"V\"=\"v\";\"X\"=\
\"x\";\"Z\"=\"z\";\"Y\"=\"y\";\"W\"=\"w\"};\r\
\n:local result\r\
\n:local character\r\
\n:for strings from=0 to=([:len \$1] - 1) do={\r\
\n\t:local single [:pick \$1 \$strings]\r\
\n\t:set character (\$alphabet->\$single)\r\
\n\t:if ([:typeof \$character] = \"str\") do={set single \$character}\r\
\n\t:set result (\$result.\$single)\r\
\n}\r\
\n:return \$result"
add name=tg_cmd_monitoring policy=read\
source=":local send [:parse [/system script get tg_sendMessage source\
]]\r\
\n:local tolower [:parse [/system script get func_lowercase source]]\r\
\n:local param1 [:pick \$params 0 [:find \$params \" \"]]\r\
\n:local param2 [:pick \$params ([:find \$params \" \"]+1) [:len \$params]\
]\r\
\n:local param3 [:pick [:pick \$params ([:find \$params \" \"]+1) [:len \$\
params]] ([:find [:pick \$params ([:find \$params \" \"]+1) [:len \$params\
]] \" \"]+1) [:len [:pick \$params ([:find \$params \" \"]+1) [:len \$para\
ms]]]]\r\
\n:if ([:len [:find \$param2 \" \"]]>0) do={\r\
\n\t:set param2 [:pick [:pick \$params ([:find \$params \" \"]+1) [:len \$\
params]] 0 [:find [:pick \$params ([:find \$params \" \"]+1) [:len \$param\
s]] \" \"]]\r\
\n} else={\r\
\n\t:set param3 \"\"\r\
\n}\r\
\n\r\
\n:local fconfig [:parse [/system script get tg_config source]]\r\
\n:local config [\$fconfig]\r\
\n:local botID (\$config->\"botAPI\")\r\
\n\r\
\n:local counting 0;\r\
\n\r\
\n #=======================================================\r\
\n akan dipaksa berhenti setelah x detik (default 50)\r\
\n:local forceStopAfter 50;\r\
\n #=======================================================\r\
\n\r\
\n:local paramsLower [\$tolower \$params]\r\
\n:local param1Lower [\$tolower \$param1]\r\
\n:local param2Lower [\$tolower \$param2]\r\
\n:local param3Lower [\$tolower \$param3]\r\
\n\r\
\n:local forceStop do={\r\
\n :global monitoring;\r\
\n :set monitoring false;\r\
\n :delay 2s;\r\
\n /system script environment remove monitoring;\r\
\n /system script job remove [find where script=tg_getUpdates];\r\
\n}\r\
\n\r\
\n:local prepare do={\r\
\n :local gkey [:parse [/system script get tg_getkey source]]\r\
\n :local fconfig [:parse [/system script get tg_config source]]\r\
\n :local config [\$fconfig]\r\
\n :local botID (\$config->\"botAPI\")\r\
\n :local url (\"https://api.telegram.org/bot".$botID."/sendMessage
\\\?chat_id=\$chatid&text=Preparing...\")\r\
\n :put \$url\r\
\n :local fetching ([/tool fetch url=\$url output=user as-value]->\"dat\
a\")\r\
\n :local msgID [\$gkey key=\"message_id\" text=\$fetching]\r\
\n :return \$msgID\r\
\n}\r\
\n\r\
\n:global monitoring true;\r\
\n\r\
\n:if (\$param1Lower = \"interface\") do={\r\
\n :if ([:len [/interface find where name=\$param2]] > 0) do={\r\
\n :local msgid [\$prepare chatid=\$chatid]\r\
\n :put \$msgid\r\
\n :while (\$monitoring) do={\r\
\n :local rxData ((([/interface monitor-traffic \$param2 once a\
s-value]->\"rx-bits-per-second\")/1000)/1);\r\
\n :local txData ((([/interface monitor-traffic \$param2 once a\
s-value]->\"tx-bits-per-second\")/1000)/1);\r\
\n :local text (\"\$param2%0ARX: \$rxData kb/s%0ATX: \$txData k\
b/s\");\r\
\n /tool fetch url=\"https://api.telegram.org/bot$botID/editMe
ssageText\\\?chat_id=\$chatid&message_id=\$msgid&text=\$text\" output=none\
\r\
\n :set counting (\$counting + 1);\r\
\n :if (\$counting > \$forceStopAfter) do={\$forceStop;}\r\
\n }\r\
\n :return true;\r\
\n \r\
\n } else={\r\
\n \$send chat=\$chatid text=(\"Interface \$param2 tidak ditemukan\
\")\r\
\n }\r\
\n}\r\
\n\r\
\n:if (\$paramsLower = \"cpu\") do={\r\
\n :local msgid [\$prepare chatid=\$chatid]\r\
\n :put \$msgid\r\
\n :local identity ([/system identity get name])\r\
\n :while (\$monitoring) do={\r\
\n :local cpuLoad [/system resource get cpu-load]\r\
\n :local text (\"Router Id: \".\$identity.\"%0ACPU-LOAD: \".\$cpuL\
oad.\"%25\")\r\
\n /tool fetch url=\"https://api.telegram.org/bot$botID/editMessag
eText\\\?chat_id=\$chatid&message_id=\$msgid&text=\$text\" output=none\r\
\n :set counting (\$counting + 1);\r\
\n :if (\$counting > \$forceStopAfter) do={\$forceStop;}\r\
\n }\r\
\n}\r\
\n\r\
\n:if ((\$paramsLower = \"ram\") or (\$paramsLower = \"memory\")) do={\r\
\n :local msgid [\$prepare chatid=\$chatid]\r\
\n :put \$msgid\r\
\n :local totalMemory ([/system resource get total-memory] / 1024 / 10\
24)\r\
\n :local identity ([/system identity get name])\r\
\n :while (\$monitoring) do={\r\
\n :local clockTime [/system clock get time]\r\
\n :local freeMemory ([/system resource get free-memory] / 1024 / \
1024)\r\
\n :local text (\"Router Id: \".\$identity.\"%0ATime: \$clockTime%0\
AFree Memory: \$freeMemory/\$totalMemory MiB\")\r\
\n /tool fetch url=\"https://api.telegram.org/bot$botID/editMessag
eText\\\?chat_id=\$chatid&message_id=\$msgid&text=\$text\" output=none\r\
\n :set counting (\$counting + 1);\r\
\n :if (\$counting > \$forceStopAfter) do={\$forceStop;}\r\
\n }\r\
\n}\r\
\n"
add name=tg_cmd_stop policy=read source=":global monitoring;\r\
\n:set monitoring false;\r\
\n:delay 5s;\r\
\n/system script environment remove monitoring;\r\
\n"
