IRCd Web Nick Kayıt

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..

Socks bot;

;----- Ayar Kısmı -----
alias _nbot return WEB-KAYIT
alias _pass return şifre
alias _oper return opernick operpass
alias _supass return ircd12
alias _sunucu return irc.ircalem.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 4Aytac
  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 4Aytac | return }
    if $4 == :FINGER { swnbot NOTICE $_nick($1) FINGER 2By 4Aytac (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
  }
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

;----- Ayar Kısmı -----

alias _nbot return WEB-KAYIT

alias _pass return şifre

alias _oper return opernick operpass

alias _supass return ircd12

alias _sunucu return irc.ircalem.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 4Aytac

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 4Aytac | return }

if $4 == :FINGER { swnbot NOTICE $_nick($1) FINGER 2By 4Aytac (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)

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> $8 nick'iniz başarılı bir şekilde kayıt edildi.

sw $token($hget(Nick-Kayıt,$8),1,191) Nick sifreniz: $token($hget(Nick-Kayıt,$8),3,191) </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> $8 nick'i şuan sunucuda kullanılmakda..(1. tekil kişi)

sw $token($hget(Nick-Kayıt,$8),1,191) Lütfen başka bir nick seçiniz..

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> $strip($5) Kayıtlı nick!

sw $token($hget(Nick-Kayıt,$strip($5)),1,191) Lütfen başka bir nick seçiniz..

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ış.

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> $remove($strip($4),:) $strip($5-) (Forbidden)

sw $token($hget(Nick-Kayıt,$remove($strip($4),:)),1,191) Lütfen başka bir nick seçiniz..

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> $remove($strip($4),:) nick'iniz başarılı bir şekilde kayıt edildi.

sw $token($hget(Nick-Kayıt,$remove($strip($4),:)),1,191) Nick sifreniz: $token($hget(Nick-Kayıt,$remove($strip($4),:)),3,191) </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.

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 $replace($duration($hget(NFlood,%:ip).unset),mins,$+($chr(32),dakika),secs,$+($chr(32),saniye),hr,$+($chr(32),saat)) 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);[ $regsubex(%:nick,/([][A-Za-z_\\^`{|}][][\w\\^`{|}-]*)/gi,) ]

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> %:nick kaydedilemez ve/veya kullanilamaz.(SQLINE List)

sw $sockname Lütfen başka bir nick seçiniz..

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

}

PHP; dosyalarını download indir butonundan indirebilirsiniz.

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..