myDC.ru

Здравствуйте, гость ( Вход | Регистрация )

 
 
Ответить в данную темуНачать новую тему

> Флуд в ПМ за спам, Флуд в ПМ за спам

Теги
Нет тегов для показа
Wan
сообщение 13.4.2012, 10:18
Сообщение #1


Активный участник
***

Группа: Пользователи
Сообщений: 53
Регистрация: 11.6.2009
Из: Чита
Пользователь №: 3 559
Спасибо сказали: 1 раз




Здравствуйте! Перерыл весь форум ну что не нашел ищу скрипт детектора личек на спам, хотел найти скрипт который за спам зафлуживал пользователя, подскажите есть ли такой?
Go to the top of the page
+Quote Post
Артём
сообщение 13.4.2012, 10:50
Сообщение #2


Наруто на аваторке
***********

Группа: Пользователи
Сообщений: 2 605
Регистрация: 11.10.2008
Из: Харькова
Пользователь №: 771
Спасибо сказали: 765 раз




Wan, есть такой.
Прикрепленный файл  AntiRek_aka_Flood.lua ( 5.41 килобайт ) Кол-во скачиваний: 47
Go to the top of the page
+Quote Post
Wan
сообщение 13.4.2012, 21:16
Сообщение #3


Активный участник
***

Группа: Пользователи
Сообщений: 53
Регистрация: 11.6.2009
Из: Чита
Пользователь №: 3 559
Спасибо сказали: 1 раз




Спасибо большое за скрипт, только он ошибку выдаёт
Код
Синтаксис C:\Server DC\scripts\AntiRek_aka_Flood.lua:64: bad argument #1 to 'open' (string expected, got nil)
[04:14] Критическая ошибка в скрипте AntiRek_aka_Flood.lua ! Скрипт остановлен!
Go to the top of the page
+Quote Post
Saymon21
сообщение 13.4.2012, 21:21
Сообщение #4


Site Reliability Engineer
*********

Группа: Модераторы
Сообщений: 1 772
Регистрация: 27.6.2009
Из: Чувашия, г. Чебоксары
Пользователь №: 3 719
Спасибо сказали: 479 раз




http://mydc.ru/topic3431.html
Go to the top of the page
+Quote Post
Wan
сообщение 13.4.2012, 21:24
Сообщение #5


Активный участник
***

Группа: Пользователи
Сообщений: 53
Регистрация: 11.6.2009
Из: Чита
Пользователь №: 3 559
Спасибо сказали: 1 раз




скрипт очень хорош но слишком много функций
желательно одно зафлуживание
Go to the top of the page
+Quote Post
Saymon21
сообщение 13.4.2012, 21:33
Сообщение #6


Site Reliability Engineer
*********

Группа: Модераторы
Сообщений: 1 772
Регистрация: 27.6.2009
Из: Чувашия, г. Чебоксары
Пользователь №: 3 719
Спасибо сказали: 479 раз




В том, что выложил Артём, проверь есть ли файл в пути: /scripts/syslogs/securitydbg.txt
Go to the top of the page
+Quote Post
Wan
сообщение 13.4.2012, 21:46
Сообщение #7


Активный участник
***

Группа: Пользователи
Сообщений: 53
Регистрация: 11.6.2009
Из: Чита
Пользователь №: 3 559
Спасибо сказали: 1 раз




нет нету
Go to the top of the page
+Quote Post
Saymon21
сообщение 13.4.2012, 21:49
Сообщение #8


Site Reliability Engineer
*********

Группа: Модераторы
Сообщений: 1 772
Регистрация: 27.6.2009
Из: Чувашия, г. Чебоксары
Пользователь №: 3 719
Спасибо сказали: 479 раз




Создай!
Go to the top of the page
+Quote Post
Wan
сообщение 13.4.2012, 21:52
Сообщение #9


Активный участник
***

Группа: Пользователи
Сообщений: 53
Регистрация: 11.6.2009
Из: Чита
Пользователь №: 3 559
Спасибо сказали: 1 раз




создал папку syslogs, также 2 текстовика securitydbg.txt и adminlogs.txt
также вылетает ошибка
Код
[04:52] Синтаксис C:\Server DC\scripts\AntiRek_aka_Flood.lua:36: bad argument #1 to 'open' (string expected, got nil)
[04:52] Синтаксис C:\Server DC\scripts\AntiRek_aka_Flood.lua:64: bad argument #1 to 'open' (string expected, got nil)
[04:52] Критическая ошибка в скрипте AntiRek_aka_Flood.lua ! Скрипт остановлен!
Go to the top of the page
+Quote Post
Артём
сообщение 13.4.2012, 22:16
Сообщение #10


Наруто на аваторке
***********

Группа: Пользователи
Сообщений: 2 605
Регистрация: 11.10.2008
Из: Харькова
Пользователь №: 771
Спасибо сказали: 765 раз




Wan
Пробуй это
Код
--антиреклама (в качестве наказания за спам используется флуд в лс спамящему по принцепу одно спам сообщение=100 сообщений с флудом)

--автор : [Страйгалдвир]
-- * Конфигурация скрипта

BotName =  "BOT"     -- имя бота
BotReg = 0 -- регистрировать бота на хабе? (1=да/0=нет)

BanMode =3 -- Какой тип наказания использовать? (0=перманент/1=Default temp ban time хаба/2 = сами выбираете время бана 3 = не пускать в чат, флудит спамеру ЛС)
BanTime = 20 -- Время бана в минутах для BanMode = 2
BanReason = "Реклама в чате (привате)" -- Причина наказания

