Archive for the ‘Remote’ Category
Super Saldırı Remotesi
Arkadasla verecegım Remoteyi Harfiyen Uygularsanız Emın Olun Guzel Bır Sekılde Calısıcaktır
spam {
if (%meydeymeydey != 1) {
%meydeymeydey = 1
mode $me +s +ckeG
echo -a Anti Spam OnLine.
halt }
elseif (%meydeymeydey == 1) {
unset %meydeymeydey
echo -a Anti Spam offLine
echo -a Toplam Kline say?s?: %klinecount
unset %klinecount
window -c @ConnExit
}
}
Bu kodede mircin remote lerine eklenecektir
menu @ConnExit {
dclick: {
%satir = $line(@ConnExit, $1)
%glineho = $pos(%satir,@,1) + 1
%hede = $pos(%satir,[,1) - 2
%bukadar = %hede - %glineho
%glinehoo = $mid(%satir, %glineho, %bukadar)
aline -c4 @ConnExit G-Line %glinehoo
dline @ConnExit $1
gline *@ $+ %glinehoo +90d : Spam
unset %satir
unset %hede
unset %bukadar
unset %glineho*
}
}
On ^1:SNOTICE:*connecting*: {
if (%meydeymeydey == 1) {
if ($window(@ConnExit, wid) == 0) { window -dChk[0]l +ftl @ConnExit }
aline -c7 @ConnExit $4-
if ($len($9) >= 9) {
%a = $left($9,4)
%i = 0
%bukadar = 0
while (%i < 4) {
inc %i
%b = $mid(%a, %i,1)
if (%b isin qwrtypsdfghjklzxcvbnm) {
inc %bukadar
}
}
if (%bukadar == 4) {
%glineho = $pos($10,@,1) + 1
%glinehos = $mid($10, %glineho, $len($10) – 1)
%uzun = $len(%glinehos) – 1
%glinehost = $left(%glinehos, %uzun)
aline -c4 @ConnExit G-line $9 %glinehost
gline *@ $+ %glinehost +365d : Spam
unset %glineho
unset %glinehos
unset %uzun
unset %glinehost
inc %glinecount
}
unset %bukadar
}
}
haltdef
}
On ^1:SNOTICE:*exiting*: {
if (%meydeymeydey == 1) {
if ($window(@ConnExit, wid) == 0) { window -dChk[0]l +ftl @ConnExit }
aline -c12 @ConnExit $4-
haltdef
}
}
Bu codeleri ekledikten sonra mircde önce /remote on sonrada /spam yazıyorsunuz eger basarılı bir sekilde uygulayabildiyseniz anti spam online diye bir msg çıkıyor karsınıza ve sistem hazır olmus oluyor bu saniyeden sonra girenler için yeni bir pencere açılacak ve bu size gösterilecektir
mIRC Remoteleri
::::::::::::::::::::::::::::::::::::::::::::::::
: Snotice bölümü :
: ;
: St By KanaS :
::::::::::::::::::::::::::::::::::::::::::::::::
#snoticersPr off
alias deb {
debug -i db debg debg
}
alias debg {
tokenize 32 $1-
echo -s : $1-
}
on ^*:snotice:*: {
if (*client*connect*on*port* iswm $1-) {
tr $remove($gettok($10,2,64),$chr(40),$chr(41),$chr(6 4))
$iif(!$window(@G.C), window -fen @G.C verdana 9)
echo 5 @G.C $1-
}
halt
}
alias po {
return 21 22 23 33 47 56 54 70 1046 1080 1182 1183 1184 1188 1214 1278 1279 1745 1795 2124 2172 2173 2174 2175 2301 3128 3124 3127 4480 5463 6667 6588 8080 8000 8001 8118 8888 8922 10102 26260 31337 44322
}
alias tr {
set %prx $ticks
.dns $1
set %ip $1 | var %pi = 1
while (%pi <= $gettok($po,0,32)) {
var %ki = $gettok($po,%pi,32)
sockopen $+(prx-,$1,-,$md5($+($r(a,z),$r(1,999),$ticks,$r(A,Z)))) %ip %ki
inc %pi
}
;echo 4 Taranan portlar:3 $gettok($po,0,32) (Ad.) :2 $po
}
on *:sockopen:*prx-*: {
if ($sockerr) { sockclose $sockname | return }
;echo 2 IP: $sock($sockname).ip $chr(32)4PORT: $sock($sockname).port 4TIP: $sock($sockname).type 4AÇIK\\\\KAPALI: $portfree($sockerr) 4HATA\\\\WS_Err: $sock($sockname).wserr 4MESAJ\\\\WS_Msg: $sock($sockname).wsmsg
if ($portfree($sockerr)) {
var %ipssust $sock($sockname).ip
if (%prShun == on) { shun $+(*@,$sock($sockname).ip) 10m %prlogo }
if (%prakill == on) { os killclones $9 %prlogo }
if (%prkill == on) { kill $9 %prlogo }
if (%prz-Line == on) { zline $+(*@,$sock($sockname).ip) 10m %prlogo }
sockclose $+(*,$sock($sockname).ip,*)
$iif(!$window(@Line),window -fen @Line verdana 9,echo @Line GzlineD %ipssust Proxy taramas?ndan geçemeyen ip pasif edildi. )
return
}
.sockclose $sockname
}
on *:sockread:prx-*:{
if ($sockerr > 0) { echo :HATA: $sock($sockname).wserr | return }
; echo 4 -s :---> $sock($sockname).ip $sock($sockname).port
sockclose $sockname
}
on *:dns:{
if (%prx) {
var %di = $dns(0)
while (%di > 0) {
echo 2 $chr(32) 4DNS: $dns(%di) 4ADRES: $dns(%di).addr \\\\ $dns(%di).ip
dec %di
}
unset %prx | unset %ip
halt
}
unset %prx | unset %ip
}
#snoticersPr end
#joinnnPr on
on @prox:join:#:{
if (%prkick == on) { kick # $nick %prlogo }
if (%prban == on) { ban $iif(%prbavaxt isnum,-u $+ %prbavaxt) # $nick 2 }
if (%prShun == on) { shun $nick +10m %prlogo }
if (%prakill == on) { os killclones $nick }
if (%prkill == on) { kill $nick %prlogo }
if (%prz-Line == on) { zline $nick +10m %prlogo }
}
#joinnnPr end
alias proxy { .dialog -m proxxy proxxy }
dialog proxxy {
title \\"Karadeniz TEAM\\"
size -1 -1 150 90
option dbu
box \\"KeLime *!*@ip\\", 1, 86 0 64 89
combo 2, 89 7 59 71, size
button \\"Ekle\\", 3, 89 78 20 9
button \\"Sil\\", 4, 111 78 20 9
check \\" Z-Line \\", 8, 42 49 27 10
check \\" KiLL\\", 9, 4 58 21 10
edit \\"\\", 10, 26 31 23 10
text \\"Saniye\\", 11, 50 32 20 8
box \\"Ayir\\", 12, 1 0 40 26
box \\"ceza\\", 112, 1 25 83 44
check \\"@plar\\", 13, 5 6 34 10
check \\"+v\\", 14, 5 15 30 10
check \\" AKiLL\\", 7, 42 58 27 10
check \\" Kick\\", 15, 4 40 21 10
check \\" Ban\\", 16, 4 31 21 10
check \\" Shun\\", 17, 4 49 26 10
box \\"Mod\\", 18, 44 0 40 26
radio \\"admin\\", 21, 47 6 26 10
radio \\"aop\\", 22, 47 15 26 10
button \\"X\\", 5, 141 78 7 9, ok
box \\"\\", 6, 1 67 83 22
}
on *:dialog:proxxy:init:*:{
if %pr@plar == on { did -c $dname 13 }
if %pr+v == on { did -c $dname 14 }
if %prz-Line == on { did -c $dname 8 }
if %prkill == on { did -c $dname 9 }
if %prakill == on { did -c $dname 7 }
if %prShun == on { did -c $dname 17 }
if %prban == on { did -c $dname 16 }
if %prKick == on { did -c $dname 15 }
if ($group(#snoticersPr) == on) { did -c $dname 21 }
if ($group(#joinnnPr) == on) { did -c $dname 22 }
if ($ulist(*,prox,0) != $null) { var %i = 1 | while $ulist(*,prox,%i) { did -a $dname 2 $v1 | inc %i } }
did -a $dname 10 %prbavaxt
}
on *:dialog:proxxy:sclick:*:{
if $istok(7 8 9 13 14 15 16 17 ,$did,32) { $iif($did($did).state == 1,set %pr $+ $gettok($did($did).text,1,32) on,.set %pr $+ $gettok($did($did).text,1,32) off) }
if ($did == 3) { if ($did(2) != $null) { did -a $dname 2 $did(2) | .auser prox $did(2) } }
if ($did == 4) { if $did(2).seltext { .ruser prox $did(2).seltext | did -d $dname 2 $did(2).sel } }
if ($did = 21) { .disable #joinnnPr | .enable #snoticersPr | echo -a 4[ 1dikkat 4] proxy korumas? için admin modu devrede | did -b proxxy 10,11,13,14,15,16 }
if ($did = 22) { .disable #snoticersPr | .enable #joinnnPr | echo -a 4[ 1dikkat 4] proxy korumas? için admin modu devred??? | did -e proxxy 10,11,13,14,15,16 }
}
on *:dialog:proxxy:edit:*:{
%prbavaxt = $did(10)
}
Super Remote Tavsıye Ederim
Arkadaslar Bu Verecegım Remote Cok Amaclı Bır Remotedır Hepınıze Tavsıye Ederim
Remoteleri dosya dosya açın öyle yükleyin , hepsini bir dosya açarak yükleyin, hepsi denenmistir.
1) Kimin size seslendi?gini görmek için :
On *:Text:*:#:{
if $istok(NoMercy Egitim,$nick,32) { halt }
If ($me isin $1-) { echo -a UYARI $nick Nicki $chan Kanal?ndan sana seslendi $1- | flash -w Ça?r? Var }}
}
2) Kanala giri? mesaj? :
on *:join:#: {
if $nick == $me {
if $istok(#help #helpers #e?itim #help-e?itim,$chan,32) { halt }
msg $chan Giri? Mesaj?n?z (Sa. vs). }
}
3) Sunucuya girer girmez nickinizin otomatik identify edilmesi için :
on *:CONNECT: {
.msg NickServ IDENTIFY ?ifreniz
}
4)Helperler için ; Kanala user girdi?i zaman uyar? verir ve yan?p söner:
on !*:join:#help: { /echo -a Nickiniz #Help kanal?na $nick Girdi yard?m bekliyor | /beep 7 | /flash -w Help\\\'e BaK. }
5) Helperler için ; Whois çekene mesaj gönderir :
on ^1:SNOTICE:*:{
if (/WHOIS isin $1-) {
if ($window(@Whois) == $null) { window -ne @Whois }
/echo 5 -t @whois $2 $+ , size whois çekti.
/msg $2 Mesaj?n?z .. ( Buyrun vs )
}
}
6) Özelinize gelene kar??lama mesaj? :
on *pen:?:*:{
msg $nick Mesaj?n?z(Buyrun vs)
7) Voice(+), Halfop(%), Op(@) : Te?ekkür mesaj? :
on *p:#:{ if $opnick == $me && $nick != $me { msg $chan t?k. Mesaj?n?z % için t?k. } }
on *:help:#:{ if $hnick == $me && $nick != $me { msg $chan t?k. mesaj?n?z @ için t?k. } }
on *:voice:#:{ if $vnick == $me && $nick != $me { msg $chan t?k. mesaj?n?z + için t?k } }
.sil , sayfa temizlemek için : sadece @ olanlar komutu kullanabilir. S?Z HAR?Ç.
on *:text:.sil:#:{
if $nick isop $chan {
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan $chr(160)
/msg $chan sayfa temizlendi.
else {
/msg $chan Siz # kanal?nda, herhangi bir eri?ime sahip de?ilsiniz $nick $+ .
}
}
9) Random nick korumas? : xyhsgd , xyzt , aksja gibi nickleri kanaldan atar.
alias randomnick if ($randn2($1)) || ($randn($1)) { return $true } | else { return $false }
alias randn2 {
if $1- isalpha && $1- islower {
if (($count($1,a,e,i,o,u) >= 4)) { return $false }
if ($regex($1-,/([[rint:]])\\\\1\\\\1/gi) >= 1) { return $false }
if ($len($1) >= 4) && ($regex($1,/^[a-z]+$)) {
if ($regex($1,/^[^aeiou]{3}/)) { return $true }
elseif ($regex($1,/([a-z])\\\\1{2}/)) { return $true }
elseif ($regex($1,/[aeiou]{3/)) { return $true }
elseif ($regex($1,q[^u])) { return $true }
elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true }
else { return $false }
}
}
}
alias randn {
if $1- isalpha && $1- islower {
if ($regex($1-,/([[rint:]])\\\\1\\\\1/gi) >= 1) { return $false }
if ($len($1) == 7) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) &#8211; 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) &#8211; 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == 9) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) &#8211; 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,4,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == 10) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) &#8211; 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,4,5),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
if ($regex($1,/(o|i|a|e|u)/g) <= 0) && ($len($1) == 4) { return $true }
elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 5) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) &#8211; 1),1)
if (%son == %son2) { return $false }
else { return $true }
}
elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 6) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) &#8211; 1),1)
if (%son == %son2) { return $false }
else { return $true }
}
elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) == 10) { return $true }
elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) >= 11) { return $true }
else { return $false }
}
}
menu channel,status {
Random Nick Korumas?
Aç :.enable #random | echo -at 14,1Random Korumas? 4,1Aç?Ld?!!
kapat:.disable #random | echo -at 14,1Random Korumas? 4,1Aç?Ld?!!
}
#random on
on !*:join:#: {
if $regex($nick,/(Chick|Prens|butterfly)/i) { halt }
if ($randomnick($nick)) {
/ban -ku180 # $nick Random nick kullanmak yasakt?r.
}
}
#random end
Botnet Mesajlarına Oto Spam Koruma Remotesi
Arkadaslar Bu Sefer verdigim remote Oper/Adminlein Kullana BiLecegi Bir Remotedir Amacı Özelıne RekLam Yapan Botnetlere Oto Spam Atmak Icındır Umarım İşinize yarar Tesekkurler
Buyuk Harf Korumasi Kodu
Kod:
alias capsban { if (%ipban == on) { //Ban -u $+ 900 # $nick 2 } | mode # +b $$1 }
#caps on
on @*:TEXT:*:#: {
if $me !isop $chan { halt } | if $nick isop $chan { halt }
if ($len($1-) &lt; 50) || ($nick isop #) return
var %text = $strip($remove($1-,$chr(32)))
var %non.caps = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z))
var %full.line = $len($strip($remove(%text,$chr(32))))
var %percent = $calc(1 - (%non.caps / %full.line))
if (%percent &gt;= 0.8) {
/mode $chan +b $address($nick,2) | /kick $chan $nick 7¤ 13CAPS LOCK/OFF2 [14!2] 7¤ ( $+ % $+ $calc(%percent * 100) $+ )
unset %CAPS. $+ $nick
}
}
#caps end
Super Koruma Remotesi
ArkadasLar Merhaba Verecegim Remote Kanalda Buyuk Harfle Yazan Kullanıcıları Kanaldan Uzaklastırmak Amacı İle Kullanılmaktadır Umarım İşinize Yarar Şimdiden Tesekkur Ederim
Buyuk Harf Korumasi Kodu
Kod:
alias capsban { if (%ipban == on) { //Ban -u $+ 900 # $nick 2 } | mode # +b $$1 }
#caps on
on @*:TEXT:*:#: {
if $me !isop $chan { halt } | if $nick isop $chan { halt }
if ($len($1-) &lt; 50) || ($nick isop #) return
var %text = $strip($remove($1-,$chr(32)))
var %non.caps = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z))
var %full.line = $len($strip($remove(%text,$chr(32))))
var %percent = $calc(1 - (%non.caps / %full.line))
if (%percent &gt;= 0.8) {
/mode $chan +b $address($nick,2) | /kick $chan $nick 7¤ 13CAPS LOCK/OFF2 [14!2] 7¤ ( $+ % $+ $calc(%percent * 100) $+ )
unset %CAPS. $+ $nick
}
}
#caps end