IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Bot Taraması (https://www.ircforumlari.net/mirc-scripting-sorunlari/592544-bot-taramasi.html)

Castro 30 Mayıs 2014 21:47

Bot Taraması
 
Bazı sunucularda botlar oluyor, onları tespit edebilir miyiz?
Bot dediğim normal user gibi duran botlar.

Lucifer 30 Mayıs 2014 21:48

Cevap: Bot Taraması
 
botlar derken? konuyu açsan daha iyi olur.

Castro 30 Mayıs 2014 21:50

Cevap: Bot Taraması
 
Alıntı:

Lucifer Nickli Üyeden Alıntı (Mesaj 1041442748)
botlar derken? konuyu açsan daha iyi olur.

Normal user gibi giriş çıkış yapan botlar var ya.

IRC-Dancer 30 Mayıs 2014 22:06

Cevap: Bot Taraması
 
Kod:

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# SERViCES CYCLE BOT CREATOR v3.0
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
##### Hoperservtlarin gizlenmesi icin hoperservt-prefix #####
set pwhoperservt "AE37B4D9"
 
set listfile [open scripts/cyclee.txt ]
set nickflist [split [subst -nocommands [read $listfile]] \n]
 
##### Bota baslama komutunu verecek kisinin nickini girin #####
set authorized "SeckiN"
 
##### Services adresini girin. #####
set servicesadr "services.Domain.Com"
 
 
##### Eggdrop - bot icin log tutumu #####
# Eger eggdropinizin olusturdugu botlarin giris cikislarini
# bir kanala yazarak kaydetmesini istiyorsaniz, 0 isaretini 1 yapin.
#
set logit 1
 
##### Eggdropin log kanalini girin. #####
# Bu kanal botlarin giris cikislarinin yazilacagi kanaldir.
# Bu nedenle sadece adminlerin ve eggdropin girebilecegi bir kanal yazin.
#
set logchany "#bot1"
 
################################################
# !!!!! KODLAMA BASLIYOR !!!!! #
# BU SATIRDAN ITIBAREN YAPACAGINIZ DEGISIKLIKLER
# TCL SCRIPTIN BOZULMASINA YOL ACABILIR.
################################################
 
 
proc pwjoin {what what2 what3 what4 what5 what6 what7 what8 what9} {
 global kanal logit logchany
 if {$logit == 1} {
  puthelp "PRIVMSG $logchany :$what Kanala sokuluyor --> $what9"
 }
 putquick "operserv :raw :$what join $what9 "
 utimer $what2 "pwpart $what $what3 $what $what2 $what3 $what4 $what5 $what6 $what7 $what8 $what9"
}
 
proc pwpart {whad whad2 oldu1 oldu2 oldu3 oldu4 oldu5 oldu6 oldu7 oldu8 oldu9} {
 global kanal logit logchany
 if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whad Kanaldan cikartiliyor --> $oldu9" }
 putquick "operserv :raw :$whad part $oldu9 "
 putquick "kill $oldu4 :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
nick $oldu4"
 if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whad Nick degistiriliyor --> $oldu4" }
 utimer $whad2 "pwjoin2 $oldu4 $whad2 $oldu1 $oldu2 $oldu3 $oldu4 $oldu5 $oldu6 $oldu7 $oldu8 $oldu9"
}
 
proc pwjoin2 {whas whas2 oldud1 oldud2 oldud3 oldud4 oldud5 oldud6 oldud7 oldud8 oldud9} {
 global kanal logit logchany
 if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whas Kanala tekrar sokuluyor --> $oldud9" }
 putquick "operserv :raw :$whas join $oldud9 "
 utimer $oldud2 "pwbquit $whas $oldud1 $oldud2 $oldud3 $oldud4 $oldud5 $oldud6 $oldud7 $oldud8 $oldud9"
}
 
proc pwbquit {whaaq oldukha1 oldukha2 oldukha3 oldukha4 oldukha5 oldukha6 oldukha7 oldukha8 oldukha9} {
 global quitmsg kanal logit logchany listfile response botnick nickflist servicesadr pwhoperservt kanal logit logchany authorized
 foreach iii $nickflist {
    if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $iii tmppp botident3 before3 after3 botadi3 wait3 partwait3 joinwait3 yenisi3 quitmes3 cikmadan3 kanallar3]} {
        if { $whaaq == $after3 } {
          if { $cikmadan3 != 0 } {         
            putquick "operserv :raw :$whaaq privmsg $kanallar3 :$cikmadan3"
            if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaaq Konusturuluyor." } 
            utimer 10 "pwquit $whaaq $oldukha1 $oldukha2 $oldukha3 $oldukha4 $oldukha5 $oldukha6 $oldukha7 $oldukha8 $oldukha9"
            return
          }
        }
    }
 }
 if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaaq Konusturulamadi - Konusma modu kapali!" } 
 utimer 10 "pwquit $whaaq $oldukha1 $oldukha2 $oldukha3 $oldukha4 $oldukha5 $oldukha6 $oldukha7 $oldukha8 $oldukha9"
}
 
