IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Kod'un amacı Sunucu'sunda güvenlik Kod'u olmayan arkadaşların Bot yani yapay zeka üzerinden giriş kod'u sistemi kurabilmesidir.Kullanması gayet basit olan Cod'u mIRC Bot'unuzun remote kısmına ekleyip !Giris on !giris off seklinde çalıştırabilirsiniz.
Kod:
/*

İki Alias var, build ve buildyedek

Eger ilk guvenlik kodunu cozerlerse, "build $nick" yazan yere buildyedek $nick yazilacak.
 

Giriş Kod'umuz Başlıyor By AzRaiL.

*/
 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;GLOBAL KANAL GIRIS GUVENLIK KODU;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 

#giris off
 

on *:snotice:*:{

  if (*matches filter '^(.+!.+@.+:.+)$': [NICK:* iswm $1-) {

    if (%glogiris == ON && $gettok($2,1,33) == $remove($gettok($7,1,33),')) { 

      os raw sajoin $gettok($2,1,33) #0,0 

      .timer 1 3 os raw svsjoin $gettok($2,1,33) #giris 

    }

  }

}

#giris end
 
 
 
 

on !*:join:#giris:{ 

  ;if $regex($address($nick,2),/(oper|network|admin|root)/i) { return }

  if (%glogiris == ON) {

    buildyedek $nick

  } 

}

On *:text:!giri? &:,#muhabbet,#sohbet,#opers:{

  if ($1 == !giris && $2 == on) {

    if (($chan != #opers && $nick isop #) || $regex($address($nick,2),/(oper|network|admin|root)/i)) {

      onotice # GlobaL Kanallar icin GIRIS GUVENLIK KODU Aktif Edilmistir.

      onotice # #Giris Kanalinda bulunmaniz gerekmektedir.

      .msg #operlog [SYSTEMLOG GLOBAL] Global Kanallar icin GIRIS GUVENLIK KODU $nick Tarafindan AKTIF Edildi.

      giris_on

      set %glogiris ON

    }

    if ($chan == #opers) {

      .msg #operlog [SYSTEMLOG OPERS] GLOBAL KANALLARDA GIRIS GUVENLIK KODU AKTIF EDILMISTIR.

      set %glogiris ON

      giris_on

    }

  }

  if ($1 == !giris && $2 == off) {

    if (($chan != #opers && $nick isop #) || $regex($address($nick,2),/(oper|network|admin|root)/i)) {

      onotice # GlobaL Kanallar icin GIRIS GUVENLIK KODU Kapatilmistir. 

      .msg #operlog [SYSTEMLOG GLOBAL] Global Kanallar icin GIRIS GUVENLIK KODU $nick Tarafindan IPTAL Edildi.

      giris_off

      set %glogiris OFF

    }

    if ($chan == #opers) {

      .msg # > GLOBAL KANALLARDA "!Giris on/off" KOMUT KULLANIMI IPTAL EDILMISTIR.

      set %glogiris OFF

      giris_off

      unset %girisdeneme*

    }

  }
 

}
 

alias glkanal return #oyun,#radyo,#muhabbet,#sohbet,#felsefe,#istanbul

alias giris_on { 

  .enable #giris

  cs set #felsefe mlock +lL 1 #Giris

  cs set #sohbet mlock +lL 1 #Giris

  cs set #muhabbet mlock +lL 1 #Giris

  cs set #oyun mlock +lL 1 #Giris

  cs set #radyo mlock +lL 1 #Giris

  mode #sohbet +b ~T:block:*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*

  mode #muhabbet +b ~T:block:*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*

  mode #felsefe +b ~T:block:*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*
 
 

}

alias giris_off {

  .disable #giris

  cs set #sohbet mlock -lL 1 #Giris

  cs set #muhabbet mlock -lL 1 #Giris

  cs set #oyun mlock -lL 1 #Giris

  cs set #radyo mlock -lL 1 #Giris

  cs set #felsefe mlock -lL 1 #Giris

  mode #sohbet -b ~T:block:*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*

  mode #muhabbet -b ~T:block:*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*

  mode #felsefe -b ~T:block:*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*

}
 

on *:text:*:#giris:{

  if (%glogiris == ON) {

    if $hfind(giris,$strip($1)) {

      os raw notice $nick Guvenlik kodunu dogru girdiniz, sohbet kanallarina yonlendiriliyorsunuz.Hos sohbetler..

      os raw sapart $nick $chan

      os raw sajoin $nick $glkanal

      hdel giris $strip($1)

    }

    else { 

      inc $+(%,girisdeneme-,$nick)

      if ($eval($+(%,girisdeneme-,$nick),2) == 3) {

        .kick # $nick 5GUVENLIK KODUNU YAZMAK ICIN SIZE AYRILAN DENEME HAKKINIZ BITMISTIR.

        os raw sajoin $nick #karantina

        .mode # +b $address($nick,2)

        unset $+(%,girisdeneme-,$nick)

        return 

      }

      .notice $nick -

      .notice $nick #########################################################################

      .notice $nick 4>YAZMIS OLDUGUNUZ GUVENLIK KODU DOGRU DEGIL.KALAN DENEME HAKKINIZ $+ >4 $calc(3 - $eval($+(%,girisdeneme-,$nick),2))   $+ <

      .notice $nick #########################################################################

      .notice $nick -

      .build $nick

    }

  }

}
 

alias build {

  var %gondn = $1

  if (!$hget(giris)) { 

    .hmake giris 500

  }

  var %m = $+($r(1,9),$r(A,N),$r(1,9),$r(1,9)) 

  hadd -u60 giris %m

  .notice %gondn -

  .notice %gondn 2GUVENLIK KODU:4 %m

  .notice %gondn -

  .notice %gondn 2YUKARIDA GORMUS OLDUGUNUZ GUVENLIK KODUNU KANALA YAZINIZ.

}
 
 
 

alias buildyedek {

  var %gond = $1

  var %n_color = 2.3.4.5.6.10.12 

  var %hane = $r(3,5), %i = 1  

  while (%i <= %hane) {

    var %n = $+($r(a,z),_object)

    var %c_sum = %c_sum $+($,%n,(%l))

    inc %i 

  } 

  var %m = $remove(%c_sum,object,$,_,(%l),$chr(32))

  if (!$hget(giris)) { 

    .hmake giris 500

  }

  hadd -u60 giris %m

  var %1 = $gettok(%n_color,$r(1,7),46)

  var %2 = $gettok(%n_color,$r(1,7),46)

  var %3 = $gettok(%n_color,$r(1,7),46)

  var %4 = $gettok(%n_color,$r(1,7),46)

  var %5 = $gettok(%n_color,$r(1,7),46)

  var %l = 1

  .notice %gond  -

  while (%l <= 7) {

    tokenize 32 $eval(%c_sum,2)

    .notice %gond  $replace($1,4,%1) $+ $replace($2,4,%2) $+ $replace($3,4,%3) $+ $replace($4,4,%4) $+ $replace($5,4,%5)

    inc %l 

  } 

  .notice %gond  -

  .notice %gond  YUKARIDA GORMUS OLDUGUNUZ GUVENLIK KODUNU KANALA YAZINIZ.

  .notice %gond  -

}
 

alias -l a_object {

  var %w = 0,0###4###0,0#### $&

    0,0##4##0,0#4##0,0### $&

    0,0#4##0,0###4##0,0## $&

    4,0##0,0#####4##0,0# $&

    4,0#########0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# 

return $gettok(%w,$1,32) }

alias -l b_object {

  var %w = 4,0########0,0## $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0########0,0## $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0########0,0##

return $gettok(%w,$1,32) }

alias -l b_reverse_object {

  var %w = 0,0#4,0########0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    0,0#4,0########0,00# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    0,0#4,0########0,0#

return $gettok(%w,$1,32) }

alias -l c_object {

  var %w = 0,0#4,0#######0,0## $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0######## $&

    4,0##0,0######## $&

    4,0##0,0######## $&

    4,0##0,0#####4,0##0,0# $&

    0,0#4,0########0,0#

return $gettok(%w,$1,32) }

alias -l d_object {

  var %w = 4,0#######0,0### $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0#######0,0###

return $gettok(%w,$1,32) }

alias -l e_object {

  var %w = 4,0########0,0# $&

    4,0##0,0######0,0# $&

    4,0##0,0######0,0# $&

    4,0#####0,0#### $&

    4,0##0,0######0,0# $&

    4,0##0,0######0,0# $&

    4,0########0,0#

return $gettok(%w,$1,32) }

alias -l f_object {

  var %w = 4,0#########0,0# $&

    4,0##0,0######## $&

    4,0##0,0######## $&

    4,0######0,0#### $&

    4,0##0,0######## $&

    4,0##0,0######## $&

    4,0##0,0########

return $gettok(%w,$1,32) }

alias -l f_reverse_object {

  var %w = 4,0#########0,0# $&

    0,0#######4,0##0,0# $&

    0,0#######4,0##0,0# $&

    0,0###4,0######0,0# $&

    0,0#######4,0##0,0# $&

    0,0#######4,0##0,0# $&

    0,0#######4,0##0,0#

return $gettok(%w,$1,32) }

alias -l g_object {

  var %w = 0,0#4,0######0,0### $&

    4,0##0,0####4,0##0,0## $&

    4,0##0,0######## $&

    4,0##0,0##4,0#####0,0# $&

    4,0##0,0####4,0##0,0## $&

    4,0##0,0####4,0##0,0## $&

    0,0#4,0######0,0###

return $gettok(%w,$1,32) }

alias -l g_reverse_object {

  var %w = 0,0##4,0######0,0## $&

    0,0#4,0##0,0####4,0##0,0# $&

    0,0#######4,0##0,0# $&

    4,0#####0,0##4,0##0,0# $&

    0,0#4,0##0,0####4,0##0,0# $&

    0,0#4,0##0,0####4,0##0,0# $&

    0,0##4,0######0,0##

return $gettok(%w,$1,32) }

alias -l h_object {

  var %w = 4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0#########0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0#

return $gettok(%w,$1,32) }

alias -l i_object {

  var %w = 4,0####0,0# $&

    0,0#4,0##0,0## $&

    0,0#4,0##0,0## $&

    0,0#4,0##0,0## $&

    0,0#4,0##0,0## $&

    0,0#4,0##0,0## $&

    4,0####0,0#

return $gettok(%w,$1,32) }

alias -l j_object {

  var %w = 0,0######4,0##0,0# $&

    0,0######4,0##0,0# $&

    0,0######4,0##0,0# $&

    0,0######4,0##0,0# $&

    4,0##0,0####4,0##0,0# $&

    4,0##0,0####4,0##0,0# $&

    0,0#4,0#####0,0###

return $gettok(%w,$1,32) }

alias -l k_object {

  var %w = 4,0##0,0####4,0##0,0# $&

    4,0##0,0###4,0##0,0## $&

    4,0##0,0##4,0##0,0### $&

    4,0#####0,0#### $&

    4,0##0,0##4,0##0,0### $&

    4,0##0,0###4,0##0,0## $&

    4,0##0,0####4,0##0,0#

return $gettok(%w,$1,32) }

alias -l k_reverse_object {

  var %w = 4,0##0,0####4,0##0,0# $&

    0,0#4,0##0,0###4,0##0,0# $&

    0,0##4,0##0,0##4,0##0,0# $&

    0,0###4,0#####0,0# $&

    0,0##4,0##0,0##4,0##0,0# $&

    0,0#4,0##0,0###4,0##0,0# $&

    4,0##0,0####4,0##0,0#

return $gettok(%w,$1,32) }

alias -l l_object {

  var %w = 4,0##0,0####### $&

    4,0##0,0####### $&

    4,0##0,0####### $&

    4,0##0,0####### $&

    4,0##0,0####### $&

    4,0##0,0####### $&

    4,0########0,0#

return $gettok(%w,$1,32) }

alias -l l_reverse_object {

  var %w = 0,0######4,0##0,0# $&

    0,0######4,0##0,0# $&

    0,0######4,0##0,0# $&

    0,0######4,0##0,0# $&

    0,0######4,0##0,0# $&

    0,0######4,0##0,0# $&

    4,0########0,0#

return $gettok(%w,$1,32) }

alias -l m_object {

  var %w = 4,0##0,0#####4,0##0,0# $&

    4,0###0,0###4,0###0,0# $&

    4,0####0,0#4,0####0,0# $&

    4,0##0,0#4,0###0,0#4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0#

return $gettok(%w,$1,32) }

alias -l n_object {

  var %w = 4,0##0,0####4,0##0,0# $&

    4,0###0,0###4,0##0,0# $&

    4,0####0,0##4,0##0,0# $&

    4,0##0,0#4,0##0,0#4,0##0,0# $&

    4,0##0,0##4,0####0,0# $&

    4,0##0,0###4,0###0,0# $&

    4,0##0,0####4,0##0,0#

return $gettok(%w,$1,32) }

alias -l n_reverse_object {

  var %w = 4,0##0,0####4,0##0,0# $&

    4,0##0,0###4,0###0,0# $&

    4,0##0,0##4,0####0,0# $&

    4,0##0,0#4,0##0,0#4,0##0,0# $&

    4,0####0,0##4,0##0,0# $&

    4,0###0,0###4,0##0,0# $&

    4,0##0,0####4,0##0,0#

return $gettok(%w,$1,32) }

alias -l o_object {

  var %w = 0,0#4,0#######0,0## $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    0,0#4,0#######0,0##

return $gettok(%w,$1,32) }

alias -l p_object {

  var %w = 4,0########0,0## $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0########0,0## $&

    4,0##0,0######## $&

    4,0##0,0######## $&

    4,0##0,0########

return $gettok(%w,$1,32) }

alias -l p_reverse_object {

  var %w = 0,0#4,0########0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    0,0#4,0########0,0# $&

    0,0#######4,0##0,0# $&

    0,0#######4,0##0,0# $&

    0,0#######4,0##0,0#

return $gettok(%w,$1,32) }

alias -l r_object {

  var %w = 4,0########0,0## $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0########0,0## $&

    4,0##0,0###4,0##0,0### $&

    4,0##0,0####4,0##0,0## $&

    4,0##0,0#####4,0##0,0#

return $gettok(%w,$1,32) }

alias -l r_reverse_object {

  var %w = 0,0#4,0########0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    0,0#4,0########0,0# $& 

    0,0##4,0##0,0###4,0##0,0# $&

    0,0#4,0##0,0####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# 

return $gettok(%w,$1,32) }

alias -l s_object {

  var %w = 0,0#4,0######0,0## $&

    4,0##0,0####4,0##0,0# $&

    4,0##0,0####### $&

    0,0#4,0######0,0## $&

    0,0######4,0##0,0# $&

    4,0##0,0####4,0##0,0# $&

    0,0#4,0######0,0##

return $gettok(%w,$1,32) }

alias -l s_reverse_object {

  var %w = 0,0#4,0######0,0## $&

    4,0##0,0####4,0##0,0# $&

    0,0######4,0##0,0# $&

    0,0#4,0######0,0## $&

    4,0##0,0####### $&

    4,0##0,0####4,0##0,0# $&

    0,0#4,0######0,0##

return $gettok(%w,$1,32) }

alias -l t_object {

  var %w = 4,0########0,0# $&

    0,0###4,0##0,0#### $&

    0,0###4,0##0,0#### $&

    0,0###4,0##0,0#### $&

    0,0###4,0##0,0#### $&

    0,0###4,0##0,0#### $&

    0,0###4,0##0,0####

return $gettok(%w,$1,32) }

alias -l u_object {

  var %w = 4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    0,0#4,0#######0,0##

return $gettok(%w,$1,32) }

alias -l v_object {

  var %w = 4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    0,0#4,0##0,0###4,0##0,0## $&

    0,0##4,0##0,0#4,0##0,0### $&

    0,0###4,0###0,0####

return $gettok(%w,$1,32) }

alias -l y_object {

  var %w = 4,0##0,0####4,0##0,0# $&

    0,0#4,0##0,0##4,0##0,0## $&

    0,0##4,0####0,0### $&

    0,0###4,0##0,0#### $&

    0,0###4,0##0,0#### $&

    0,0###4,0##0,0#### $&

    0,0###4,0##0,0#### 

return $gettok(%w,$1,32) }

alias -l z_object { 

  var %w = 4,0########0,0# $&

    0,0#####4,0##0,0## $&

    0,0####4,0##0,0### $&

    0,0###4,0##0,0#### $&

    0,0##4,0##0,0##### $&

    0,0#4,0##0,0###### $&

    4,0########0,0#

return $gettok(%w,$1,32) }

alias -l x_object {

  var %w = 4,0##0,0#####4,0##0,0# $&

    0,0#4,0##0,0###4,0##0,0## $&

    0,0##4,0##0,0#4,0##0,0### $&

    0,0###4,0###0,0#### $&

    0,0##4,0##0,0#4,0##0,0### $&

    0,0#4,0##0,0###4,0##0,0## $&

    4,0##0,0#####4,0##0,0#

return $gettok(%w,$1,32) }

alias -l w_object {

  var %w = 4,0##0,0######4,0##0,0# $&

    4,0##0,0##4,0##0,0##4,0##0,0# $&

    4,0##0,0##4,0##0,0##4,0##0,0# $&

    4,0##0,0##4,0##0,0##4,0##0,0# $&

    4,0##0,0##4,0##0,0##4,0##0,0# $&

    4,0##0,0##4,0##0,0##4,0##0,0# $&

    0,0#4,0###0,0##4,0###0,0##

return $gettok(%w,$1,32) }

alias -l q_object {

  var %w = 0,0#4,0#######0,0## $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0#####4,0##0,0# $&

    4,0##0,0##4,0##0,0#4,0##0,0# $&

    4,0##0,0####4,0##0,0## $&

    0,0#4,0#####0,0#4,0##0,0#

return $gettok(%w,$1,32) }