mirror.MikroTik/furaihan.simple-mikrotik-script
1
0
Fork 0
mirror of https://github.com/furaihan/simple-mikrotik-script.git synced 2025-07-14 08:34:29 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

added firewall raw video stream

Browse source
This commit is contained in:
furaihan 2021-05-11 14:34:40 +07:00
parent 381e8cc1ac
commit 8745549c15
4 changed files with 155 additions and 83 deletions
Download patch file Download diff file Expand all files Collapse all files

60
first-setup
View file

@ -11,30 +11,40 @@
}
}
#source: https://s.id/q4f-O
:global ConvertLowerCase do={
: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"};
:local result
:local character
:for strings from=0 to=([:len $1] - 1) do={
:local single [:pick $1 $strings]
:set character ($alphabet->$single)
:if ([:typeof $character] = "str") do={set single $character}
:set result ($result.$single)
}
:return $result
}
:global convert do={
:local Input
:if ([:len $text] > 0) do={:set Input [ :tostr $text ];} else={:set Input [ :tostr $2 ];}
:local Return "";
:if ([ :len $Input ] > 0) do={
:local Chars
:local Subs
:if (($target="urlencode") or ($1 = "urlencode")) do={
:set Chars " !\"#\$%&'()*+,:;<=>\?@[\\]^`{|}~";
:set Subs { "%20"; "%21"; "%22"; "%23"; "%24"; "%25"; "%26"; "%27"; "%28"; "%29"; "%2A"; "%2B"; "%2C"; "%3A"; "%3B"; "%3C"; "%3D"; "%3E"; "%3F"; "%40"; "%5B"; "%5C"; "%5D"; "%5E"; "%60"; "%7B"; "%7C"; "%7D"; "%7E" };
}
:if (($target="uppercase") or ($1 = "uppercase")) do={
:set Chars "fteklgxpzwqdchbraunomsiyvj"
:set Subs {"F";"T";"E";"K";"L";"G";"X";"P";"Z";"W";"Q";"D";"C";"H";"B";"R";"A";"U";"N";"O";"M";"S";"I";"Y";"V";"J"}
} else={
:if (($target != "urlencode") and ($1 != "urlencode")) do={
:set Chars "FTEKLGXPZWQDCHBRAUNOMSIYVJ"
:set Subs {"f";"t";"e";"k";"l";"g";"x";"p";"z";"w";"q";"d";"c";"h";"b";"r";"a";"u";"n";"o";"m";"s";"i";"y";"v";"j"}
}
}
:put $Chars
:put $Subs
:for I from=0 to=([ :len $Input ] - 1) do={
:local Char [ :pick $Input $I ];
:local Replace [ :find $Chars $Char ];
:global ConvertUpperCase do={
: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"};
:local result
:local character
:for strings from=0 to=([:len $1] - 1) do={
:local single [:pick $1 $strings]
:set character ($alphabet->$single)
:if ([:typeof $character] = "str") do={set single $character}
:set result ($result.$single)
}
:return $result
:if ([ :len $Replace ] > 0) do={
:set Char ($Subs->$Replace);
}
:set Return ($Return . $Char);
}
}
:return $Return;
}
:global ConnectionAvailable do={
:local internet
@ -87,7 +97,7 @@
:local str1 ("fCnR70RysX1MLh8wsqtLqDKHVr0k3QB4vCO04w2tk67moaIyn3Vh5HiQw92c4xlK1VQiDQA0u336O3EMzl3Yde0rL8b5UWKEsBtM5Z3Y2657PWt22w2x584V21dh3zEKzqW6GvY22I1MRYxEv4Y8u8ENqFN5gE1W5kt1HdgeD88jttsNe89X4ZxEMiVAIZS3AW7N5K6gunQNk77gNssfoCuP23JYGE7iG5DS4Uy8ws8rKIO6K2NbBRcm6Mdvfq3PADah6SCBuExd2vHaOOf533royUpEMRJvlreJSUWK5wRPmmlx81iFI6Yr");
:local str2 ("mA4xx0DJ3EDETaVWfhImu8FU584XjUIttwA29HkmiOmvN2tGmn4GqBcpo0Qp6O838PFc9uZxFwXQ8OKC1aM4X2uojX8E4H555JhFDdYQ9ZsEG8PFXFbbszBAg10COP0Ku2d0tfwT72jXKDnFaDkWMyLUtnQ3l7VhV8eyuaFzVW8h3t55xWvFQrKgoFs842nE5T4qqiT7Ply6YFylrEToTZZNtvw0NkRs3Wcz4qAoEhsE0t6JvHV7e2Y7L7T9c7dZ5JkcF1VAIxpUJ7EQCy62JnxaH1AqSGB49nFI52bhf1UHC2b9UjgXo1VC");
:local str3 ("4Trr6EncZu6ssMJWe81z8PBpZcy2v58UXgg8m280JxeqGbykd3niaZvY24B3e65FXKkW3yBTTgfV1fII7b8uQURf4FFy7FASbdaEuHfmcpi5l44sb0FO7sQg06MA80LE0l8gJ2k1NzAPTUXJL24Ajvf0ZrvkbMv6VTjMO5lD0Mv5Ljw01w237fKioVn1f2O8eHUq19kMEk1zr5B0ASKLNpL3f0LA3rs18u5jPq7w7VESzhNB89AGFICY72F2ofCs85VDV667CkjmJ0aqg9984I2s5209uu73WXRVc8UMF2PMBEV2J94XFR7c");
:local string
:local string
:if (($secondx % 2) = 0) do={
set string $str1
} else={
@ -124,5 +134,3 @@ global UrlEncode;
}
:return $Return;
}