proc pwquit {whaq olduk1 olduk2 olduk3 olduk4 olduk5 olduk6 olduk7 olduk8 olduk9} {
 global quitmsg kanal logit logchany listfile response botnick nickflist servicesadr pwhoperservt kanal logit logchany authorized
 foreach ii $nickflist {
    if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $ii tmpp botident2 before2 after2 botadi2 wait2 partwait2 joinwait2 yenisi2 quitmes2 cikmadan2 kanallar2]} {
        if { $whaq == $after2 } {
          putquick "operserv :raw :$whaq quit :$quitmes2"
          if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaq Serverdan cikartiliyor" } 
          utimer $olduk6 "olustur $olduk1 $olduk2 $olduk3 $olduk4 $olduk5 $olduk6 $olduk7 $olduk8 $olduk9"
          return
        }
    }
 }
 if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaq SERVERDAN CIKARTILAMADI !" } 
}
 
proc olustur {olsun1 olsun2 olsun3 olsun4 olsun5 olsun6 olsun7 olsun8 olsun9} {
  global servicesadr pwhoperservt kanal logit logchany
  if { $logit == 1 } { puthelp "PRIVMSG $logchany :$olsun1 Yeniden olusturuluyor." }
  puthelp "kill $olsun1 :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
puthelp "operserv :raw nick $olsun1 1 1 $olsun8 A[rand 9][rand 9]E[rand 9]Z[rand 9].$pwhoperservt.[rand 9][rand 9]AE[rand 9][rand 9][rand 9]Z.IP $servicesadr :$olsun5"
  utimer $olsun7 "pwjoin $olsun1 $olsun2 $olsun3 $olsun4 $olsun5 $olsun6 $olsun7 $olsun8 $olsun9"
}
 
 
proc pwornek {nick hoperservt hand {text ""}} {
  global pwhoperservt
}
 
proc pworn {ornekcik} {
  puthelp "NOTICE PowerUseR : $ornekcik snlikti. " 
}
 
proc pwstart {nick hoperservt hand {text ""}} {
  global listfile response botnick nickflist servicesadr pwhoperservt kanal logit logchany authorized
  if {$nick == "$authorized"} {
  puthelp "NOTICE $nick :Olusum basliyor. "
  foreach i $nickflist {
      if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
          puthelp "kill $before :oldbot"
          puthelp "operserv :raw nick $before 1 1 $botident A[rand 9][rand 9]E[rand 9]Z[rand 9].$pwhoperservt.[rand 9][rand 9]AE[rand 9][rand 9][rand 9]Z.IP $servicesadr :$botadi"
          if { $logit == 1 } { puthelp "PRIVMSG $logchany :$before olusturuluyor." }
          utimer $wait "pwjoin $before $partwait $joinwait $after $botadi $yenisi $wait $botident $kanallar"
      }
  }
  }
}
 
