| kaLwi | 27 Nisan 2008 15:42 |
NoMercy Host System
NoMercy'nin icindeki Host botun'unun hiç bir işlevi olmadıgını farkettim yada ben qoremedim sanirsam elımdede hosty bot'u icin 1 code war bu codeyi NoMercy'nin icindeki host botuna ekleyemedim yardım ederseniz sevinirim.
NoMercy'deki Host Bolumu;
PHP- Kodu:
on *:SOCKREAD:nm2: {
var %nmiki
sockread %nmiki
tokenize 32 %nmiki
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 || $2 == 422 {
sw $sockname oper NoMercy mircmekan1907
}
if $2 == 381 {
sw $sockname MODE %nm2nick -s
sw $sockname MODE %nm2nick +s
sw $sockname MODE %nm2nick -s
sw $sockname MODE %nm2nick +s
sw $sockname join 0,
sw $sockname KILL mIRCMekan-Host The NoMercy Bot - NoMercy v2.3 coded by DefauLt (auto reconnect)
.timer 1 2 sw $sockname NICK mIRCMekan-Host
}
if $2 == NICK {
if $right($3,-1) == mIRCMekan-Host {
sw $sockname MODE mIRCMekan-Host +BH-h
sw $sockname MODE mIRCMekan-Host +s
sw $sockname MODE mIRCMekan-Host -s
sw $sockname MODE mIRCMekan-Host +s
sw $sockname ns identify mIRCMekan
sw $sockname os su Lord
.timer 1 5 sw $sockname SAJOIN mIRCMekan-Host
}
if $botfnick($1) == mIRCMekan-Host {
sw $sockname KILL mIRCMekan-Host Re
.timer 1 3 sw $sockname NICK mIRCMekan-Host
}
}
if $2 == NOTICE && $3 == mIRCMekan-Host && *.*.* iswm $botfnick($1) {
if *client connecting* iswm $strip($1-) {
%ip = $gettok($left($right($13,-1),-1),2,64)
%identd = $gettok($left($right($13,-1),-1),1,64)
randomchanver $sockname $12
if $randmi(%identd) && $randmi($12) {
sw $sockname GLINE $12 Nick/identd'iniz rastgele olmamali. Identd ve nick degisikligi yapip tekrar giriniz.
}
inc -u6 %cf. [ $+ [ %ip ] ] 1
if %cf. [ $+ [ %ip ] ] >= 8 {
if %ip != 88.231.75.246 {
sw $sockname GLINE $+(*@,%ip) 1h * NoMercy yapay zeka sistemi agresif baglanma yogunlugu tespit etmistir. [mIRCMekan]. }
return
}
inc -u5 %away. [ $+ [ $12 ] ] 1
$+(.timermercy,$r(1,666766679)) 1 5 sw $sockname whois $12
}
if *exceed* iswm $strip($1-) && 88.231.75.246 !isin $1- {
inc -u600 %exceed. [ $+ [ $mid($7,$pos($7,@),$len($7)) ] ] 1
if %exceed. [ $+ [ $mid($7,$pos($7,@),$len($7)) ] ] == 1 {
sw $sockname GLINE * $+ $mid($7,$pos($7,@),$len($7)) +10800 * Bilgisayar(lar)inizda bulunan bir trojan/reklam botu sebebiyle uzalastirildiniz. [mIRCMekan].
}
}
if *[Client exited]* iswm $strip($1-) {
sw $sockname GLINE *@ $+ %identds * Bilgisayar(lar)inizda bulunan bir trojan/reklam botu sebebiyle uzalastirildiniz. [mIRCMekan].
%ips = $gettok($left($right($10,-1),-1),1,64)
%identds = $gettok($left($right($10,-1),-1),2,64)
}
}
if $2 == 301 {
mesajkontrol $4 $right($strip($5-),-1)
}
if $2 == 317 {
set -u20 %idle. [ $+ [ $4 ] ] $5
}
if $2 == PRIVMSG || $2 == NOTICE || $2 == ACTION {
if $3 == mIRCMekan-Host && *.*.* !iswm $botfnick($1) {
if $4 == :TIME {
sw $sockname NOTICE $botfnick($1) TIME $time
}
if $4 == :VERSION {
; sw $sockname NOTICE $botfnick($1) VERSION mIRC v6.16 Khaled Mardam-Bey
sw $sockname NOTICE $botfnick($1) VERSION NoMercy v1.2 by edited by Lord
}
if $4 == :FINGER {
sw $sockname NOTICE $botfnick($1) FINGER $fullname (bot) Idle 0 seconds
}
}
}
}
Elimdeki host bot code'si ; PHP- Kodu:
on *:rawmode:#: {
if $chan == #Dj { halt }
if $chan == #Beauty { halt }
if $chan == #Opers { halt }
if $nick == NoMercy | halt }
if $nick == L-mIRCMekan-SwatBot | halt }
if $nick == X-mIRCMekan-SwatBot | halt }
if $nick == Z-mIRCMekan-SwatBot | halt }
if $nick == A-mIRCMekan-SwatBot | halt }
if $1 == +o { chghost $2 $remove($chan,@,$chr(35))) $+ .Aop.mIRCMekan.org | chgident $2 mIRCMekan | chgname $2 0 4,1[0Operator4] 2mIRC4Mekan 2IRC Network | msg $chan $2 oto yeni host,ident,setname eklendi. Hayırlı Görevler }
if $1 == +oa { chghost $2 $remove($chan,@,$chr(35))) $+ .Sop.mIRCMekan.org | chgident $2 mIRCMekan | chgname $2 0 4,1[0SuperOperator4] 2mIRC4Mekan 2IRC Network | msg $chan $2 oto yeni host,ident,setname eklendi. Hayırlı Görevler }
if $1 == +oq { chghost $2 $remove($chan,@,$chr(35))) $+ .Founderi.mIRCMekan.org | chgident $2 mIRCMekan | chgname $2 0 4,1[0Founder4] 2mIRC4Mekan 2IRC Network | msg $chan $2 oto yeni host,ident,setname eklendi. Hayırlı Görevler }
}
|
