#port tarayıcı tclm IUC Aralık 2025

# Burda hangi nicke ve hangi kanalda sonuçlar gösterilecek belirtin

 
set nickchan "nick/#chan"

 
# Tarama kanalı hangisi olacak 

 
set scanchan "#kanal"

 
# Hangi portlar taranacak?

# Örnek

# Wingates port is 1080 , Netbus port 12346 , Sub7 Port 1243

 
set port "1080"

 
# Burdan aşağısını düzeltmeye gerek yok

 
bind join - * tara

 
set ver "v1.0"

 
proc tara {nick uhost hand chan} {

global botnick nickchan port scanchan

set scanport [lindex [split $uhost @] 1]

set scanportfound ""

if {([lsearch -exact [string tolower $scanchan] [string tolower $chan]] != -1)} {

catch {socket $scanport $port} sport

if {([string range $sport 0 3] == "sock") && ([lindex $sport 1] == "")} {

close $sport

lappend scanportfound "1"

}

if {$scanportfound == ""} {

set scanportfound "0"

}

if {[string match $scanportfound [string tolower 1]]} {

putserv "PRIVMSG $nickchan :Nick <$nick> Host <$scanport> Port <$port> Chan <$chan>"

return

  }

 }

}

 
putlog "port tarayıcı $ver By  IUC yüklendi"