Signalka

local component = require("component")
local event = require("event")
local internet = require("internet")
local tty = require("tty")
local fs = require("filesystem")
local json = require("json")
local serial = require("serialization")
local gpu = require("component").gpu

local sen = component.motion_sensor
local oldback = gpu.getBackground()
local oldfore = gpu.getForeground()

-- Запрашиваем у пользователя ключи Pastebin API при запуске программы
--print("Enter your Pastebin API Key:")
--local pastebinKey = io.read()
--print("Enter your Pastebin User Key:")
--local userKey = io.read()

-- Запрашиваем у пользователя данные для Telegram
print("Enter your Telegram Bot Token:")
local botToken = io.read()
print("Enter your Telegram Chat ID:")
local chatID = io.read()

sen.setSensitivity(0,1)
tty.clear()

io.write([===[
                 .-_; ;_-.
                / /     \ \
               | |       | |
                \ \.---./ /
            .-"~   .---.   ~"-.
          ,`.-~/ .'`---`'. \~-.`,
          '`   | | \(_)/ | |   `'
          ,    \  \ | | /  /    ,
          ;`'.,_\  `-'-'  /_,.'`;
           '-._  _.-'^'-._  _.-'
               ``         ``
]===])
print("Primitive tracking program v1.1")
print("By HappyWindinkg")
print("Sensitivity threshold: ", sen.getSensitivity())
print()
print("List of offenders:")

-- Функция для отправки данных на Pastebin
local function pasteToPastebin(data, pastebinKey, userKey)
  local pasteName = "Alert: Unauthorized Visitor"
  local response = ""

  local url = "https://pastebin.com/api/api_post.php"
  local requestBody = "api_dev_key=" .. pastebinKey ..
                      "&api_user_key=" .. userKey ..
                      "&api_option=paste" ..
                      "&api_paste_code=" .. data

  local handle, err = internet.request(url, requestBody)
  if not handle then
    return "Error: " .. (err or "unknown error")
  end

  for chunk in handle do
    response = response .. chunk
  end

  return response
end

-- Функция для кодирования URL
local function urlencode(str)
   if (str) then
      str = string.gsub (str, "\n", "\r\n")
      str = string.gsub (str, "([^%w ])",
         function (c) return string.format ("%%%02X", string.byte(c)) end)
      str = string.gsub (str, " ", "+")
   end
   return str
end

-- Функция для отправки данных в Telegram
local function telegramGET(chatid, text)
    local result, reason = internet.request("https://api.telegram.org/bot" .. botToken .. "/sendMessage?chat_id=" .. chatID .. "&text=" .. urlencode(text))
    local info = ""
    if result then
        for chunk in result do
            info = info .. chunk
        end
        return info
    else
        return "Error: " .. (reason or "unknown error")
    end
end

-- Функция для записи никнеймов в файл
local function saveToFile(filename, text)
    local file, err = io.open(filename, "a")
    if not file then
        print("Error opening file: " .. (err or "unknown error"))
        return
    end
    file:write(text .. "\n")
    file:close()
end

--(установить для своего часового пояса, -12 : +13, например: -2 или 6)
local TIME_ZONE = 3

--(не изменять!)
local t_correction = TIME_ZONE * 3600

function os.dateRL(format)
    if not fs.get("/").isReadOnly() then
        local time = io.open("/tmp/.time", "w")
        time:write()
        time:close()
        os.sleep(0.01)
        local currentTime = fs.lastModified("/tmp/.time") / 1000
        -- Добавляем 3 часа к текущему времени
        currentTime = currentTime + 3 * 3600
        return os.date(format, currentTime)
    else
        local currentTime = os.time()
        -- Добавляем 3 часа к текущему времени
        currentTime = currentTime + 3 * 3600
        return os.date(format, currentTime)
    end
end



-- Основной цикл программы
local name, n
local q = true
local quests = {}
-- Вайтлист
local whiteList = {"cloud", "LeShyj", "entity.Cat.name", "reload", "karnel"}

while q do
  local b = true
  n, _, _, m, _, name = event.pull()
  if n == "motion" then
    for i = 1, #quests do
      if quests[i] == name then
        b = false
        break
      end
    end
    if b then
      table.insert(quests, name)
      print(name)
      -- Проверяем, есть ли посетитель в вайтлисте и отправляем данные на Pastebin, если он не в вайтлисте
      local unauthorized = true
      for i = 1, #whiteList do
        if whiteList[i] == name then
          unauthorized = false
          break
        end
      end
      if unauthorized then
       local alertMessage = "Unauthorized visitor detected: " .. name .. " " .. os.dateRL("%x %X")
    local alert2Message = "All the user details namely, IP Address, Nickname, Identification Number and Residence have been successfully sent [OK];"
    local alertErrorMessage = "Something prevented the data from being sent [ERR];\nSaving a local copy of the file [OK];"
        print(alertMessage)

--gpu.setForeground(0x00FF00)
        --local pasteResponse = pasteToPastebin("Unauthorized visitor detected: " .. name .. " " .. os.dateRL("%x %X"), pastebinKey, userKey)
        --print("Data sent to Pastebin: " .. alert2Message)
--gpu.setForeground(oldfore)


 local telegramSuccess, telegramResponse = pcall(telegramGET, chatID, alertMessage)
        if telegramSuccess then
gpu.setForeground(0x00FF00)
          print("Data sent to Telegram: " .. alert2Message)
        saveToFile("/home/1.txt", name .. " " .. os.dateRL("%x %X"))
gpu.setForeground(oldfore)
print(" ")
      else
gpu.setForeground(0xFF0000)
          print("Error sending to Telegram: " .. alertErrorMessage)
        saveToFile("/home/1.txt", name .. " " .. os.dateRL("%x %X"))
gpu.setForeground(oldfore)
print(" ")
      end
    end
  end
end
  if n == "key_down" then
    if m == 16 then
      q = false
      print("The program has been successfully completed.")
    end
  end
end