-- Таблица шаблонов запрещенных адресов
adverTable = {
".org",".net","ru.","d}c}h}u}b://","dchub","d c h u b://","dchub://","%.%s*[oO]%s*[rR]%s*[gG]",
}
-- Таблица шаблонов разрешенных адресов
safeTable = {
"1-new.no-ip.org","dchub://1-new.no-ip.org:411","dchub://1-new.no-ip.org","uniongang.ru",
}

-- Что получит юзер в случае, если пустит запрещенную рекламу?
text = "\r\n\t\tПредупреждение:\r\n •Вы нарушаете правила,не стоит этого делать :) \r\n  рекламные сообщения видят только админы...не испытывайте их терпение"
-- Что получит оператор хаба?
text_to_op = " Злостный спамер пытался сказать в чате:"
text_to_op_pm = " Злостный спамер пытался сказать в привате:"




math.randomseed (os.time ())    -- функция для лучшего перемешивания ников в таблице

-- Конец конфигуратора

function OnStartup()
    if BotReg == 1 then
    Core.RegBot(BotName,"Детектор рекламы хабов" ,"",true);
    end
end
-----------------------------------------------
function ChatArrival(user,data)
    local s,e,msg = string.find(data,"%b<>%s*(.*)%|")
local msg = string.lower(msg)

    if not Core.GetUserValue(user,11) then
        if checkForAdvertising(string.lower(msg)) then
            if checkForSafe(string.lower(msg)) then
                return nil
            end
for i = 1, 1000 do
                Core.SendPmToUser(user, tostring(math.random(1,100000)), "*** "..text)  
            end

            Core.SendPmToOps(SetMan.GetString(24), "*** "..user.sNick.." ("..user.sIP..") "..text_to_op.." "..msg)
                        if BanMode == 0 then
                          BanMan.Ban(user,BanReason,BotName,true)
                        end
                        if BanMode == 1 then
                          BanMan.TempBan(user,0,BanReason,BotName,true)
                        end
                        if BanMode == 2 then
                          BanMan.TempBan(user,BanTime,BanReason,BotName,true)
                        end
                        if BanMode == 3 then
                          return true
                        end
                end
    end
end
-----------------------------------------------
function ToArrival(user,data)
    local s,e,msg = string.find(data,"%b<>%s*(.*)%|")
local msg = string.lower(msg)

    if not Core.GetUserValue(user,11) then
        if checkForAdvertising(string.lower(msg)) then
            if checkForSafe(string.lower(msg)) then
                return nil
            end
for i = 1, 1000 do         -- кол-во сообщений спамеру в ЛС
                Core.SendPmToUser(user, tostring(math.random(1,100000)), "*** "..text)
            end

            Core.SendPmToOps(SetMan.GetString(24), "*** "..user.sNick.." ("..user.sIP..") "..text_to_op_pm.." "..msg)
                        if BanMode == 0 then
                          BanMan.Ban(user,BanReason,BotName,true)
                        end
                        if BanMode == 1 then
                          BanMan.TempBan(user,0,BanReason,BotName,true)
                        end
                        if BanMode == 2 then
                          BanMan.TempBan(user,BanTime,BanReason,BotName,true)
                        end
                        if BanMode == 3 then
                          return true
                        end
                end
    end
end
-----------------------------------------------
function checkForAdvertising(msg) -- проверка на запрещенные адреса
    for i = 1,#adverTable do
        if string.find( msg , adverTable[i] , 1 , true ) then
            return 1
        end
    end
end
-----------------------------------------------
function checkForSafe(msg) -- проверка на разрешенные адреса
    for i = 1,#safeTable do
        if string.find( msg , safeTable[i] , 1 , true ) then
            return 1
        end
    end
end


Спасибо сказали:
Go to the top of the page
+Quote Post
Wan
сообщение 13.4.2012, 22:32
Сообщение #11


Активный участник
***

Группа: Пользователи
Сообщений: 53
Регистрация: 11.6.2009
Из: Чита
Пользователь №: 3 559
Спасибо сказали: 1 раз




Спасибо пошло
Go to the top of the page
+Quote Post

Ответить в данную темуНачать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

Collapse

> Похожие темы

  Тема Ответов Автор Просмотров Последнее сообщение
No New Posts *** Поиск-спам
3 ProGeTTo 4 851 14.2.2011, 15:50 Посл. сообщение: Ksan
No New Posts Topic has attachmentsАнти-спам, помогите найти.
6 forZejkee 5 265 23.6.2010, 11:31 Посл. сообщение: forZejkee
Closed спам в пм за малую шару
помогите найти такой скрипт
1 baralgin 2 661 2.6.2010, 14:47 Посл. сообщение: Змий
No New Posts Topic has attachmentsАнти Спам Pm
9 voronf4 5 837 30.5.2010, 16:48 Посл. сообщение: Ksan
No New Posts Как зашитится от спам бота
помогите спамят
5 KamoK 5 405 7.11.2009, 21:09 Посл. сообщение: Яdmin
Closed Бан за флуд
1 TolikCorp 2 549 6.5.2009, 9:32 Посл. сообщение: Wariner
No New Posts Myinfo Флуд
Объясните ПЛЗ
1 _LorD_ 4 315 29.1.2009, 20:02 Посл. сообщение: BIMMER71
No New Posts Topic has attachmentsЧто За Загадочный Спам?
5 dimetrius 5 777 22.10.2008, 21:43 Посл. сообщение: Setuper

 



RSS Сейчас: 25.6.2018, 20:21