proc pwdestroy {nick hoperservt hand {text ""}} {
  global listfile response botnick nickflist servicesadr pwhoperservt kanal logit logchany authorized
  if {$nick == "$authorized"} {
  puthelp "NOTICE $nick :Botlar yok ediliyor. "
  if { $logit == 1 } { puthelp "PRIVMSG $logchany :YOK ETME KOMUTU VERILDI ($authorized)." }
  foreach i $nickflist {
      if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
          puthelp "kill $before :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
puthelp "kill $after :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$before - $after YOK EDiLiYOR." }
      }
  }
  }
}
 
bind msg - baslat pwstart
bind msg - yoket pwdestroy
bind msg - ornek pwornek
 
putlog "================Cycle Bot v3.0================"
putlog "=                                            ="
putlog "= OperServ raw -auto- bot control 2.0        ="
putlog "=
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
irc.ircyeri.com            ="
putlog "=                                            ="
putlog "=============================================="

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Büyük iktimal Cycle Botları diyorsundur.
Arşivde vardı , Kime ait bakmadım.Buyur @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Castro 30 Mayıs 2014 22:10

Cevap: Bot Taraması
 
Alıntı:

IRC-Dancer Nickli Üyeden Alıntı (Mesaj 1041442758)
Kod:

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# SERViCES CYCLE BOT CREATOR v3.0
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
##### Hoperservtlarin gizlenmesi icin hoperservt-prefix #####
set pwhoperservt "AE37B4D9"
 
set listfile [open scripts/cyclee.txt ]
set nickflist [split [subst -nocommands [read $listfile]] \n]
 
##### Bota baslama komutunu verecek kisinin nickini girin #####
set authorized "SeckiN"
 
##### Services adresini girin. #####
set servicesadr "services.Domain.Com"
 
 
##### Eggdrop - bot icin log tutumu #####
# Eger eggdropinizin olusturdugu botlarin giris cikislarini
# bir kanala yazarak kaydetmesini istiyorsaniz, 0 isaretini 1 yapin.
#
set logit 1
 
##### Eggdropin log kanalini girin. #####
# Bu kanal botlarin giris cikislarinin yazilacagi kanaldir.
# Bu nedenle sadece adminlerin ve eggdropin girebilecegi bir kanal yazin.
#
set logchany "#bot1"
 
################################################
# !!!!! KODLAMA BASLIYOR !!!!! #
# BU SATIRDAN ITIBAREN YAPACAGINIZ DEGISIKLIKLER
# TCL SCRIPTIN BOZULMASINA YOL ACABILIR.
################################################
 
 
proc pwjoin {what what2 what3 what4 what5 what6 what7 what8 what9} {
 global kanal logit logchany
 if {$logit == 1} {
  puthelp "PRIVMSG $logchany :$what Kanala sokuluyor --> $what9"
 }
 putquick "operserv :raw :$what join $what9 "
 utimer $what2 "pwpart $what $what3 $what $what2 $what3 $what4 $what5 $what6 $what7 $what8 $what9"
}
 
proc pwpart {whad whad2 oldu1 oldu2 oldu3 oldu4 oldu5 oldu6 oldu7 oldu8 oldu9} {
 global kanal logit logchany
 if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whad Kanaldan cikartiliyor --> $oldu9" }
 putquick "operserv :raw :$whad part $oldu9 "
 putquick "kill $oldu4 :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
nick $oldu4"
 if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whad Nick degistiriliyor --> $oldu4" }
 utimer $whad2 "pwjoin2 $oldu4 $whad2 $oldu1 $oldu2 $oldu3 $oldu4 $oldu5 $oldu6 $oldu7 $oldu8 $oldu9"
}
 
proc pwjoin2 {whas whas2 oldud1 oldud2 oldud3 oldud4 oldud5 oldud6 oldud7 oldud8 oldud9} {
 global kanal logit logchany
 if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whas Kanala tekrar sokuluyor --> $oldud9" }
 putquick "operserv :raw :$whas join $oldud9 "
 utimer $oldud2 "pwbquit $whas $oldud1 $oldud2 $oldud3 $oldud4 $oldud5 $oldud6 $oldud7 $oldud8 $oldud9"
}
 
