alias bilgi {
  if !$1- {
    echo -a 2Lütfen botun bilgilerini girin.
    echo -a 2Örnek: 10/bilgi serverip serverport botnick botnicksifre botoper botopersifre botlogkanal
  }
  else {
    set  %serverip $1 | set %serverport $2 | set %botnick $3 | set %botnicksifre $4 | set %botopernick $5 | set %botopersifre $6 | set %botlogkanal $7
    echo -a 2Botun bilgileri girildi.
    echo -a 2Botu sunucuya sokmak için : 10/bot12 yazınız
  }
}
on *:sockopen:bot1:{
  if ($sockerr) { echo $color(info) -st Bağlantı kesildi.Lütfen Scripti Kapatıp Tekrar Açın. | return }
  swbot1 NICK %botnick
  swbot1 USER FAT * * :Bilinen en tehlikeli proxy katili ¦:)
}
on *:sockread:bot1:{
  if ($sockerr) { echo $color(info) -st Bağlantı kesildi.Lütfen Scripti Kapatıp Tekrar Açın. | return }
  var %:; | sockread %:; | tokenize 32 %:;
  if !$window(@Bot1) { window -ne @Bot1 %:; }
  echo @Bot1 %:;
  swalias1 $1-
}
alias swbot1 { if $sock(bot1) { sockwrite -n bot1 $1- } }
alias swalias1 {
  if $sock(bot1) {
    var %: = echo $color(info) -st > Socket bot:
    if *:
VERSION
* iswm $4- { swbot1 NOTICE  $bnick($1) VERSION mIRC v6.21 Khaled Mardam-Bey }
    if $1 == PING { swbot1 PONG $2- }
    if $2 == NOTICE && $3 == %botnick && *Bu kayitli ve sifre korumali bir nick* iswm $4- {
      swbot1 JOIN 0,
      swbot1 PRIVMSG nickserv identify %botnicksifre
      swbot1 oper %botopernick %botopersifre
      swbot1 JOIN 0,
      swbot1 JOIN %botlogkanal
      swbot1 PRIVMSG %botlogkanal Krouma botu aktif.
    }
    if $3 == %botlogkanal && $4 == :.guncelle {
      if $5 == oto {
        swbot1 PRIVMSG $3 Otomatik güncelleme sistemi 1800ms. olarak ayarlandı.
        guncelle oto
      }
      else {
        swbot1 PRIVMSG $3 Güncelleme başlatıldı. Tahmini süre 1800ms.
        guncelle
      }
    }
    if $2 == 352 {
      tor_ $6
      madgir $6
    }
    if *Client connecting* iswm $7- {
      inc %mad
      if $read(tor.txt,w,$remove($gettok($13,2,64),$chr(41))) {
        swbot1 gline *@ $+ $remove($gettok($13,2,64),$chr(41)) +1d 2Proxy yasaktır.
      }
      else {
        swbot1 who +I $12
      }
      var %ipcik = $remove($gettok($13,2,64),$chr(41))
      hinc -mu2 pp %ipcik 1
      if ($hget(pp,%ipcik) >= 3) {
        swbot1 gzline $+(*@,%ipcik) +15m 2Kurallara aykırı davranış yüzünden banlandınız.
        if $gettok(%ipcik,1,45) == adsl || $gettok(%ipcik,1,45) == dslb {
          write tor.txt $replace($gettok(%ipcik,2-4,45),-,.)
          .halt
        }
        if !$read(tor.txt,w,$remove($gettok($13,2,64),$chr(41))) {
          write tor.txt $remove($gettok($13,2,64),$chr(41))
          swbot1 PRIVMSG %botlogkanal $remove($gettok($13,2,64),$chr(41)) karalisteme eklendi.
        }
      }
    }
  }
}
alias bot1 {
  if !$sock(bot1) {
    sockopen bot1 %serverip %serverport
  } 
}
alias bnick return  $gettok($remove($1,:),1,33)
#------- on
on *:Sockopen:proxy2:{ 
  sockwrite -n $sockname GET [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] HTTP/1.1 
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)   
  sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $crlf  
  sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}
