Mirc Kanal Şifreleme

on *:text:*:#KANAL: {
if ($1 == !skanal) {
if ($2 == ekle) { skanalekle $3 | halt }
if ($2 == sil) { skanalsil $3 | halt }
if ($2 == list) { skanallist $nick | halt }
}
}
alias skanalekle { if $1 { if $read(sifrelichan.txt,w,$1) { .msg $chan - $1 - bu kanal zaten listede. | halt } | else { write sifrelichan.txt $1 | .msg $chan - $1 - kanal listeye eklendi. } } }
alias skanallist {
var %s = 1,%ss = $lines(sifrelichan.txt)
if (%ss == 0) { .msg # Listede Kayit Bulunmamaktadir. | halt }
.msg $nick Sifreli KanaL listesi listeleniyor..
while %s < = %ss {
.msg $nick %s - $read(sifrelichan.txt,%s)
inc %s
}
.msg $nick listesi sonu..
}
alias skanalsil { if $1 { if !$read(sifrelichan.txt,w,$1) { .msg $chan - $1 - kanal listesinde yok. | halt } | else { write $+(-dl,$readn) sifrelichan.txt | .msg $chan - $1 - kanal listesinden silindi. } } }
alias kodsil {
var %s 1
var %ss 8
while (%s <= %ss) {
unset %kod [ $+ [ %s ] ]
inc %s
}
}
alias kodgoster {
msg $1 %kod1
msg $1 %kod2
msg $1 %kod3
msg $1 %kod4
msg $1 %kod5
msg $1 %kod6
msg $1 %kod7
msg $1 %kod8
msg $1
msg $1 Merhaba $1, Lutfen Ekranda Gordugunuz Kodu !kod KOD Seklinde Giriniz.
msg $1 Ornek: !kod 123
kodsil
}

on *:join:#: {
if ($read(sifrelichan.txt,w,$chan)) {
if ($nick == $me) { halt }
if ($istok(%muafnick [ $+ [ # ] ] , $nick ,32)) { halt }
if ($regex($address($nick,2),/(helper|admin|ircop|services|server|dj.|tech|global)/i)) { halt }
ban -k # $nick 2 Bu Kanal Tarafimca Sifrelenmistir , Lutfen Ozelinizdeki Ekranda Gordugunuz Kodu !kod KOD Seklinde Giriniz.
set %chan [ $+ [ $nick ] ] #
rastgele $nick
}
}
alias rastgele {
var %kod1. [ $+ [ $1 ] ] 0 1 2 3 4
var %kodsifre1. [ $+ [ $1 ] ] $token(%kod1. [ $+ [ $1 ] ] ,$r(0,4),32)
var %kod2. [ $+ [ $1 ] ] 5 6 7 8 9
var %kodsifre2. [ $+ [ $1 ] ] $token(%kod2. [ $+ [ $1 ] ] ,$r(5,9),32)
kod %kodsifre1. [ $+ [ $1 ] ]
kod %kodsifre2. [ $+ [ $1 ] ]
set %kodsifre. [ $+ [ $1 ] ] %kodsifre1. [ $+ [ $1 ] ] $+ %kodsifre2. [ $+ [ $1 ] ]
kodgoster $1
}
on *:text:!kod*:?: {
if (%kodsifre. [ $+ [ $nick ] ] == $null) { msg $nick Sizin Kodunuz Bulunmamaktadir! | halt }
if ($2 == $null) { msg $nick Kodu Girmeyi Unuttunuz! | halt }
if ($2 == %kodsifre. [ $+ [ $nick ] ] ) {
msg $nick Kodu Dogru Girdiniz, Kanala Oto Giris Yapiyorsunuz.
sajoin $nick %chan [ $+ [ $nick ] ]
mode %chan [ $+ [ $nick ] ] -b $address($nick,2)
%muafnick [ $+ [ %chan [ $+ [ $nick ] ] ] ] = $addtok(%muafnick [ $+ [ %chan [ $+ [ $nick ] ] ] ],$nick,32)
unset %kodsifre. [ $+ [ $nick ] ]
unset %chan [ $+ [ $nick ] ]
}
else {
msg $nick Kodu Yanlis Girdiniz!
rastgele $nick
}
}

alias kod {
if ($1 == 0) {
set %kod1 $addtok(%kod1, 0##########,32)
set %kod2 $addtok(%kod2, 0## 1###### 0##,32)
set %kod3 $addtok(%kod3, 0# 1## 0#### 1## 0#,32)
set %kod4 $addtok(%kod4, 0# 1## 0#### 1## 0#,32)
set %kod5 $addtok(%kod5, 0# 1## 0#### 1## 0#,32)
set %kod6 $addtok(%kod6, 0# 1## 0#### 1## 0#,32)
set %kod7 $addtok(%kod7, 0# 1## 0#### 1## 0#,32)
set %kod8 $addtok(%kod8, 0## 1###### 0##,32)
}
if ($1 == 1) {
set %kod1 $addtok(%kod1, 0##########,32)
set %kod2 $addtok(%kod2, 0### 2### 0####,32)
set %kod3 $addtok(%kod3, 0## 2#### 0####,32)
set %kod4 $addtok(%kod4, 0# 2## 0# 2## 0####,32)
set %kod5 $addtok(%kod5, 0#### 2## 0####,32)
set %kod6 $addtok(%kod6, 0#### 2## 0####,32)
set %kod7 $addtok(%kod7, 0#### 2## 0####,32)
set %kod8 $addtok(%kod8, 0#### 2## 0####,32)
}
if ($1 == 2) {
set %kod1 $addtok(%kod1, 0#########,32)
set %kod2 $addtok(%kod2, 0## 3###### 0##,32)
set %kod3 $addtok(%kod3, 0# 3## 0#### 3## 0#,32)
set %kod4 $addtok(%kod4, 0####### 3## 0#,32)
set %kod5 $addtok(%kod5, 0###### 3## 0##,32)
set %kod6 $addtok(%kod6, 0##### 3## 0###,32)
set %kod7 $addtok(%kod7, 0### 3## 0#####,32)
set %kod8 $addtok(%kod8, 0# 3######## 0#,32)
}
if ($1 == 3) {
set %kod1 $addtok(%kod1, 0##########,32)
set %kod2 $addtok(%kod2, 0# 14####### 0##,32)
set %kod3 $addtok(%kod3, 0####### 14## 0#,32)
set %kod4 $addtok(%kod4, 0####### 14## 0#,32)
set %kod5 $addtok(%kod5, 0# 14####### 0##,32)
set %kod6 $addtok(%kod6, 0####### 14## 0#,32)
set %kod7 $addtok(%kod7, 0####### 14## 0#,32)
set %kod8 $addtok(%kod8, 0# 14####### 0##,32)
}
if ($1 == 4) {
set %kod1 $addtok(%kod1, 0##########,32)
set %kod2 $addtok(%kod2, 0## 5#######,32)
set %kod3 $addtok(%kod3, 0# 5## 0#######,32)
set %kod4 $addtok(%kod4, 0# 5## 0## 5## 0###,32)
set %kod5 $addtok(%kod5, 0# 5## 0## 5## 0###,32)
set %kod6 $addtok(%kod6, 0# 5## 0## 5## 0###,32)
set %kod7 $addtok(%kod7, 0# 5######## 0#,32)
set %kod8 $addtok(%kod8, 0# 0#### 5## 0###,32)
}
if ($1 == 5) {
set %kod1 $addtok(%kod1, 0##########,32)
set %kod2 $addtok(%kod2, 0# 6######## 0#,32)
set %kod3 $addtok(%kod3, 0# 6# 0########,32)
set %kod4 $addtok(%kod4, 0# 6# 0########,32)
set %kod5 $addtok(%kod5, 0# 6####### 0##,32)
set %kod6 $addtok(%kod6, 0######## 6# 0#,32)
set %kod7 $addtok(%kod7, 0######## 6# 0#,32)
set %kod8 $addtok(%kod8, 0# 6####### 0##,32)
}
if ($1 == 6) {
set %kod1 $addtok(%kod1, 0##########,32)
set %kod2 $addtok(%kod2, 0## 7####### 0#,32)
set %kod3 $addtok(%kod3, 0# 7## 0#######,32)
set %kod4 $addtok(%kod4, 0# 7## 0#######,32)
set %kod5 $addtok(%kod5, 0# 7####### 0##,32)
set %kod6 $addtok(%kod6, 0# 7## 0#### 7## 0#,32)
set %kod7 $addtok(%kod7, 0# 7## 0#### 7## 0#,32)
set %kod8 $addtok(%kod8, 0## 7###### 0##,32)
}
if ($1 == 7) {
set %kod1 $addtok(%kod1, 0##########,32)
set %kod2 $addtok(%kod2, 0# 10######## 0#,32)
set %kod3 $addtok(%kod3, 0####### 10## 0#,32)
set %kod4 $addtok(%kod4, 0###### 10## 0##,32)
set %kod5 $addtok(%kod5, 0##### 10## 0###,32)
set %kod6 $addtok(%kod6, 0#### 10## 0####,32)
set %kod7 $addtok(%kod7, 0### 10## 0#####,32)
set %kod8 $addtok(%kod8, 0## 10## 0######,32)
msg $2 1,1##########
}
if ($1 == 8) {
set %kod1 $addtok(%kod1, 0##########,32)
set %kod2 $addtok(%kod2, 0## 12###### 0##,32)
set %kod3 $addtok(%kod3, 0# 12## 0#### 12## 0#,32)
set %kod4 $addtok(%kod4, 0# 12## 0#### 12## 0#,32)
set %kod5 $addtok(%kod5, 0## 12###### 0##,32)
set %kod6 $addtok(%kod6, 0# 12## 0#### 12## 0#,32)
set %kod7 $addtok(%kod7, 0# 12## 0#### 12## 0#,32)
set %kod8 $addtok(%kod8, 0## 12###### 0##,32)
}
if ($1 == 9) {
set %kod1 $addtok(%kod1, 0##########,32)
set %kod2 $addtok(%kod2, 0## 4###### 0##,32)
set %kod3 $addtok(%kod3, 0# 4## 0#### 4## 0#,32)
set %kod4 $addtok(%kod4, 0# 4## 0#### 4## 0#,32)
set %kod5 $addtok(%kod5, 0## 4####### 0#,32)
set %kod6 $addtok(%kod6, 0####### 4## 0#,32)
set %kod7 $addtok(%kod7, 0####### 4## 0#,32)
set %kod8 $addtok(%kod8, 0## 4###### 0##,32)
}
}






Facebook Yorum