- Katılım
- 4 Şub 2020
- Mesajlar
- 395
- Tepkime puanı
- 144
- Puanları
- 43
- Konum
- ircland
- Web sitesi
- www.ircalem.net
Merhaba, iyi akşamlar..
Normalde kendim kuruyordum istiyenlere vaktim olmayınca geleni geri çevirmek zorunda kalıyorum burada paylaşayımda işine yarayan kullansın..
PHP Dosyaları Download Link :
Yapılması gereken sadece botun kurulu olduğu pc'de 1991 port açmak ve kontrol.php 'ye ip adresini yazmak..
Sunucuda sendraw modülü kurulu olması gerek..
Not: Paylaşmamdaki amaç ortaya birseyler katmanız kurcalarsanız bir çok şey yapabilirsiniz..
mIRC eklenecek Socks bot;
Normalde kendim kuruyordum istiyenlere vaktim olmayınca geleni geri çevirmek zorunda kalıyorum burada paylaşayımda işine yarayan kullansın..
PHP Dosyaları Download Link :
İçeriği görüntülemek için Giriş yapın veya Kayıt olun.
Yapılması gereken sadece botun kurulu olduğu pc'de 1991 port açmak ve kontrol.php 'ye ip adresini yazmak..
Sunucuda sendraw modülü kurulu olması gerek..
Not: Paylaşmamdaki amaç ortaya birseyler katmanız kurcalarsanız bir çok şey yapabilirsiniz..
mIRC eklenecek Socks bot;
Kod:
;----- Ayar Kısmı -----
alias _nbot return WEB-KAYIT
alias _pass return şifre
alias _oper return opernick operpass
alias _supass return sohbetlove
alias _sunucu return irc.SohbetLove.Com
alias _sunucuip return 178.33.135.19
alias _port return 6667
alias _services return #Services
;----- (The End) -----
alias _nick return $remove($gettok($1,1,33),:)
alias swnbot $iif($sock(nbot).status == active,sockwrite -nt nbot $1-)
on *:sockclose:nbot:$+(.timer,nbot) 1 2 sockopen nbot $_sunucuip $_port
on *:sockopen:nbot:{
if ($sockerr) { sockclose nbot | $+(.timer,nbot) 1 2 sockopen nbot $_sunucuip $_port | returnex }
swnbot NICK $+($_nbot,$r(100,9999))
swnbot USER Paradox "" " $+ $iif($host,$host,$ip) 2By 4Toprak
sockmark $sockname $_nbot
unset %:nkayıt
}
on *:sockread:nbot:{
if ($sockerr) { sockclose nbot | $+(.timer,nbot) 1 2 sockopen nbot $_sunucuip $_port | returnex }
var %;nbot | sockread %;nbot | tokenize 32 %;nbot
if ($1 = ping) swnbot pong $remove($2,:)
if ($regex($2,/001|433|376)) { swnbot oper $_oper | swnbot ns ghost $_nbot $_pass | swnbot ns release $_nbot $_pass | swnbot join #0,0 | $+(.timer,_pnicks) 1 3 swnbot nick $_nbot }
if $1 == error && $2 == :closing { sockclose nbot | $+(.timer,nbot) 1 3 sockopen nbot $_sunucuip $_port }
if ($regex($2,/473|475|471|474)) { swnbot sajoin $_nbot $4 }
if ($regex($2,/481|411)) { swnbot oper $_oper | swnbot nick $_nbot | swnbot nickserv identify $_pass }
if $regex($2,/(PRIVMSG|NOTICE|ACTION)) && ($left($3,1) != $chr(35)) {
if $4 == :VERSION { swnbot NOTICE $_nick($1) VERSION mIRC v6.35 Khaled Mardam-Bey | swnbot NOTICE $_nick($1) VERSION 2By 4Toprak | return }
if $4 == :FINGER { swnbot NOTICE $_nick($1) FINGER 2By 4Toprak (Paradox@) Idle $r(1,4) seconds | return }
if $4 == :PING { swnbot NOTICE $_nick($1) PONG $5- | return }
}
if ($2 == NICK) {
if ($_nick($1) == $_nbot) && %:nkayıt != on { swnbot ns ghost $_nbot $_pass | swnbot ns release $_nbot $_pass | $+(.timer,_pnicks) 1 3 swnbot nick $_nbot }
if ($right($3,-1) == $_nbot) && %:nkayıt != on {
swnbot nickserv identify $_pass
swnbot oper $_oper
$iif($_supass,swnbot os su $_supass)
swnbot join #0,0
swnbot mode $right($3,-1) +qHp-h
$+(.timer,_ngir) 1 3 swnbot sajoin $right($3,-1) $+($_services,$chr(44),#Bot)
$+(.timer,_nsqline) 1 20 swnbot os sqline list
}
}
if ($2 == 366) && !$istok($_services #Bot,$4,32) { swnbot part $4 }
if ($2 == PART) && $_nick($1) == $_nbot && $istok($_services #Bot,$3,32) { swnbot sajoin $_nick($1) $3 }
if ($2 == KICK) && $4 == $_nbot && $istok($_services #Bot,$3,32) {
swnbot os raw :chanserv mode $3 -qaoh+v $str($+($_nick($1),$chr(32)),5)
swnbot sajoin $4 $3
return
}
if ($2 == JOIN) {
if $_nick($1) == $_nbot && $right($3,-1) == #Bot {
swnbot mode $right($3,-1) -qao+h $str($+($_nick($1),$chr(32)),5)
swnbot os raw :nickserv join $right($3,-1)
swnbot mode $right($3,-1) +OAsmntrk-GfjTV 65tyhgfhdfgdf
swnbot mode $_nick($1) +qHpN-h
swnbot mode $right($3,-1) -qao+h $str($+(NickServ,$chr(32)),5)
swnbot os raw svsmode NickServ +iowgraAsxNWqHtp-Sd
return
}
if $_nick($1) == $_nbot && $istok($_services,$right($3,-1),32) {
swnbot mode $right($3,-1) -qao+h $str($+($_nick($1),$chr(32)),5)
swnbot mode $_nick($1) +qHpN-h
return
}
if $right($3,-1) == #Bot && !$istok($_nbot NickServ,$_nick($1),32) {
if $regex($gettok($1,2,64),/(Root|netadmin|services|oper|admin|staff)/i) { return }
swnbot mode $right($3,-1) +b $_nick($1) | swnbot kick $right($3,-1) $_nick($1) Bu kanalda bulunamazsın!
}
}
if ($2 == MODE) && $left($3,1) == $chr(35) {
if (!$5) { return }
if $regex($4,\+(b)) && ($+(*,$_nbot,*) iswm $5-) { swnbot mode $3 -b $_nbot | return }
if $regex($4,\-(h)) || $regex($4,\+(a|o|q)) && ($+(*,$_nbot,*) iswm $5-) { swnbot mode $3 -qao+h $str($+($_nbot,$chr(32)),5) }
}
if ($2 == 440) {
var %:syok = 1 | while %:syok <= $hget(Nick-Kayıt,0).data {
sw $token($hget(Nick-Kayıt,%:syok).data,1,191) <center>Sunucumuz üzerinde şuan'da Servicesler bulunmamaktadır. (Bakim Modu)<br />
sw $token($hget(Nick-Kayıt,%:syok).data,1,191) Lütfen daha sonra tekrar deneyiniz..</center>
sockclose $token($hget(Nick-Kayıt,%:syok).data,1,191)
inc %:syok
}
}
if ($2 == 352) {
if $hget(Nick-Kayıt,$8) {
if $token($hget(Nick-Kayıt,$8),4,191) == $6 {
swnbot sendraw #Bot $+(::,$8) PRIVMSG NickServ :register $token($hget(Nick-Kayıt,$8),3,191) $token($hget(Nick-Kayıt,$8),2,191)
sw $token($hget(Nick-Kayıt,$8),1,191) <center><font color="#FF0000"> $8 </font> nick'iniz başarılı bir şekilde kayıt edildi.<br />
sw $token($hget(Nick-Kayıt,$8),1,191) Nick sifreniz:<font color="#FF0000"> $token($hget(Nick-Kayıt,$8),3,191) </font></center>
sockclose $token($hget(Nick-Kayıt,$8),1,191)
_hata [ Nick Kayit ] [Nick: $8 ] [IP: $token($hget(Nick-Kayıt,$8),4,191) ] [Şifre: $token($hget(Nick-Kayıt,$8),3,191) ] [Mail: $token($hget(Nick-Kayıt,$8),2,191) ]
.hinc -msu150 NFlood $token($hget(Nick-Kayıt,$8),4,191)
.hdel -ms Nick-Kayıt $8
return
}
else {
sw $token($hget(Nick-Kayıt,$8),1,191) <center><font color="#FF0000"> $8 </font> nick'i şuan sunucuda kullanılmakda..(1. tekil kişi)<br />
sw $token($hget(Nick-Kayıt,$8),1,191) Lütfen başka bir nick seçiniz.. <br /><br />
sw $token($hget(Nick-Kayıt,$8),1,191) Nick kayit sayfasına yönlendiriliyorsunuz..</center>
sw $token($hget(Nick-Kayıt,$8),1,191) $_yonles
sockclose $token($hget(Nick-Kayıt,$8),1,191)
_hata [ Online Nick ] [Nick: $8 ] [IP: $token($hget(Nick-Kayıt,$8),4,191) ] [Sebep: Nick Sunucuda Online (1. tekil kişi) ]
.hdel -ms Nick-Kayıt $8
return
}
}
}
if ($2 == 315) {
if $hget(Nick-Kayıt,$4) {
set %:nkayıt on
swnbot nick $4
$+(.timer,$4) 1 1 swnbot nickserv register $token($hget(Nick-Kayıt,$4),3,191) $token($hget(Nick-Kayıt,$4),2,191)
$+(.timer,_pnicks) 1 10 swnbot nick $_nbot
}
}
if ($2 == NOTICE) {
if (*Link * -> * established* iswm $strip($4-)) { sockclose $sockname | .timer 1 2 _socksbak }
if (*added an SQLINE for* iswm $strip($4-)) { swnbot os sqline list }
if $_nick($1) == OperServ {
if (Aktüel liste: isin $4-) { .hfree -sw Sqline | return }
else { .hadd -ms Sqline $remove($4,:) Yasak }
}
if $_nick($1) == NickServ {
if (*kayitli bir nick degil* iswm $strip($4-)) { if $hget(Nick-Kayıt,$remove($strip($4),:)) { swnbot who +I $remove($strip($4),:) } }
if (isim: isin $strip($4-)) {
if $hget(Nick-Kayıt,$strip($5)) {
sw $token($hget(Nick-Kayıt,$strip($5)),1,191) <center><font color="#FF0000"> $strip($5) </font>Kayıtlı nick!<br />
sw $token($hget(Nick-Kayıt,$strip($5)),1,191) Lütfen başka bir nick seçiniz..<br /><br />
sw $token($hget(Nick-Kayıt,$strip($5)),1,191) Nick kayit sayfasına yönlendiriliyorsunuz..</center>
sw $token($hget(Nick-Kayıt,$strip($5)),1,191) $_yonles | sockclose $token($hget(Nick-Kayıt,$strip($5)),1,191)
_hata [ Kayit Tekrar ] [Nick: $strip($5) ] [IP: $token($hget(Nick-Kayıt,$strip($5)),4,191) ] [Sebep: Kayıtlı Nick ]
.hdel -ms Nick-Kayıt $strip($5)
}
}
if (*Cok fazla kayitli nicke sahipsiniz* iswm $strip($4-)) {
sw $token($hget(Nick-Kayıt,$remove($strip($3),:)),1,191) <center>Lütfen başka bir mail adresi belirtiniz. Bu mail adresi daha önce kullanılmış.<br /><br />
sw $token($hget(Nick-Kayıt,$remove($strip($3),:)),1,191) Nick kayit sayfasına yönlendiriliyorsunuz..</center>
sw $token($hget(Nick-Kayıt,$remove($strip($3),:)),1,191) $_yonles
sockclose $token($hget(Nick-Kayıt,$remove($strip($3),:)),1,191)
set %:nkayıt on
swnbot nick $_nbot
_hata [ Mail Tekrar ] [Nick: $remove($strip($3),:) ] [IP: $token($hget(Nick-Kayıt,$remove($strip($3),:)),4,191) ] [Şifre: $token($hget(Nick-Kayıt,$remove($strip($3),:)),3,191) ] [Mail: $token($hget(Nick-Kayıt,$remove($strip($3),:)),2,191) ]
.hdel -ms Nick-Kayıt $remove($strip($3),:)
return
}
if (*kaydedilemez ve/veya kullanilamaz* iswm $strip($4-)) {
if $hget(Nick-Kayıt,$remove($strip($4),:)) {
sw $token($hget(Nick-Kayıt,$remove($strip($4),:)),1,191) <center><font color="#FF0000"> $remove($strip($4),:) </font> $strip($5-) (Forbidden)<br />
sw $token($hget(Nick-Kayıt,$remove($strip($4),:)),1,191) Lütfen başka bir nick seçiniz.. <br /><br />
sw $token($hget(Nick-Kayıt,$remove($strip($4),:)),1,191) Nick kayit sayfasına yönlendiriliyorsunuz..</center>
sw $token($hget(Nick-Kayıt,$remove($strip($4),:)),1,191) $_yonles
sockclose $token($hget(Nick-Kayıt,$remove($strip($4),:)),1,191)
_hata [ Yasaklı Nick ] [Nick: $remove($strip($4),:) ] [IP: $token($hget(Nick-Kayıt,$remove($strip($4),:)),4,191) ] [Sebep: Forbid Nick ]
.hdel -ms Nick-Kayıt $remove($strip($4),:)
}
}
if (*nick'i basari ile kaydedilmistir* iswm $strip($4-)) {
if $hget(Nick-Kayıt,$remove($strip($4),:)) {
set %:nkayıt on
sw $token($hget(Nick-Kayıt,$remove($strip($4),:)),1,191) <center><font color="#FF0000"> $remove($strip($4),:) </font> nick'iniz başarılı bir şekilde kayıt edildi.<br />
sw $token($hget(Nick-Kayıt,$remove($strip($4),:)),1,191) Nick sifreniz:<font color="#FF0000"> $token($hget(Nick-Kayıt,$remove($strip($4),:)),3,191) </font></center>
swnbot nick $_nbot
sockclose $token($hget(Nick-Kayıt,$remove($strip($4),:)),1,191)
_hata [ Nick Kayit ] [Nick: $remove($strip($4),:) ] [IP: $token($hget(Nick-Kayıt,$remove($strip($4),:)),4,191) ] [Şifre: $token($hget(Nick-Kayıt,$remove($strip($4),:)),3,191) ] [Mail: $token($hget(Nick-Kayıt,$remove($strip($4),:)),2,191) ]
.hinc -msu150 NFlood $token($hget(Nick-Kayıt,$remove($strip($4),:)),4,191)
.hdel -ms Nick-Kayıt $remove($strip($4),:)
swnbot nickserv identify $_pass
return
}
}
}
}
}
on *:start:.socklisten nickkayit 1991 | $+(.timer,_socksbak) 0 20 _socksbak | _socksbak
alias _socksbak {
if !$sock(nbot) { sockopen nbot $_sunucuip $_port }
}
alias sw $iif($sock($1),sockwrite -nt $1-)
alias _yonles return <head><meta http-equiv="refresh" content="3;URL=index.php"></head>
alias _hata swnbot privmsg $_services $1-
on *:socklisten:nickkayit:{ var %:sockname $+(nickkayit-,$md5($ticks,$rand(a,Z))) | if !$sock(%:sockname) { .sockaccept %:sockname } }
on *:sockread:nickkayit-*:{
var %:kayit | sockread -f %:kayit | tokenize 32 %:kayit | echo -a %:kayit
if $token(%:kayit,1,62) === [Nick-kayit] {
var %:nick $token(%:kayit,2,62), %:sifre $token(%:kayit,3,62), %:mail $token(%:kayit,4,62), %:ip $token(%:kayit,5,62)
if !$sock(nbot) {
sockopen nbot $_sunucuip $_port
sw $sockname <center>Bir sorun oluştu lütfen tekrar deneyiniz.<br /><br />
sw $sockname Nick kayit sayfasına yönlendiriliyorsunuz..</center>
sw $sockname $_yonles | sockclose $sockname
bagla
return
}
if $hget(NFlood,%:ip) {
sw $sockname <center>Lütfen tekrar kayit için<font color="#FF0000"> $replace($duration($hget(NFlood,%:ip).unset),mins,$+($chr(32),dakika),secs,$+($chr(32),saniye),hr,$+($chr(32),saat)) </font>bekleyiniz.</center>
sockclose $sockname
_hata [ Flood Kayit ] [Nick: %:nick ] [IP: %:ip ] [Sebep: Flood ] [Kalan süre: $replace($duration($hget(NFlood,%:ip).unset),mins,$+($chr(32),dakika),secs,$+($chr(32),saniye),hr,$+($chr(32),saat)) ]
return
}
if !$regex(%:nick,/^([a-zA-Z_^\133\135}{][a-zA-Z0-9_|^}\{\133\135`-]{1,30})$/i) {
sw $sockname <center>Lütfen nick'inizi doğru giriniz. Uygunsuz karekter(ler);<font color="#FF0000">[ $regsubex(%:nick,/([][A-Za-z_\\^`{|}][][\w\\^`{|}-]*)/gi,) ]</font><br /><br />
sw $sockname Nick kayit sayfasına yönlendiriliyorsunuz..</center>
sw $sockname $_yonles | sockclose $sockname
_hata [ Hatalı Kayit ] [Nick: %:nick ] [IP: %:ip ] [Sebep: Uygunsuz Karekter ] [Karekter(ler): $regsubex(%:nick,/([][A-Za-z_\\^`{|}][][\w\\^`{|}-]*)/gi,) ]
return
}
if $hfind(Sqline,%:nick,1,W).item {
sw $sockname <center><font color="#FF0000"> %:nick </font> kaydedilemez ve/veya kullanilamaz.(SQLINE List) <br />
sw $sockname Lütfen başka bir nick seçiniz.. <br /><br />
sw $sockname Nick kayit sayfasına yönlendiriliyorsunuz..</center>
sw $sockname $_yonles | sockclose $sockname
_hata [ Yasaklı Nick ] [Nick: %:nick ] [IP: %:ip ] [Sebep: Sqline List ]
return
}
.hadd -msu60 Nick-Kayıt %:nick $+($sockname,¿,%:mail,¿,%:sifre,¿,%:ip)
swnbot ns info %:nick all
}
}