Welcome, Guest. Please login or register.

Login with username, password and session length

 
Advanced search

10 891 Posts in 6 266 Topics- by 1 216 Members - Latest Member: santini862

15 July 2020, 16:01
Select Language English | Russian ru | German
Main PageIRC Client KVIrc forumRussian talksОбщие вопросыСканирование прокси
Pages: [1]
Print
Author Topic: Сканирование прокси  (Read 10682 times)
0 Members and 1 Guest are viewing this topic.
Youpiter
Пользователь
**

Репутация: 4
Gender: Male
Posts: 57



View Profile
« on: 12 July 2007, 17:25 »

Здравствуйте.
Часто встречал бота, который сканирует входящего пользователя на наличие прокси, и банит его если прокси обнаружен.
Если я правильно понял, бот проверяет указанные порты входящего (1080, 1081, 3380, 3381, 4706, 25552, 29598).

Код скрипта на тикле.
Code:
namespace eval proxyban {
  variable banport "1080,1081,3380,3381,4706,25552,29598" ;# Most commen port list
  variable bantime "0" ;# Permanent ban.
  variable bantext "Отключите прокси и попробуйте зайти снова!" ;# Ban msg when bot kicks user
  variable warnmsg "Идёт сканирование прокси. Проигнорируйте данное сообщение, если Вы не используете прокси" ;# notify the user.
    proc scan_join {nick host hand chan} {
    variable banport; variable warnmsg
    putserv "NOTICE $nick :$warnmsg"
    set hostname [lindex [split $host \x40] end]
    foreach {x} [split $banport \x2c] {
      if {![catch {socket -async $hostname $x} s]} {
        fileevent $s writable [list [namespace current]::check_sock $s $host $chan]
      }
    }
  }
  proc check_sock {s host chan} {
    variable bantime; variable bantext
    if {[string equal {} [fconfigure $s -error]]} {
      newchanban $chan [maskhost $host] $::botnick $bantext $bantime
    }
    close $s
  }
  bind join - * [namespace current]::scan_join
}
Если это возможно, помогите адаптировать в KVS. Не хочу пользоваться ботом.

Благадарю всех откликнувшихся
Logged
Pages: [1]
Print
Jump to:  

Theme orange-lt created by panic