on *:Sockread:proxy2:{
  var %proxy2
  sockread %proxy2
  .tokenize 32 %proxy2
  if !$read(tor.txt,w,%proxy2) && $1 != HTTP/1.1 && $1 != Date: && $1 != Server: && $1 != X-Powered-By: && $1 != Location: && $1 != Content-Length: && $1 != Keep-Alive: && $1 != Connection: && $1 != Content-Type: {
    write tor.txt %proxy2
  }
}
on *:Sockopen:proxy3:{ 
  sockwrite -n $sockname GET [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] HTTP/1.1 
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)   
  sockwrite -n $sockname Host: proxy.org $crlf  
  sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}
on *:Sockread:proxy3:{
  var %proxy
  sockread %proxy
  .tokenize 32 %proxy
  if *^* iswm $1- && $+(*,$chr(36),*) iswm $1- && *\* iswm $1-  {
    if !$read(tor.txt,w,$remove($3,^,\,$)) {
      write tor.txt $remove($3,^,\,$)
    }
  }
}
on *:Sockopen:proxy4:{ 
  sockwrite -n $sockname GET [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]  HTTP/1.1 
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)   
  sockwrite -n $sockname Host: multiproxy.org $crlf  
  sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}
on *:Sockread:proxy4:{
  var %proxy
  sockread %proxy
  .tokenize 32 %proxy
  if *:* iswm $1- && *.* iswm $1- {
    if !$read(tor.txt,w,$gettok($1,1,58)) {
      write tor.txt $gettok($1,1,58)
    }
  }
}
on *:Sockopen:proxy5:{ 
  sockwrite -n $sockname GET /proxylist.txt  HTTP/1.1 
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)   
  sockwrite -n $sockname Host: tubeincreaser.com $crlf  
  sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}
on *:Sockread:proxy5:{
  var %proxy5
  sockread %proxy5
  .tokenize 32 %proxy5
  if *:* iswm $1- && *.* iswm $1-  && *Server* !iswm $1- {
    if !$read(tor.txt,w,$gettok($1,1,58)) {
      write tor.txt $gettok($1,1,58)
    }
  }
}
on *:Sockopen:proxy6:{ 
  sockwrite -n $sockname GET /tor.shtml HTTP/1.1 
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)   
  sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $crlf  
  sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}
