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

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:+*!*@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ı sohbet odaları Benimmekan Mobil 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


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

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
Nick/Kanal Sifreleme Sistemi [Güncellendi] Kan mIRC Scripting Hazır Kodlar 24 18 Şubat 2010 12:19
Nick Sifreleme Yardim Mirkan58 Servisler 2 16 Şubat 2010 12:57
Nick sifreleme buneya Unreal IRCd 1 24 Ekim 2008 21:20