proc pwbquit {whaaq oldukha1 oldukha2 oldukha3 oldukha4 oldukha5 oldukha6 oldukha7 oldukha8 oldukha9} {
 global quitmsg kanal logit logchany listfile response botnick nickflist servicesadr pwhoperservt kanal logit logchany authorized
 foreach iii $nickflist {
    if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $iii tmppp botident3 before3 after3 botadi3 wait3 partwait3 joinwait3 yenisi3 quitmes3 cikmadan3 kanallar3]} {
        if { $whaaq == $after3 } {
          if { $cikmadan3 != 0 } {         
            putquick "operserv :raw :$whaaq privmsg $kanallar3 :$cikmadan3"
            if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaaq Konusturuluyor." } 
            utimer 10 "pwquit $whaaq $oldukha1 $oldukha2 $oldukha3 $oldukha4 $oldukha5 $oldukha6 $oldukha7 $oldukha8 $oldukha9"
            return
          }
        }
    }
 }
 if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaaq Konusturulamadi - Konusma modu kapali!" } 
 utimer 10 "pwquit $whaaq $oldukha1 $oldukha2 $oldukha3 $oldukha4 $oldukha5 $oldukha6 $oldukha7 $oldukha8 $oldukha9"
}
 
proc pwquit {whaq olduk1 olduk2 olduk3 olduk4 olduk5 olduk6 olduk7 olduk8 olduk9} {
 global quitmsg kanal logit logchany listfile response botnick nickflist servicesadr pwhoperservt kanal logit logchany authorized
 foreach ii $nickflist {
    if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $ii tmpp botident2 before2 after2 botadi2 wait2 partwait2 joinwait2 yenisi2 quitmes2 cikmadan2 kanallar2]} {
        if { $whaq == $after2 } {
          putquick "operserv :raw :$whaq quit :$quitmes2"
          if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaq Serverdan cikartiliyor" } 
          utimer $olduk6 "olustur $olduk1 $olduk2 $olduk3 $olduk4 $olduk5 $olduk6 $olduk7 $olduk8 $olduk9"
          return
        }
    }
 }
 if { $logit == 1 } { puthelp "PRIVMSG $logchany :$whaq SERVERDAN CIKARTILAMADI !" } 
}
 
proc olustur {olsun1 olsun2 olsun3 olsun4 olsun5 olsun6 olsun7 olsun8 olsun9} {
  global servicesadr pwhoperservt kanal logit logchany
  if { $logit == 1 } { puthelp "PRIVMSG $logchany :$olsun1 Yeniden olusturuluyor." }
  puthelp "kill $olsun1 :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
puthelp "operserv :raw nick $olsun1 1 1 $olsun8 A[rand 9][rand 9]E[rand 9]Z[rand 9].$pwhoperservt.[rand 9][rand 9]AE[rand 9][rand 9][rand 9]Z.IP $servicesadr :$olsun5"
  utimer $olsun7 "pwjoin $olsun1 $olsun2 $olsun3 $olsun4 $olsun5 $olsun6 $olsun7 $olsun8 $olsun9"
}
 
 
proc pwornek {nick hoperservt hand {text ""}} {
  global pwhoperservt
}
 
proc pworn {ornekcik} {
  puthelp "NOTICE PowerUseR : $ornekcik snlikti. " 
}
 
proc pwstart {nick hoperservt hand {text ""}} {
  global listfile response botnick nickflist servicesadr pwhoperservt kanal logit logchany authorized
  if {$nick == "$authorized"} {
  puthelp "NOTICE $nick :Olusum basliyor. "
  foreach i $nickflist {
      if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
          puthelp "kill $before :oldbot"
          puthelp "operserv :raw nick $before 1 1 $botident A[rand 9][rand 9]E[rand 9]Z[rand 9].$pwhoperservt.[rand 9][rand 9]AE[rand 9][rand 9][rand 9]Z.IP $servicesadr :$botadi"
          if { $logit == 1 } { puthelp "PRIVMSG $logchany :$before olusturuluyor." }
          utimer $wait "pwjoin $before $partwait $joinwait $after $botadi $yenisi $wait $botident $kanallar"
      }
  }
  }
}
 
