Hazır Kodlar | Türkçe mIRC indir - Resmi mIRC indirme Sitesi

mIRC /sread Remote Okuma

02 Aralık 2015 • 11:50 OxiGeN Hazır Kodlar

Bilgi: /sread komutu ile mIRC’inizde yüklü remotelerin listelendiği bir combo açılır ve listeden seçtiğiniz remote dosyası ile aynı isimde bir pencere oluşur ve remote sayfası olduğu gibi o pencereye yansır. Kullanımı:

/sread

sread {
%remotes = $input(List, oem, Remotes, [ $left($regsubex($str(.,$script(0)),/./g,$nopath($script(\n)) $+ $chr(44)),-1) ] )
%win = @ $+ %remotes
window -en %win
loadbuf -r %win $shortfn($findfile($mircdir,%remotes,1) )
}

/sread

sread {

%remotes = $input(List, oem, Remotes, [ $left($regsubex($str(.,$script(0)),/./g,$nopath($script(\n)) $+ $chr(44)),-1) ] )

%win = @ $+ %remotes

window -en %win

loadbuf -r %win $shortfn($findfile($mircdir,%remotes,1) )

}

» Devamını Oku

Yorum yaz hazır kodlar, mirc, okuma, remote, scripting, turkce mırc

Ascii Dönüştürücü

02 Aralık 2015 • 10:11 OxiGeN Hazır Kodlar

Ascii Dönüştürücü kod’u gerçekten her coder’a gerekli kodlardan biridir, öncelikle basitçe Ascii Replacer(Ascii Dönüştürücü) nedir ondan bahsedelim. Özellikle web bağlantılı socketlerde karşınıza çok çıkabilecek sorunlardan birini ortadan kaldırmaya yarayan bu kod, webden gelen genellikle Türkçe karakterde bu sorunu yaratan bazı sembolleri orjinal haline çevirme amacıyla kullanılmaktadır. Mesela ö karakteri bir web karakteridir ve bunun karşılığı ö harfidir işte bu […]

» Devamını Oku

Yorum yaz

Türkçe Mirc Clone KorumaSı

01 Aralık 2015 • 13:08 OxiGeN Hazır Kodlar

Türkçe Mirc Clone KorumaSı

menu status,menubar, {
.-
.• © Turkirc Koruma !
..• Açık !:.enable #sericlone | .echo -a 0,4 Clone Saldirisi Korumasi AÇıldi. %logo
..• Kapalı !:.disable #sericlone | .echo -a 0,4 Clone Saldirisi Korumasi Kapatildi.. %logo
.-
}

#sericlone on
on *:snotice:*:{
if *Client*connecting*on* iswm $1- {
.timer 1 15 unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
inc %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
if %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] >= 2 {
.gzline $+(*@,$gettok($gettok($10,2,64),1,41)) 30d :
unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]
}
}
}

#sericlone end

menu status,menubar, {

.• © Turkirc Koruma !

..• Açık !:.enable #sericlone | .echo -a 0,4 Clone Saldirisi Korumasi AÇıldi. %logo

..• Kapalı !:.disable #sericlone | .echo -a 0,4 Clone Saldirisi Korumasi Kapatildi.. %logo

}

#sericlone on

on *:snotice:*:{

if *Client*connecting*on* iswm $1- {

.timer 1 15 unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]

inc %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]

if %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ] >= 2 {

.gzline $+(*@,$gettok($gettok($10,2,64),1,41)) 30d :

unset %xxx. [ $+ [ $gettok($gettok($10,2,64),1,41) ] ]

}

#sericlone end

» Devamını Oku

Yorum yaz addon, alias, clone, clone koruma, mirc, remote, script, turkce mırc, turkirc, variable

Multi GlobServ Socket Sistem

30 Kasım 2015 • 16:43 OxiGeN Hazır Kodlar

