mIRC Bot Giriş Kod Sistemi

Aytac

nicktag
Yönetici
Developer
Katılım
4 Şub 2020
Mesajlar
379
Tepkime puanı
50
Puanları
28
Konum
ircland
Web sitesi
www.ircalem.net
Merhabalar Arkadaşlar.

Daha önce bulunmuş olduğum mIRCTurk adlı sunucuda gördüğüm bir sistemi sizinle paylaşmak istedim. 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 '^([email protected]+:.+)$': [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) }
 
Üst