on *:Sockread:proxy6:{
  var %proxy6
  sockread %proxy6
  .tokenize 32 %proxy6
  if $1 == HTTP/1.1 { goto end }
  if $1 == Date: { goto end  }
  if $1 == Server: { goto end }
  if $1 == Last-Modified: { goto end }
  if $1 == ETag: { goto end }
  if $1 == Accept-Ranges: { goto end }
  if $1 == Content-Length: { goto end }
  if $1 == Content-Type: { goto end }
  if *-* iswm $1- { goto end }
  if *Connection* iswm $1- { goto end }
  if */* iswm $1- { goto end }
  if $1 == 0 { goto end }
  if $regex($1-,[a-z]) { goto end }
  if $read(tor.txt,w,$gettok($remove($1,$chr(42)),1,58)) { goto end }
  else {
    write tor.txt $gettok($remove($1,$chr(42)),1,58)
  }
  :end
}
on *:Sockopen:proxy7:{ 
  sockwrite -n $sockname GET /socks4.txt HTTP/1.1 
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)   
  sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $crlf  
  sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}
on *:Sockopen:tor:{
  sockwrite -n $sockname GET /?list=tor HTTP/1.1
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)   
  sockwrite -n $sockname Host: list.iblocklist.com $crlf  
  sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}
on *:Sockread:tor:{
  var %'
  sockread %'
  if *The Onion Router:* iswm %' {
    if !$read(tor.txt,w,$gettok(%',2,45)) {
      write tor.txt $gettok(%',2,45)
    }
  }
}
on *:Sockread:proxy7:{
  var %proxy7
  sockread %proxy7
  .tokenize 32 %proxy7
  if *:* iswm $1- && *.* iswm $1- && !$read(tor.txt,w,$gettok($1,1,58)) && $gettok($1,1,58) != proxy.cjb.net   {
    write tor.txt $gettok($1,1,58)
  }
}
on *:Sockopen:proxy8:{ 
  sockwrite -n $sockname GET /socks5.txt HTTP/1.1 
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)   
  sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $crlf  
  sockwrite -n $sockname Connection: Keep-Alive $+ $crlf $+ $crlf
}
on *:Sockread:proxy8:{
  var %proxy8
  sockread %proxy8
  .tokenize 32 %proxy8
  if *:* iswm $1- && *.* iswm $1- && !$read(tor.txt,w,$gettok($1,1,58)) && $gettok($1,1,58) != proxy.cjb.net   {
    write tor.txt $gettok($1,1,58)
  }
}
alias proxy8 { sockopen proxy8 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 }
alias proxy7 { sockopen proxy7 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 }
alias proxy6 { sockopen proxy6 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 }
alias proxy5 { sockopen proxy5 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 }
alias proxy4 { sockopen proxy4 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 }
alias proxy3 { sockopen proxy3 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 }
alias proxy2 { sockopen proxy2 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 }
alias guncelle {
  if $1 == oto {
    timer 0 1800 guncelle
  }
  else {
    sockopen tor list.iblocklist.com 80
  }
}
on *:sockclose:proxy8:{
  swbot1 PRIVMSG %botlogkanal 10 8.Proxy listesinin2 güncellemesi yapıldı.
  pbn
}
on *:sockclose:proxy7:{ swbot1 PRIVMSG %botlogkanal 10 7.Proxy listesinin2 güncellemesi yapıldı. | proxy8 }
on *:sockclose:proxy6:{ swbot1 PRIVMSG %botlogkanal 10 6.Proxy listesinin2 güncellemesi yapıldı. | proxy7 }
on *:sockclose:proxy5:{ swbot1 PRIVMSG %botlogkanal 10 5.Proxy listesinin2 güncellemesi yapıldı. | proxy6 }
on *:sockclose:proxy4:{ swbot1 PRIVMSG %botlogkanal 10 4.Proxy listesinin2 güncellemesi yapıldı. | proxy5 }
on *:sockclose:proxy3:{ swbot1 PRIVMSG %botlogkanal 10 3.Proxy listesinin2 güncellemesi yapıldı. | proxy4 }
on *:sockclose:proxy2:{ swbot1 PRIVMSG %botlogkanal 10 2.Proxy listesinin2 güncellemesi yapıldı. | proxy3 }
on *:sockclose:tor:{ swbot1 PRIVMSG %botlogkanal 10 1.TOR/Proxy listesinin2 güncellemesi yapıldı. | proxy2  }
#------- end
alias tor_ { if ($1) { inc %tor | sockopen $+(tor-*,%tor) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | sockmark $+(tor-*,%tor) $1 } }
on *:sockopen:tor-*:{
  var %s sockwrite -n $sockname
  %s GET /tor.php?ip= $+ $sock($sockname).mark HTTP/1.1
  %s host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  %s $crlf
}
on *:sockread:tor-*:{
  var %> [ $+ [ $sockname ] ]
  sockread %> [ $+ [ $sockname ] ]
  $+(.timer,%mad,$md5($rand($rand(A,Z),$rand(A,Z)))) 1 60 sockclose $sockname
  if (*IP is LISTED* iswm %> [ $+ [ $sockname ] ]) { 
    swbot1 gzline $+(*@,$sock($sockname).mark) 2h Proxy/TOR/Wingate/SC5 Alert.
    sockclose $sockname
  }
}
on *:sockopen:hppn:{
  var %s sockwrite -n $sockname
  if %sira == 0 { %s GET /proxy/socks.htm HTTP/1.1 }
  if %sira == 1 { %s GET /proxy/socks2.htm HTTP/1.1 }
  if %sira == 2 { %s GET /proxy/socks3.htm HTTP/1.1 }
  if %sira == 3 { %s GET /proxy/socks4.htm HTTP/1.1 }
  if %sira == 4 { %s GET /proxy/socks5.htm HTTP/1.1 }
  if %sira == 5 { %s GET /proxy/socks6.htm HTTP/1.1 }
  if %sira == 6 { %s GET /proxy/socks7.htm HTTP/1.1 }
  if %sira == 7 { %s GET /proxy/socks8.htm HTTP/1.1 }
  if %sira == 8 { %s GET /proxy/socks9.htm HTTP/1.1 }
  if %sira == 9 { %s GET /proxy/socks10.htm HTTP/1.1 }
  if %sira == 10 { %s GET /proxy/socks11.htm HTTP/1.1 }
  if %sira == 11 { %s GET /proxy/socks12.htm HTTP/1.1 }
  if %sira == 12 { %s GET /proxy/socks13.htm HTTP/1.1 }
  if %sira == 13 { %s GET /proxy/socks14.htm HTTP/1.1 }
  if %sira == 14 { %s GET /proxy/socks15.htm HTTP/1.1 }
  if %sira == 15 { %s GET /proxy/socks16.htm HTTP/1.1 }
  if %sira == 16 { %s GET /proxy/socks17.htm HTTP/1.1 }
  if %sira == 17 { %s GET /proxy/socks18.htm HTTP/1.1 }
  if %sira == 18 { %s GET /proxy/socks19.htm HTTP/1.1 }
  if %sira == 19 { %s GET /proxy/socks20.htm HTTP/1.1 }
  %s Host: samair.ru $+ $crlf $+ $crlf
}
/* 
;h4pp3n yazdığı kod satırıdır. Sadece ekleme ve düzenleme yapılmıştır
*/
on *:sockread:hppn:{
  sockread %hppn
  if $gettok($gettok(%hppn,1,32),2,58) == 1080 {
    var %hp $gettok(%hppn,1,58)
    if !$read(tor.txt,w,%hp) {
      write tor.txt %hp
    }
  }
}
on *:sockclose:hppn:{
  if %sira == 20 { 
    swbot1 PRIVMSG %botlogkanal 2Hızlandırılmış proxy listesi çekildi. Toplam $lines(tor.txt) kadar IP mevcut.
  } 
  else { 
    inc %sira
    sockclose hppn*
    sockopen hppn samair.ru 80 
  }
}
alias pbn {
  sockclose hppn 
  sockopen hppn samair.ru 80 
  set %sira 0
  set %prox 0
}
 
 
alias madgir {
  if ($1) {
    inc %x1
    sockopen $+(mor*,%x1) rbls.org 80
    sockmark $+(mor*,%x1) $1
  }
}
on *:sockopen:mor*:{
  var %m sockwrite -n $sockname
  %m GET / $+ $sock($sockname).mark HTTP/1.1
  %m Host: rbls.org
  %m $crlf
}
on *:sockread:mor*:{
var %x [ $+ [ $sockname ] ]
sockread %x [ $+ [ $sockname ] ]
$+(.timer,%mad,$md5($rand($rand(A,Z),$rand(A,Z)))) 1 60 sockclose $sockname
if *is listed in opm.tornevall.org* iswm %x [ $+ [ $sockname ] ] || *is listed in rbl.efnetrbl.org* iswm %x [ $+ [ $sockname ] ] || *is listed in tor.dan.me.uk* iswm %x [ $+ [ $sockname ] ]  {
swbot1 gline $+(*@,$sock($sockname).mark) 2h Proxy/TOR/Wingate/SC5 Alert.
if !$read(tor.txt,w,$sock($sockname).mark) { write tor.txt $sock($sockname).mark }
}
}