proc pwdestroy {nick hoperservt hand {text ""}} {
  global listfile response botnick nickflist servicesadr pwhoperservt kanal logit logchany authorized
  if {$nick == "$authorized"} {
  puthelp "NOTICE $nick :Botlar yok ediliyor. "
  if { $logit == 1 } { puthelp "PRIVMSG $logchany :YOK ETME KOMUTU VERILDI ($authorized)." }
  foreach i $nickflist {
      if {[regexp {(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)::(.+)} $i tmp botident before after botadi wait partwait joinwait yenisi quitmes cikmadan kanallar]} {
          puthelp "kill $before :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
puthelp "kill $after :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if { $logit == 1 } { puthelp "PRIVMSG $logchany :$before - $after YOK EDiLiYOR." }
      }
  }
  }
}
 
bind msg - baslat pwstart
bind msg - yoket pwdestroy
bind msg - ornek pwornek
 
putlog "================Cycle Bot v3.0================"
putlog "=                                            ="
putlog "= OperServ raw -auto- bot control 2.0        ="
putlog "=
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
irc.ircyeri.com            ="
putlog "=                                            ="
putlog "=============================================="

PHP- Kodu:

cd Unreal3.2

cd src

cd modules

pico m_nick
.

Büyük iktimal Cycle Botları diyorsundur.
Arşivde vardı , Kime ait bakmadım.Buyur @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

İyi de bu bot oluşturuyor, ben bu botların tespitini istiyorum.

IRC-Dancer 30 Mayıs 2014 22:19

Cevap: Bot Taraması
 
Tamam kızma abi , senin sorundan anca bunu çıkarta bildim :)
UnreaL bölümüne bak , olmadı ordaki Mod'ları tapla yardımcı olsunlar ; Unreal'den anlamam :)

Castro 30 Mayıs 2014 22:29

Cevap: Bot Taraması
 
Alıntı:

IRC-Dancer Nickli Üyeden Alıntı (Mesaj 1041442764)
Tamam kızma abi , senin sorundan anca bunu çıkarta bildim :)
UnreaL bölümüne bak , olmadı ordaki Mod'ları tapla yardımcı olsunlar ; Unreal'den anlamam :)

Ben mirc için istiyorum, unreal değil ki.

IRC-Dancer 30 Mayıs 2014 22:39

Cevap: Bot Taraması
 
Bak şuarada anlaşamıyoruz ; senin sorduğun terime 1'den fazla uyacak örnekler mevcud ;
Aradığını tam olarak belirtmessen , ben veya bi başka arkadaşlar bu sorunu yaşar.
Cycle botlarının tespitinimi istiyorsun , proxylerin tespitinimi , yoksa bot olan herşeyin tespitinimi tam anlamadım ki.

Castro 30 Mayıs 2014 23:02

Cevap: Bot Taraması
 
Alıntı:

IRC-Dancer Nickli Üyeden Alıntı (Mesaj 1041442779)
Bak şuarada anlaşamıyoruz ; senin sorduğun terime 1'den fazla uyacak örnekler mevcud ;
Aradığını tam olarak belirtmessen , ben veya bi başka arkadaşlar bu sorunu yaşar.
Cycle botlarının tespitinimi istiyorsun , proxylerin tespitinimi , yoksa bot olan herşeyin tespitinimi tam anlamadım ki.

bot olan her şey. cycle de dahil

ZenqerDenq 31 Mayıs 2014 20:40

Cevap: Bot Taraması
 
adam sohbet edecek yaw botsa boşuna gitmiyim diyor özeline sen unreal diyon :D


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 18:34.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk