| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: mIRC Clone Uyarıcı Remotesi
| Giant Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
2*** 0,4 Clone Tespit Edildi:0,3 M_engineer M_engineer_ 0,10 2 0,5 Tane 0,7!!
Bu clonelerin yanına bir de ip adresini ekleyebilir misin (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) gibi.
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:15 -->-> Daha önceki mesaj 19:10 --
2 adet clone uyarıcı bende buldum
1.si ;
Kod: Kodu kopyalamak için üzerine çift tıklayın! on *:join:#: {
if ($regex($wildsite,/(sohbet.net)/i)) { halt }
%clones = $ialchan($wildsite,#,0)
if ( %clones > 1 ) {
var %count = 1
set %clone.nicks
while (%count <= %clones) {
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick
inc %count }
if (%clones > 3) { }
.echo $chan 5Ayni IP adresten giren nickler: 7( $remove(%clone.nicks, 5) 5 ) 5 ( %clones 5Kisi ) }
}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
2. buldum clone remotesi
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:start:if $isfile(eskinicks.63) { hmake eskinicks | hload eskinicks eskinicks.63 }
on *:join:#: {
if !$ial { ial on }
if $nick == $me { return }
hadd -m eskinicks $wildsite $addtok($hget(eskinicks,$wildsite),$nick,32)
hsave eskinicks eskinicks.63
if $numtok($hget(eskinicks,$wildsite),32) >= 2 {
echo # $wildsite hostundan girmis eski nickler: $hget(eskinicks,$wildsite)
}
if $ialchan($wildsite,#,0) >= 2 {
var %x 1 | while $ialchan($wildsite,#,%x) { var %v1 $token($v1,1,$asc(!)) | var %nicks %nicks %v1 | inc %x }
echo # $wildsite bagli kanaldaki cloneler: %nicks
}
}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Birilerine lazım olabilir.
| Kod: Kodu kopyalamak için üzerine çift tıklayın! on *:join:*: {
%clones = $ialchan($wildsite,#,0)
if ( %clones > 1 ) {
var %count = 1
set %clone.nicks –>
while (%count <= %clones) {
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick
inc %count }
/echo $chan 2*** 0,4 Clone Tespit Edildi:0,3 $address($nick,2) $remove(%clone.nicks,–>) 0,10 %clones 0,5 Tane 0,7!! }
set %change $read -s $+ $address($nick,4) notes.ini
if (%change == $null) {
haltdef
write notes.ini $address($nick,4) $nick
halt
}
}
Hostları görürsün
Ya da biraz daha fantazi olsun kodu uzatalım gerek yok ama Kod: Kodu kopyalamak için üzerine çift tıklayın! raw 352:*:{
set %:ident $3
set %:host $4
}
on *:join:*: {
who +I $nick
%clones = $ialchan($wildsite,#,0)
if ( %clones > 1 ) {
var %count = 1
set %clone.nicks –>
while (%count <= %clones) {
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick
inc %count }
/echo $chan 2*** 0,4 Clone Tespit Edildi:0,3 $+(%:ident,@,%:host) $remove(%clone.nicks,–>) 0,10 %clones 0,5 Tane 0,7!! }
set %change $read -s $+ $address($nick,4) notes.ini
if (%change == $null) {
haltdef
write notes.ini $address($nick,4) $nick
halt
}
}
__________________
Kahpeliğin bahanesi, İhanetin telafisi olmaz.
Konu Bozkurt- tarafından (24 Aralık 2022 Saat 20:48 ) değiştirilmiştir.
|