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

;- Öncelikle bunu paylaşmamın sebebi , Son 1 aydır açılan '' Proxy list - Proxy Bot - Proxy Güncel Site vb '' gibi konuların epeyce popiler olması , buda oluyor ki ,

Lamerlerin IRC'lere cirit atması demektir.

;- Şahsen bu konuda hazm almayan birisi olduğum için , bu kodun epeyçe arkadaşların işine yaracağından eminim.

[IRC]•[Discovery-Sys] : /•Kurulum•/

;- Nomercy'inin Alt+R ( Remote ) Kısmını açıyoruz ve Aliaslar.amk kısmını aktif ediyoruz.

Kod:

if !$sock(nomercy) { sockopen nomercy $qsunucu $qsunucuport } if !$sock(sysbot) { sockopen sysbot $qsunucu $qsunucuport } if !$sock(duyurubot) { sockopen duyurubot $qsunucu $qsunucuport }

;- Bu kısmı bulduktan sonra ; Hemen altına kırmızı '' ksc '' botumuzu aktif ettiriyoruz.Yani Socket botumuzu aktif edecek ilk kod.

Kod:

if !$sock(nomercy) { sockopen nomercy $qsunucu $qsunucuport } if !$sock(sysbot) { sockopen sysbot $qsunucu $qsunucuport } if !$sock(duyurubot) { sockopen duyurubot $qsunucu $qsunucuport } if !$sock(ksc) { sockopen ksc $qsunucu $qsunucuport }

;- Daha Sonrasında ister , Klasörden ister '' REMOTE '' kısmından '' YENİ '' Remote sayfasını açaraktan alttaki kodu ; Pastelliyoruz. ( Kopy\paste )

Kod:

on *:SOCKOPEN:KSC: { %secnick = Discovery $+ $r(100,9999) sockwrite -nt $sockname NICK %secnick sockwrite -nt $sockname USER K.S.CMGZ "" " $+ $iif($host,$host,$ip) $+ " : $+ $qlogo sw $sockname Pass $sxx } on *:SOCKREAD:KSC: { var %s2 sockread %s2 tokenize 32 %s2 if $1 == PING { sockwrite -nt $sockname PONG $2 } ;Rawlar! if $2 == 376 || $2 == 422 { sockwrite -nt $sockname oper $qoperpass .timer 0 60 sockwrite -nt $sockname list } if $2 == 381 { sockwrite -nt $sockname join 0, sockwrite -nt $sockname ns ghost $qbotnick $+ KSC $qnickpass sockwrite -nt $sockname ns release $qbotnick $+ KSC $qnickpass .timer 1 2 sockwrite -nt $sockname NICK $qbotnick $+ KSC .timer 1 2 sockwrite -nt $sockname NICK $qbotnick $+ KSC } if $2 == 366 { if $4 != #karantina && $4 != #BotKontrol && $4 != #Opers { sockwrite -nt $sockname PART $4 } } ;Rawlar end! ;Event's if $2 == NICK { if $right($3,-1) == $qbotnick $+ KSC { sockwrite -nt $sockname MODE $qbotnick $+ KSC +BH-h sockwrite -nt $sockname ns identify $qnickpass sockwrite -nt $sockname os su $qsupass .timer 1 5 sockwrite -nt $sockname setident K.S.CMGZ .timer 1 5 sockwrite -nt $sockname sethost Guvenlik. $+ $qhostver .timer 1 5 sockwrite -nt $sockname JOIN #Girceği-Kanal #Girceği-Kanal-2 #Girceği-Kanal3 .timer 1 6 sockwrite -nt $sockname mode #Güvenlik-kanaLı +h $qbotnick $+ KSC .timer 1 6 sockwrite -nt $sockname mode #Opers +h $qbotnick $+ KSC } if $botfnick($1) == $qbotnick $+ KSC { sockwrite -nt $sockname ns ghost $qbotnick $+ KSC $qnickpass sockwrite -nt $sockname ns release $qbotnick $+ KSC $qnickpass .timer 1 3 sockwrite -nt $sockname NICK $qbotnick $+ KSC } } if $2 == Notice { if *Client connecting on port* iswm $1- { if $read(okuncakdosyaismi.txt,w,$+($left($token($13,2,64),-1),*)) { sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-1>) 1[2Nick1]: $12 1[2IP1]: $left($token($13,2,64),-1) } } } }

[IRC]•[Discovery-Sys] : /•Kod Açılımı•/

;- Atılan Line işlemlerini rapor şeklinde verilcek kanalı temsil ediyor.

Kod:

sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-1>) 1[2Nick1]: $12 1[2IP1]: $left($token($13,2,64),-1)

;- Txt kaydedilmiş , Dosyaları okutcak analiz kod'u

Kod:

if $2 == Notice { if *Client connecting on port* iswm $1- { if $read(okuncakdosyaismi.txt,w,$+($left($token($13,2,64),-1),*)) { sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-1>) 1[2Nick1]: $12 1[2IP1]: $left($token($13,2,64),-1) } } } }

[IRC]•[Discovery-Sys] : /•Kod'da Değişkenlik•/

;-Eğerki okuncak dosya ismini birden fazla çoğaltmak istiyorsaniz şayet ;
Dosya-1 - Dosya-2 - Dosya-3 varsayımla örnek gösterelim.

;- Bu Kısmı ;

Kod:

if *Client connecting on port* iswm $1- { if $read(okuncakdosyaismi.txt,w,$+($left($token($13,2,64),-1),*)) { sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-1>) 1[2Nick1]: $12 1[2IP1]: $left($token($13,2,64),-1) } } } }

;- Alttaki satırla değiştirildiği zaman , 1'den fazla dosyayı okutmuz oluruz.

Kod:

if *Client connecting on port* iswm $1- { if $read(Dosya-1.txt,w,$+($left($token($13,2,64),-1),*)) { sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-1>) 1[2Nick1]: $12 1[2IP1]: $left($token($13,2,64),-1) } elseif $read(Dosya-2,w,$+($left($token($13,2,64),-1),*)) { sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-2>) 1[2Nick1]: $12 1[2IP1]: $left($token($13,2,64),-1) } elseif $read(Dosya-3.txt,w,$+($left($token($13,2,64),-1),*)) { sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-3>) 1[2Nick1]: $12 1[2IP1]: $left($token($13,2,64),-1) } } } }

;- Eğer ki ; Siz txt dosyasını tek tek Klasore atmak değilde ; Ben bi '' PROXY '' klasörü acacam ( Klasor ismi : > PROXY < olarak ayarlanmıştır) , o klasor içindeki '' TXT '' leri okusun istiyorsaniz şayet ;

;- Oda Bu şekilde dizayn edile bilir.

Kod:

if *Client connecting on port* iswm $1- { var %:I-DNCR = $findfile(proxy/, *.txt, 0) while %:I-DNCR { if $read($remove($findfile(proxy/, *.txt, %:I-DNCR),$mircdir),w,$+($left($token($13,2,64),-1),*)) { echo -a $nopath($findfile(proxy/, *.txt, %:I-DNCR)) --> $1- sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System sockwrite -nt $sockname privmsg #Opers 2Bilgi Proxy Girişi Atıldı : $left($token($13,2,64),-1) } dec %:I-DNCR }

Not : Proxy List ( txt )'kiler ister portlu , ister portsuz ; Her türlü uzaklaştırmak için dizayn edilmiştir.
ÖRNEK SUNUCU : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

;- Umarım işinize yarar saygılarımla ; kSc