IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  digitalpanel

 Kayıt ol
Etiketlenen Kullanıcılar

1Beğeni(ler)
  • 1 Post By Set

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 24 Haziran 2010, 21:01   #1
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
KanaL Sifreleme [Bot Icın]



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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)
  }
}

Deneme Nick : Entrance

Kod Calisimi Sırasinda KanaLa Giris Nick ;


PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

[20:41] *** Giriş: Entrance (Entv2@4770E05F.D506E870.DDC0F480.IP)
[20:41] *** Aeg mod değiştirdi:+b *!*@4770E05F.D506E870.DDC0F480.IP
[20:41] *** Entrance Aeg Tarafından Kanaldan Atıldı (Bu Kanal Tarafimca Sifrelenmistir , Lutfen Ozelinizdeki Ekranda Gordugunuz Kodu !kod 1  Seklinde Giriniz.) 

Kodun Ozelde Gösterimi.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Bot Icın Yazilmis Bir Koddur , Bu Kodu Ozel'de !komutlar Kullanimina Ekleterekde Kullanabilirsiniz , Sadece Kendi Istediginiz Kanallardada Kullanabilirsiniz. ins. isinize Yarar. Hayırlı IF'ler..

Konu Set tarafından (24 Haziran 2010 Saat 23:36 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet sohbet
Alt 24 Haziran 2010, 21:44   #2
Çevrimdışı
¿
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: KanaL Sifreleme [Bot Icın]



3 Haneli olsaydi daha iyi olurdu abim verilen kodlari yanyana 3 haneli versin.
Ayrica;
"Merhaba Entrance, Lütfen Ekranda Gordugunuz Kodu !kod 1 Seklinde Giriniz."
Bu sekilde acik vermis olursun. :d

on *:text:*:?:{
if ($nick == Aeg) && (*L?tfen*Ekranda*G?rd???n?z*Kodu* iswm $1-) { .msg Aeg !kod $8 }
}

Bu remote ile otomatik giris saglayabilirim mesela :d

"Merhaba Entrance, Lütfen Ekranda Gordugunuz Kodu !kod <KOD> Seklinde Giriniz."
"ORNEK: !kod 123"
gibi yaparsan daha iyi olur. :d

Iyi forumlar.

 
Alıntı ile Cevapla

Alt 24 Haziran 2010, 23:36   #3
Çevrimdışı
Cry
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: KanaL Sifreleme [Bot Icın]



Niye benim nickim geçmiyor kod'da, niye Entrance yani? Niye??? Kod çirkin olmuş beğenmedim, ben daha iyisini yazardım. Ok by.

 
Alıntı ile Cevapla

Alt 24 Haziran 2010, 23:37   #4
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: KanaL Sifreleme [Bot Icın]



Namesis abem dedigin gibi degiştirdim , Cry Q An O Ordaydi Ne Yapiyim Yani
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 25 Haziran 2010, 00:36   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: KanaL Sifreleme [Bot Icın]



Set Güzel bir çalışma
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Emeğine sağlık.

__________________
...yoruldum patron! "
 
Alıntı ile Cevapla

Alt 25 Haziran 2010, 01:12   #6
Çevrimdışı
¿
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: KanaL Sifreleme [Bot Icın]



Abim olmus, sunu 3 haneli yaparsan daha guzel olacak.
Yalniz 1 eksigi daha var, kullanici kodu girdikten sonra kanallarda ki banlarini da acmasi gerek banliyken kullanici nasil konusacak ? :d

 
Alıntı ile Cevapla

Alt 25 Haziran 2010, 16:14   #7
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: KanaL Sifreleme [Bot Icın]



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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
  }
}

bu ekli zaten abem
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kırmızı olan yerde gördügün gibi.

 
Alıntı ile Cevapla

Alt 25 Haziran 2010, 16:23   #8
Çevrimdışı
¿
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: KanaL Sifreleme [Bot Icın]



Eklemissin ama acmiyor abim bani. :d

 
Alıntı ile Cevapla

Cevapla

Etiketler
bot, icın, kanal, mirc, mirc download, mirc indir, sifreleme

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Sana Seslenmek Içın yeSa Şiir, Hikaye ve Güzel Sözler 0 10 Mart 2020 03:02
Sade Ve OpLaar Icın Script rX mIRC Scripting Tanıtımları 6 04 Mart 2010 13:07
Nick/Kanal Sifreleme Sistemi [Güncellendi] Kan mIRC Scripting Hazır Kodlar 24 18 Şubat 2010 12:19
Nick sifreleme buneya Unreal IRCd 1 24 Ekim 2008 21:20




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
trsikayet.com ferizli haber kaynarca haber yavru köpek sohbet instagram takipçi sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org 副業 https://www.newstrendline.com/