alias sw { if $sock($1).status == active { sockwrite -nt $1- } }
alias sunucu return irc.maytap.net 6667
alias opers return Aeg 12345
alias botnick return GlobServ
alias password return b12345
alias ident return Services
alias host return maytap.Net
alias global return #sohbet
alias nochan return #cinsellik
alias yonetim return #operhelp,#help,#helpers
alias operchan return #opers
alias saniye return 120
alias bagla {
sockclose globserv
sockopen globserv $sunucu
}
alias kopar {
sockclose globserv
}
on *:SOCKOPEN:globserv: {
sw $sockname nick $botnick
sw $sockname USER $ident " " : $+ $+([,,Multi Global,,]) System v1
}
on *:sockread:globserv: {
if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
var %q
sockread %q
tokenize 32 %q
var %sock = $gettok($sockname,2-,11)
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 {
sw $sockname oper $opers
sw $sockname identify $password
sw $sockname sethost $host
sw $sockname join 0,
sw $sockname join $operchan
timerliste 0 $saniye sw $sockname list
}
if ($2 == 322) {
if ($5 > 1) && (!$istok($nochan ,$4,44)) && (!$istok($yonetim,$4,44)) && ($4 !== $operchan) { sw $sockname join $4 | sw $sockname who +R $4 | sw $sockname part $4 | unset %kotn.* }
}
if ($2 == 352) {
if (%kotn. [ $+ [ $8 ] ] !== $null) { halt }
if ($mfind($8)) { halt }
sw $sockname whois $8
set %kotn. $+ $8 1
}
if ($2 == 319) {
if ( $+(*,#,$global,*) !iswm $5- ) && ( $+(*,#,$nochan,*) !iswm $5- ) {
sw $sockname sajoin $4 $global
sw $sockname privmsg $4 5Sunucu Uzerinde Bulundugunuz Kanallar;
sw $sockname privmsg $4 5Kanallar:4 $5-
sw $sockname privmsg $4 5Tarafimca Sunucuda Bulunan Butun Rumuz/Nick 'leri $global Kanalda Tutmam Mecburidir.
}
}
if ($2 == privmsg) && ($3 == $operchan) {
if (!muafadd isin $4) { set %chan $3 | madd $5 }
if (!muafdel isin $4) { set %chan $3 | mdel $5 }
if (!muaflist isin $4) { mlist $gettok($gettok($1,1,33),1,58) }
}
}
alias madd {
var %n = $left($calc($ctime * $rand(1000,9999)),7)
if ($1- == $null) { sw globserv PRIVMSG %chan lutfen nick yaziniz. | halt }
if ($hfind(muaf,$1-,0,W).data) { sw globserv PRIVMSG %chan $1 eskiden muaf listesinde bulunmaktadir. | halt }
hadd -m muaf %n $1-
hsave -o muaf muaf.ch
sw globserv PRIVMSG %chan $1 muaf listesine eklendi.
}
alias mdel {
if ($1- == $null) { sw globserv PRIVMSG %chan lutfen nick yaziniz. | halt }
if (!$hfind(muaf,$1-,0,W).data) { sw globserv PRIVMSG %chan bu nick listede bulunmamakta zaten. | halt }
hdel muaf $hfind(muaf,$1-,1,W).data
hsave -o muaf muaf.ch
.hfree -sw muaf
hmake muaf
hload muaf muaf.ch
sw globserv PRIVMSG %chan $1 muaf listesinden silindi.
}
alias mfind {
var %muaf = $remove($1-,$chr(44))
if ($hfind(muaf,%muaf,1,W).data) { return 1 }
else { return 0 }
}
alias mlist {
var %i = 1, %t = $hget(muaf,0).data
if (!%t) && (!$hget(muaf)) {
hmake muaf 100
hload muaf muaf.ch
}
sw globserv PRIVMSG $1- muaf listesi.
while (%i < = %t) {
%d = $hget(muaf,%i).data
if (%d != $null) {
sw globserv PRIVMSG $1- %i - %d
}
inc %i
}
sw globserv PRIVMSG $1- muaf listesi sonu.
}

Multi GlobServ , ne işe yarar ?

Sunucuda Bulunan Butun Nickleri , 1 Global Kanalda Tutma Olasiligi Saglamaya Yarar kısacasi bu ,

Socket Bir Sistem Olup Sunucuda Bulunan Butun Kanallara belli bir sure araligiyla (sizin ayarliyacaginiz) kanallara giriş yapip tekrar cıkar ve ayarladiginiz kanalda bulunmayan userleri ayarladiginiz kanalla joinler, ama cinsel kanal muaf tutma ozelligi olup sadece muaf'ta bulunan kanal bulundugu kanallara arasinda ise ayarladiginiz kanala o useri cekmez , ins. anlatabilmişimdir uykusuz halde anlatmaya calişmaktayim cünqü =) ,

Muaf Nick Ayarlama Ozeligi ;

!muafadd Nick
!muafdel Nick
!muaflist

seklinde.

/bagla <= Yazdiginizda sunucuya baglar
/kopar <= Yazdiginizda sunucudan baglantisini koparir.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

alias sw { if $sock($1).status == active { sockwrite -nt $1- } }

alias sunucu return irc.maytap.net 6667

alias opers return Aeg 12345

alias botnick return GlobServ

alias password return b12345

alias ident return Services

alias host return maytap.Net

alias global return #sohbet

alias nochan return #cinsellik

alias yonetim return #operhelp,#help,#helpers

alias operchan return #opers

alias saniye return 120

alias bagla {

sockclose globserv

sockopen globserv $sunucu

}

alias kopar {

sockclose globserv

}

on *:SOCKOPEN:globserv: {

sw $sockname nick $botnick

sw $sockname USER $ident " " : $+ $+([,,Multi Global,,]) System v1

}

on *:sockread:globserv: {

if !$sock($sockname) { echo -a Baglanti Koptu! | halt }

var %q

sockread %q

tokenize 32 %q

var %sock = $gettok($sockname,2-,11)

if $1 == PING {

sw $sockname PONG $2

}

if $2 == 376 {

sw $sockname oper $opers

sw $sockname identify $password

sw $sockname sethost $host

sw $sockname join 0,

sw $sockname join $operchan

timerliste 0 $saniye sw $sockname list

}

if ($2 == 322) {

if ($5 > 1) && (!$istok($nochan ,$4,44)) && (!$istok($yonetim,$4,44)) && ($4 !== $operchan) { sw $sockname join $4 | sw $sockname who +R $4 | sw $sockname part $4 | unset %kotn.* }

}

if ($2 == 352) {

if (%kotn. [ $+ [ $8 ] ] !== $null) { halt }

if ($mfind($8)) { halt }

sw $sockname whois $8

set %kotn. $+ $8 1

}

if ($2 == 319) {

if ( $+(*,#,$global,*) !iswm $5- ) && ( $+(*,#,$nochan,*) !iswm $5- ) {

sw $sockname sajoin $4 $global

sw $sockname privmsg $4 5Sunucu Uzerinde Bulundugunuz Kanallar;

sw $sockname privmsg $4 5Kanallar:4 $5-

sw $sockname privmsg $4 5Tarafimca Sunucuda Bulunan Butun Rumuz/Nick 'leri $global Kanalda Tutmam Mecburidir.

}

if ($2 == privmsg) && ($3 == $operchan) {

if (!muafadd isin $4) { set %chan $3 | madd $5 }

if (!muafdel isin $4) { set %chan $3 | mdel $5 }

if (!muaflist isin $4) { mlist $gettok($gettok($1,1,33),1,58) }

}

alias madd {

var %n = $left($calc($ctime * $rand(1000,9999)),7)

if ($1- == $null) { sw globserv PRIVMSG %chan lutfen nick yaziniz. | halt }

if ($hfind(muaf,$1-,0,W).data) { sw globserv PRIVMSG %chan $1 eskiden muaf listesinde bulunmaktadir. | halt }

hadd -m muaf %n $1-

hsave -o muaf muaf.ch

sw globserv PRIVMSG %chan $1 muaf listesine eklendi.

}

alias mdel {

if ($1- == $null) { sw globserv PRIVMSG %chan lutfen nick yaziniz. | halt }

if (!$hfind(muaf,$1-,0,W).data) { sw globserv PRIVMSG %chan bu nick listede bulunmamakta zaten. | halt }

hdel muaf $hfind(muaf,$1-,1,W).data

hsave -o muaf muaf.ch

.hfree -sw muaf

hmake muaf

hload muaf muaf.ch

sw globserv PRIVMSG %chan $1 muaf listesinden silindi.

}

alias mfind {

var %muaf = $remove($1-,$chr(44))

if ($hfind(muaf,%muaf,1,W).data) { return 1 }

else { return 0 }

}

alias mlist {

var %i = 1, %t = $hget(muaf,0).data

if (!%t) && (!$hget(muaf)) {

hmake muaf 100

hload muaf muaf.ch

}

sw globserv PRIVMSG $1- muaf listesi.

while (%i < = %t) {

%d = $hget(muaf,%i).data

if (%d != $null) {

sw globserv PRIVMSG $1- %i - %d

}

inc %i

}

sw globserv PRIVMSG $1- muaf listesi sonu.

}

Multi GlobServ , ne işe yarar ?

Sunucuda Bulunan Butun Nickleri , 1 Global Kanalda Tutma Olasiligi Saglamaya Yarar kısacasi bu ,

Socket Bir Sistem Olup Sunucuda Bulunan Butun Kanallara belli bir sure araligiyla (sizin ayarliyacaginiz) kanallara giriş yapip tekrar cıkar ve ayarladiginiz kanalda bulunmayan userleri ayarladiginiz kanalla joinler, ama cinsel kanal muaf tutma ozelligi olup sadece muaf'ta bulunan kanal bulundugu kanallara arasinda ise ayarladiginiz kanala o useri cekmez , ins. anlatabilmişimdir uykusuz halde anlatmaya calişmaktayim cünqü =) ,

Muaf Nick Ayarlama Ozeligi ;

!muafadd Nick

!muafdel Nick

!muaflist

seklinde.

/bagla <= Yazdiginizda sunucuya baglar

/kopar <= Yazdiginizda sunucudan baglantisini koparir.

Alıntrıdır.

» Devamını Oku

Yorum yaz globserv, hazır kodlar, mirc, mult, scripting, sistem, socket, turkce mırc

mIRC ProxyKiller 3 SE

30 Kasım 2015 • 16:40 OxiGeN Hazır Kodlar, Socket Botlar

bu proxy-sock[4-5] tarayıp, bulan, kayıt eden ve banlamaya yarayan bir kod.. açıklaması içinde 2-3 ayarla direk scriptinizde yada botunuzda kullanabilirsiniz.. kod icindeki şu bölümleri ayarlayarak kullanabilirsiniz.. aklınıza takılan ne varsa konu içinde sorabilirsiniz.. iyi eglenceler.. TestServer=irc.chatfox.net TestServerIP=107.161.19.71 KontrolPort=80 8080 1080 3124 3127 3128 8000 9050 443 bazi cok kullanilan portlar Ban=1 0 Echo | 1 Gzline 0 yalnizca ekrana yansitacaktir […]

» Devamını Oku

Yorum yaz hazır kodlar, kill, mirci, Proxy, scripting, turkce mırc

mIRC Webmaster Bot

30 Kasım 2015 • 16:39 OxiGeN Hazır Kodlar

on *:sockopen:rank*: {
var %komut sockwrite -n $sockname
%komut GET $+(/google-sira-bulucu?site=http://,$gettok($sock($sockname).mark,1,42),&kelime=,$gettok($sock($sockname).mark,2,42),&dil=com.tr&sira=500) HTTP/1.1
%komut Host: wmaraci.com
%komut User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:5.0) Gecko/20100101 Firefox/5.0
%komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
%komut Accept-Language: tr-TR
%komut Accept-Encoding: gzip, deflate
%komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
%komut Connection: keep-alive
%komut Cookie: __utma=149776233.1948714681.1309876669.1309877368.1309880660.3; __utmz=149776233.1309876669.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); PHPSESSID=4de31a2a91ce5b30eaccd3586553a415; __utmc=149776233; __utmb=149776233.16.10.1309880660
%komut $crlf
}
on *:Sockread:rank*: {
var %s [ $+ [ $sockname ] ]
sockread %s [ $+ [ $sockname ] ]
if (site arama sonu isin %s [ $+ [ $sockname ] ]) {
.sw botnet privmsg #webmaster 12G4o7o12g3l4e 6Web: $gettok($sock($sockname).mark,1,42)
.sw botnet privmsg #webmaster 12G4o7o12g3l4e 6Keywords: $replace($gettok($sock($sockname).mark,2,42),+,$chr(32))
.sw botnet privmsg #webmaster 12G4o7o12g3l4e 1ilk 4 500 1sitede yer almiyor..
}
if (Sorgulanan isin %s [ $+ [ $sockname ] ]) {
.sw botnet privmsg #webmaster 12G4o7o12g3l4e 6Web: $gettok($sock($sockname).mark,1,42)
.sw botnet privmsg #webmaster 12G4o7o12g3l4e 6Keywords: $replace($gettok($sock($sockname).mark,2,42),+,$chr(32))
.sw botnet privmsg #webmaster 12G4o7o12g3l4e 6Bulundugu Sira: $htmlfree($gettok(%s [ $+ [ $sockname ] ],6,32))
.sw botnet privmsg #webmaster 12G4o7o12g3l4e 6Googlede Bulundugu Sayfa: $siralama($htmlfree($gettok(%s [ $+ [ $sockname ] ],6,32)))
}
}

alias siralama {
if ($gettok($calc($gettok($1,1,46) / 10),2,46) / 10),2,46) == $null) { return $gettok($calc($gettok($1,1,46) / 10),1,46) Sayfa $gettok($1,2,46) Sirada | halt }
return $calc($gettok($calc($1 / 10),1,46) +1) Sayfa $calc($gettok($calc($1 / 10),2,46) -1) Sirada
}
alias rank {
var %rand $rand(0,9999)
sockopen $+(rank,%rand) wmaraci.com 80
sockmark $+(rank,%rand) $+($1,*,$replace($2-,$chr(32),+))
.sw botnet privmsg #webmaster 12G4o7o12g3l4e  $1 4web $2- 4keywords 'da kontrol ediliyor..
}

on *:sockopen:pr*: {
var %komut sockwrite -n $sockname
%komut GET $+(/,$sock($sockname).mark) HTTP/1.1
%komut Host: sitebilgileri.com
%komut User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:5.0) Gecko/20100101 Firefox/5.0
%komut $crlf
}
on *:sockread:pr*: {
var %s
sockread %s
if (Adresi kontrol ediniz veya isin %s) {
sw botnet privmsg #webmaster 6Hata:2 belirttiginiz site ile ilgili DNS kaydi bulunamadi!
}
if ($regex(%s,Hit:)) {
;sw botnet privmsg #webmaster 6Hit: $gettok($htmlfree(%s),2,58)
}
if ($regex(%s,mg/pr/1/pr)) {
sw botnet privmsg #webmaster 6Web: $sock($sockname).mark
sw botnet privmsg #webmaster 6Google Pagerank : $gettok($gettok(%s,6,34),3,32)
}
if ($regex(%s, $)) {
inc %a
if (%a == 1) { sw botnet privmsg #webmaster 6Alexa Rank: $remove(%s,$chr(9), ) }
if (%a == 2) { sw botnet privmsg #webmaster 6Yahoo Backlink: $remove(%s,$chr(9), ) }
if (%a == 3) { sw botnet privmsg #webmaster 6Dmoz: $remove(%s,$chr(9), ) }
if (%a == 4) { ;sw botnet privmsg #webmaster 6Alan Kaydi $remove(%s,$chr(9), ) }
if (%a == 5) { sw botnet privmsg #webmaster 6Google Backlink: $remove(%s,$chr(9), ) }
if (%a == 6) { sw botnet privmsg #webmaster 6Alexa Backlink: $remove(%s,$chr(9), ) }
if (%a == 7) { sw botnet privmsg #webmaster 6Yaho Dizini: $remove(%s,$chr(9), ) }
if (%a == 8) { sw botnet privmsg #webmaster 6Google Index: $remove(%s,$chr(9), ) }
if (%a == 9) { sw botnet privmsg #webmaster 6Yahoo Index: $remove(%s,$chr(9), ) }
if (%a == 10) { sw botnet privmsg #webmaster 6Bing Index: $remove(%s,$chr(9), ) }
if (%a == 11) { sw botnet privmsg #webmaster 6Linkler: $remove(%s,$chr(9), ) }
if (%a == 12) { sw botnet privmsg #webmaster 6Delicious Link: $remove(%s,$chr(9), ) }
if (%a == 13) { sw botnet privmsg #webmaster 6Technorati (Blog) Rank: $remove(%s,$chr(9), ) }
if (%a == 14) { sw botnet privmsg #webmaster 6Compete Rank: $remove(%s,$chr(9), ) }
if (%a == 15) { ;sw botnet privmsg #webmaster 6Site Degeri: $remove(%s,$chr(9), ) }
if (%a == 16) { sw botnet privmsg #webmaster 6Son Indexlenme Tarihi: $remove(%s,$chr(9), ) | unset %a }
}
}
alias pr {
var %ns $rand(0,999999)
sockopen $+(pr,%ns) sitebilgileri.com 80
sockmark $+(pr,%ns) $remove($1,www.)
sw botnet privmsg #webmaster 12G4o7o12g3l4e  6 $1 1bilgileri aliniyor bekleyiniz..
}

on *:sockopen:link*: {
var %komut = sockwrite -n $sockname
%komut POST /link-analizi/ HTTP/1.1
%komut Host: www.siteanaliz.net
%komut User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:5.0) Gecko/20100101 Firefox/5.0
%komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
%komut Accept-Language: tr-TR
%komut Accept-Encoding: gzip, deflate
%komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
%komut Connection: keep-alive
%komut Referer: http://www.siteanaliz.net/link-analizi/
%komut Cookie: PHPSESSID=fd4c0c82dc5801be1ce22e7cfd9309a8
%komut Content-Type: application/x-www-form-urlencoded
%komut Content-Length: $len($gettok($sock($sockname).mark,1,42))
%komut
%komut $gettok($sock($sockname).mark,1,42)
}

on *:sockread:link*: {
var %s
sockread %s
if (Link: isin %s) {
sw botnet privmsg $gettok($sock($sockname).mark,2,42) 6URL: $gettok($gettok(%s,5-,47),1,60)
sw botnet privmsg $gettok($sock($sockname).mark,2,42) 6Anchor: $htmlfree($remove($gettok($gettok(%s,5-,47),2,58),Link))
sw botnet privmsg $gettok($sock($sockname).mark,2,42) 6Link: $gettok($gettok(%s,5-,47),2,34)
}
if (*Site*Linkler* iswm %s) {
sw botnet privmsg $gettok($sock($sockname).mark,2,42) 4--------------------------------------------------------------
sw botnet privmsg $gettok($sock($sockname).mark,2,42) 4--------------------------------------------------------------
sw botnet privmsg $gettok($sock($sockname).mark,2,42) 4 Link Analiz Web: 6 $gettok($gettok($sock($sockname).mark,2,61),1,38)
sw botnet privmsg $gettok($sock($sockname).mark,2,42) 6 $htmlfree(%s)
sw botnet privmsg $gettok($sock($sockname).mark,2,42) 4--------------------------------------------------------------
sw botnet privmsg $gettok($sock($sockname).mark,2,42) 4--------------------------------------------------------------
}
}

on *:sockclose:link*: {
sw botnet privmsg #webmaster $gettok($gettok($sock($sockname).mark,2,61),1,38) 2 link analiz kontrolu yapimistir. ,4 $gettok($sock($sockname).mark,2,42) 2bilgiler ozelinize atilmistir.
}

alias link {
var %rand $rand(0,99999)
sockopen $+(link,%rand) www.siteanaliz.net 80
sockmark $+(link,%rand) $+(f_url=,$1,&a=submit,*,$2)
sw botnet privmsg #webmaster 4" 6 $1 2link kontrol'u yapiliyor bekleyiniz.. [ bu islem (5-10) Saniye surebilir.]
}

on *:sockopen:kelime*: {
var %komut = sockwrite -n $sockname
%komut POST /anahtar-kelime-yogunluk-kontrolu/ HTTP/1.1
%komut Host: www.siteanaliz.net
%komut User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:5.0) Gecko/20100101 Firefox/5.0
%komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
%komut Accept-Language: tr-TR
%komut Accept-Encoding: gzip, deflate
%komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
%komut Connection: keep-alive
%komut Referer: http://www.siteanaliz.net/link-analizi/
%komut Cookie: PHPSESSID=fd4c0c82dc5801be1ce22e7cfd9309a8
%komut Content-Type: application/x-www-form-urlencoded
%komut Content-Length: $len($gettok($sock($sockname).mark,1,42))
%komut
%komut $gettok($sock($sockname).mark,1,42)
}

on *:sockread:kelime*: {
var %keywords
sockread %keywords
if (

isin %keywords) {
sw botnet privmsg $gettok($sock($sockname).mark,2,42) 4----------------------------------------------------------
sw botnet privmsg $gettok($sock($sockname).mark,2,42) 4 Keywords Yogunluk Analiz Web: 6 $gettok($gettok($sock($sockname).mark,2,61),1,38)
sw botnet privmsg $gettok($sock($sockname).mark,2,42) 6 $htmlfree(%keywords)
sw botnet privmsg $gettok($sock($sockname).mark,2,42) 4----------------------------------------------------------
}
if (


sw botnet privmsg $gettok($sock($sockname).mark,2,42) 6Kelime: $htmlfree($gettok(%keywords,5,34)) 6Sayisi: $htmlfree($gettok(%keywords,9,34)) 6Yogunluk: $+(%,$htmlfree($gettok(%keywords,13,34)))
}
}
on *:sockclose:kelime*: {
sw botnet privmsg #webmaster $gettok($gettok($sock($sockname).mark,2,61),1,38) 2 keywords yogunluk kontrolu yapimistir. ,4 $gettok($sock($sockname).mark,2,42) 2bilgiler ozelinize atilmistir.
}

alias keywords {
var %rand $rand(0,99999)
sockopen $+(kelime,%rand) www.siteanaliz.net 80
sockmark $+(kelime,%rand) $+(f_url=,$1,&a=submit,*,$2)
sw botnet privmsg #webmaster 4" 6 $1 2keyword yogunluk kontrol'u yapiliyor bekleyiniz.
}

on *:sockopen:analiz*: {
var %komut sockwrite -n $sockname
%komut POST /meta-tag-gosterici HTTP/1.1
%komut Host: wmaraci.com
%komut User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:5.0) Gecko/20100101 Firefox/5.0
%komut Accept: */*
%komut Accept-Language: tr-TR
%komut Accept-Encoding: gzip, deflate
%komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7
%komut Connection: keep-alive
%komut Content-Type: application/x-www-form-urlencoded; charset=UTF-8
%komut X-Requested-With: XMLHttpRequest
%komut Referer: http://wmaraci.com/meta-tag-gosterici
%komut Content-Length: $len($sock($sockname).mark)
%komut Cookie: __utma=149776233.1948714681.1309876669.1310075550.1310138360.11; __utmz=149776233.1310138360.11.8.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=wmaraci; bblastvisit=1309945768; bblastactivity=0; PHPSESSID=5bf8696e8a73c80234fde5e503ad4c83; __utmb=149776233.13.10.1310138360; __utmc=149776233
%komut Pragma: no-cache
%komut Cache-Control: no-cache
%komut
%komut $sock($sockname).mark
}

on *:sockread:analiz*: {
var %s
sockread %s
if (*Girmi*oldu*unuz*adrese* iswm %s) {
sw botnet privmsg #webmaster 2Hata:6 $remove($gettok($gettok($sock($sockname).mark,2,61),1,38),http%3A%2F%2F) 2sitesine ait DNS kaydi bulunamadi..
}
if (title isin %s) {
var %title $remove(%s,,,

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

on *:sockopen:rank*: {

var %komut sockwrite -n $sockname

%komut GET $+(/google-sira-bulucu?site=http://,$gettok($sock($sockname).mark,1,42),&kelime=,$gettok($sock($sockname).mark,2,42),&dil=com.tr&sira=500) HTTP/1.1

%komut Host: wmaraci.com

%komut User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:5.0) Gecko/20100101 Firefox/5.0

%komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8

%komut Accept-Language: tr-TR

%komut Accept-Encoding: gzip, deflate

%komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7

%komut Connection: keep-alive

%komut Cookie: __utma=149776233.1948714681.1309876669.1309877368.1309880660.3; __utmz=149776233.1309876669.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); PHPSESSID=4de31a2a91ce5b30eaccd3586553a415; __utmc=149776233; __utmb=149776233.16.10.1309880660

%komut $crlf

}

on *:Sockread:rank*: {

var %s [ $+ [ $sockname ] ]

sockread %s [ $+ [ $sockname ] ]

if (site arama sonu isin %s [ $+ [ $sockname ] ]) {

.sw botnet privmsg #webmaster 12G4o7o12g3l4e 6Web: $gettok($sock($sockname).mark,1,42)

.sw botnet privmsg #webmaster 12G4o7o12g3l4e 6Keywords: $replace($gettok($sock($sockname).mark,2,42),+,$chr(32))

.sw botnet privmsg #webmaster 12G4o7o12g3l4e 1ilk 4 500 1sitede yer almiyor..

}

if (Sorgulanan isin %s [ $+ [ $sockname ] ]) {

.sw botnet privmsg #webmaster 12G4o7o12g3l4e 6Web: $gettok($sock($sockname).mark,1,42)

.sw botnet privmsg #webmaster 12G4o7o12g3l4e 6Keywords: $replace($gettok($sock($sockname).mark,2,42),+,$chr(32))

.sw botnet privmsg #webmaster 12G4o7o12g3l4e 6Bulundugu Sira: $htmlfree($gettok(%s [ $+ [ $sockname ] ],6,32))

.sw botnet privmsg #webmaster 12G4o7o12g3l4e 6Googlede Bulundugu Sayfa: $siralama($htmlfree($gettok(%s [ $+ [ $sockname ] ],6,32)))

}

alias siralama {

if ($gettok($calc($gettok($1,1,46) / 10),2,46) / 10),2,46) == $null) { return $gettok($calc($gettok($1,1,46) / 10),1,46) Sayfa $gettok($1,2,46) Sirada | halt }

return $calc($gettok($calc($1 / 10),1,46) +1) Sayfa $calc($gettok($calc($1 / 10),2,46) -1) Sirada

}

alias rank {

var %rand $rand(0,9999)

sockopen $+(rank,%rand) wmaraci.com 80

sockmark $+(rank,%rand) $+($1,*,$replace($2-,$chr(32),+))

.sw botnet privmsg #webmaster 12G4o7o12g3l4e $1 4web $2- 4keywords 'da kontrol ediliyor..

}

on *:sockopen:pr*: {

var %komut sockwrite -n $sockname

%komut GET $+(/,$sock($sockname).mark) HTTP/1.1

%komut Host: sitebilgileri.com

%komut User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:5.0) Gecko/20100101 Firefox/5.0

%komut $crlf

}

on *:sockread:pr*: {

var %s

sockread %s

if (Adresi kontrol ediniz veya isin %s) {

sw botnet privmsg #webmaster 6Hata:2 belirttiginiz site ile ilgili DNS kaydi bulunamadi!

}

if ($regex(%s,Hit:)) {

;sw botnet privmsg #webmaster 6Hit: $gettok($htmlfree(%s),2,58)

}

if ($regex(%s,mg/pr/1/pr)) {

sw botnet privmsg #webmaster 6Web: $sock($sockname).mark

sw botnet privmsg #webmaster 6Google Pagerank : $gettok($gettok(%s,6,34),3,32)

}

if ($regex(%s, $)) {

inc %a

if (%a == 1) { sw botnet privmsg #webmaster 6Alexa Rank: $remove(%s,$chr(9), ) }

if (%a == 2) { sw botnet privmsg #webmaster 6Yahoo Backlink: $remove(%s,$chr(9), ) }

if (%a == 3) { sw botnet privmsg #webmaster 6Dmoz: $remove(%s,$chr(9), ) }

if (%a == 4) { ;sw botnet privmsg #webmaster 6Alan Kaydi $remove(%s,$chr(9), ) }

if (%a == 5) { sw botnet privmsg #webmaster 6Google Backlink: $remove(%s,$chr(9), ) }

if (%a == 6) { sw botnet privmsg #webmaster 6Alexa Backlink: $remove(%s,$chr(9), ) }

if (%a == 7) { sw botnet privmsg #webmaster 6Yaho Dizini: $remove(%s,$chr(9), ) }

if (%a == 8) { sw botnet privmsg #webmaster 6Google Index: $remove(%s,$chr(9), ) }

if (%a == 9) { sw botnet privmsg #webmaster 6Yahoo Index: $remove(%s,$chr(9), ) }

if (%a == 10) { sw botnet privmsg #webmaster 6Bing Index: $remove(%s,$chr(9), ) }

if (%a == 11) { sw botnet privmsg #webmaster 6Linkler: $remove(%s,$chr(9), ) }

if (%a == 12) { sw botnet privmsg #webmaster 6Delicious Link: $remove(%s,$chr(9), ) }

if (%a == 13) { sw botnet privmsg #webmaster 6Technorati (Blog) Rank: $remove(%s,$chr(9), ) }

if (%a == 14) { sw botnet privmsg #webmaster 6Compete Rank: $remove(%s,$chr(9), ) }

if (%a == 15) { ;sw botnet privmsg #webmaster 6Site Degeri: $remove(%s,$chr(9), ) }

if (%a == 16) { sw botnet privmsg #webmaster 6Son Indexlenme Tarihi: $remove(%s,$chr(9), ) | unset %a }

}

alias pr {

var %ns $rand(0,999999)

sockopen $+(pr,%ns) sitebilgileri.com 80

sockmark $+(pr,%ns) $remove($1,www.)

sw botnet privmsg #webmaster 12G4o7o12g3l4e 6 $1 1bilgileri aliniyor bekleyiniz..

}

on *:sockopen:link*: {

var %komut = sockwrite -n $sockname

%komut POST /link-analizi/ HTTP/1.1

%komut Host: www.siteanaliz.net

%komut User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:5.0) Gecko/20100101 Firefox/5.0

%komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8

%komut Accept-Language: tr-TR

%komut Accept-Encoding: gzip, deflate

%komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7

%komut Connection: keep-alive

%komut Referer: http://www.siteanaliz.net/link-analizi/

%komut Cookie: PHPSESSID=fd4c0c82dc5801be1ce22e7cfd9309a8

%komut Content-Type: application/x-www-form-urlencoded

%komut Content-Length: $len($gettok($sock($sockname).mark,1,42))

%komut

%komut $gettok($sock($sockname).mark,1,42)

}

on *:sockread:link*: {

var %s

sockread %s

if (Link: isin %s) {

sw botnet privmsg $gettok($sock($sockname).mark,2,42) 6URL: $gettok($gettok(%s,5-,47),1,60)

sw botnet privmsg $gettok($sock($sockname).mark,2,42) 6Anchor: $htmlfree($remove($gettok($gettok(%s,5-,47),2,58),Link))

sw botnet privmsg $gettok($sock($sockname).mark,2,42) 6Link: $gettok($gettok(%s,5-,47),2,34)

}

if (*Site*Linkler* iswm %s) {

sw botnet privmsg $gettok($sock($sockname).mark,2,42) 4--------------------------------------------------------------

sw botnet privmsg $gettok($sock($sockname).mark,2,42) 4 Link Analiz Web: 6 $gettok($gettok($sock($sockname).mark,2,61),1,38)

sw botnet privmsg $gettok($sock($sockname).mark,2,42) 6 $htmlfree(%s)

sw botnet privmsg $gettok($sock($sockname).mark,2,42) 4--------------------------------------------------------------

}

on *:sockclose:link*: {

sw botnet privmsg #webmaster $gettok($gettok($sock($sockname).mark,2,61),1,38) 2 link analiz kontrolu yapimistir. ,4 $gettok($sock($sockname).mark,2,42) 2bilgiler ozelinize atilmistir.

}

alias link {

var %rand $rand(0,99999)

sockopen $+(link,%rand) www.siteanaliz.net 80

sockmark $+(link,%rand) $+(f_url=,$1,&a=submit,*,$2)

sw botnet privmsg #webmaster 4" 6 $1 2link kontrol'u yapiliyor bekleyiniz.. [ bu islem (5-10) Saniye surebilir.]

}

on *:sockopen:kelime*: {

var %komut = sockwrite -n $sockname

%komut POST /anahtar-kelime-yogunluk-kontrolu/ HTTP/1.1

%komut Host: www.siteanaliz.net

%komut User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:5.0) Gecko/20100101 Firefox/5.0

%komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8

%komut Accept-Language: tr-TR

%komut Accept-Encoding: gzip, deflate

%komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7

%komut Connection: keep-alive

%komut Referer: http://www.siteanaliz.net/link-analizi/

%komut Cookie: PHPSESSID=fd4c0c82dc5801be1ce22e7cfd9309a8

%komut Content-Type: application/x-www-form-urlencoded

%komut Content-Length: $len($gettok($sock($sockname).mark,1,42))

%komut

%komut $gettok($sock($sockname).mark,1,42)

}

on *:sockread:kelime*: {

var %keywords

sockread %keywords

if (

isin %keywords) {

sw botnet privmsg $gettok($sock($sockname).mark,2,42) 4----------------------------------------------------------

sw botnet privmsg $gettok($sock($sockname).mark,2,42) 4 Keywords Yogunluk Analiz Web: 6 $gettok($gettok($sock($sockname).mark,2,61),1,38)

sw botnet privmsg $gettok($sock($sockname).mark,2,42) 6 $htmlfree(%keywords)

sw botnet privmsg $gettok($sock($sockname).mark,2,42) 4----------------------------------------------------------

}

if (

sw botnet privmsg $gettok($sock($sockname).mark,2,42) 6Kelime: $htmlfree($gettok(%keywords,5,34)) 6Sayisi: $htmlfree($gettok(%keywords,9,34)) 6Yogunluk: $+(%,$htmlfree($gettok(%keywords,13,34)))

}

on *:sockclose:kelime*: {

sw botnet privmsg #webmaster $gettok($gettok($sock($sockname).mark,2,61),1,38) 2 keywords yogunluk kontrolu yapimistir. ,4 $gettok($sock($sockname).mark,2,42) 2bilgiler ozelinize atilmistir.

}

alias keywords {

var %rand $rand(0,99999)

sockopen $+(kelime,%rand) www.siteanaliz.net 80

sockmark $+(kelime,%rand) $+(f_url=,$1,&a=submit,*,$2)

sw botnet privmsg #webmaster 4" 6 $1 2keyword yogunluk kontrol'u yapiliyor bekleyiniz.

}

on *:sockopen:analiz*: {

var %komut sockwrite -n $sockname

%komut POST /meta-tag-gosterici HTTP/1.1

%komut Host: wmaraci.com

%komut User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:5.0) Gecko/20100101 Firefox/5.0

%komut Accept: */*

%komut Accept-Language: tr-TR

%komut Accept-Encoding: gzip, deflate

%komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7

%komut Connection: keep-alive

%komut Content-Type: application/x-www-form-urlencoded; charset=UTF-8

%komut X-Requested-With: XMLHttpRequest

%komut Referer: http://wmaraci.com/meta-tag-gosterici

%komut Content-Length: $len($sock($sockname).mark)

%komut Cookie: __utma=149776233.1948714681.1309876669.1310075550.1310138360.11; __utmz=149776233.1310138360.11.8.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=wmaraci; bblastvisit=1309945768; bblastactivity=0; PHPSESSID=5bf8696e8a73c80234fde5e503ad4c83; __utmb=149776233.13.10.1310138360; __utmc=149776233

%komut Pragma: no-cache

%komut Cache-Control: no-cache

%komut

%komut $sock($sockname).mark

}

on *:sockread:analiz*: {

var %s

sockread %s

if (*Girmi*oldu*unuz*adrese* iswm %s) {

sw botnet privmsg #webmaster 2Hata:6 $remove($gettok($gettok($sock($sockname).mark,2,61),1,38),http%3A%2F%2F) 2sitesine ait DNS kaydi bulunamadi..

}

if (title isin %s) {

var %title $remove(%s,,,

» Devamını Oku

Yorum yaz bot, hazır kodlar, mirc, scripting, turkce mırc, webmaster

mIRC RSS’den Konu Çekme

30 Kasım 2015 • 16:37 OxiGeN Hazır Kodlar

alias _site return www.turkirc.com
alias _kanal return #Toprak
alias _çek $+(.timer,rss) 0 20 _rss
alias _rss { sockopen rss $_site 80 }
alias _veri { var %:veri = 1 | while %:veri < = $lines(konu.txt) { msg $_kanal $read(konu.txt,%:veri) | inc %:veri } | .remove konu.txt }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|< [^>]*>|< [^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias _tr return $replace($1-,Ã–,ö,Ã‡,ç,Ä°,i,Ã¶,ö,Ã§,ç,Ã¼,ü,ÅŸ,ş,Ä±,ı,Å?,ş,ÄŸ,ğ,Ãœ,ü,Ä?,ğ,$chr(39),-)
on *:sockopen:rss:{
var %:rss sockwrite -n $sockname
%:rss GET /external.php?type=RSS2/ HTTP/1.1
%:rss Host: $_site
%:rss Connection: keep-alive
%:rss Cache-Control: max-age=0
%:rss Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
%:rss User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/30.0.1599.101 Safari/537.36
%:rss $crlf
}
on *:sockread:rss:{
var %:rss | sockread %:rss
if (

2 alias'ı kendinize göre ayarlayın;

alias _site return noup.net
alias _kanal return #Toprak

Ayarladıkdan sonra /_çek yazmanız yeterli.

alias _site return www.turkirc.com

alias _kanal return #Toprak

alias _çek $+(.timer,rss) 0 20 _rss

alias _rss { sockopen rss $_site 80 }

alias _veri { var %:veri = 1 | while %:veri < = $lines(konu.txt) { msg $_kanal $read(konu.txt,%:veri) | inc %:veri } | .remove konu.txt }

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|< [^>]*>|< [^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }

alias _tr return $replace($1-,Ã–,ö,Ã‡,ç,Ä°,i,Ã¶,ö,Ã§,ç,Ã¼,ü,ÅŸ,ş,Ä±,ı,Å?,ş,ÄŸ,ğ,Ãœ,ü,Ä?,ğ,$chr(39),-)

on *:sockopen:rss:{

var %:rss sockwrite -n $sockname

%:rss GET /external.php?type=RSS2/ HTTP/1.1

%:rss Host: $_site

%:rss Connection: keep-alive

%:rss Cache-Control: max-age=0

%:rss Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8

%:rss User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/30.0.1599.101 Safari/537.36

%:rss $crlf

}

on *:sockread:rss:{

var %:rss | sockread %:rss

if (

2 alias'ı kendinize göre ayarlayın;

alias _site return noup.net

alias _kanal return #Toprak

Ayarladıkdan sonra /_çek yazmanız yeterli.

Alıntıdır.

» Devamını Oku

Yorum yaz hazır kodlar, konu, mirc, rss, scripting, turkce mırc

« 1 … 6 7 8 9 10 … 63 »