irc tırojen ve virusleri silme andonu

DeltaFuL · 25-09-2006, 11:26

; Bilgisayarinizi cagin lamerlarina teslim etmeyin

; Herkes scriptine ekleyebilir, degistirebilir, ismim yerine kendi
; ismini yazabilir, ustune yazabilir, icinden silebilir...

alias _tara {
if $1 {
var %_dizin $shortfn($1-) , %_dsayisi $findfile(%_dizin,*.*,0) , %_x 1
while %_x <= %_dsayisi {
%_1 = $findfile(%_dizin,*.*,%_x)
if $readini(%_1,rfiles,$+(n,0)) {
%_2 = 0
while $readini(%_1,rfiles,$+(n,%_2)) {
%_f = $shortfn($replace($+(%_dizin,$ifmatch),\\,\,//,/))
if $dialog(tr_remover) {
if $did($ifmatch,4).lines == 0 { did -e tr_remover 6 }
did -a tr_remover 4 %_f
did -a tr_remover 9 $calc($did(tr_remover,9) + 1)
}
inc %_2
}
}
inc %_x
}
unset %_1 , %_2 , %_f
}
}

alias _tr {
if !$dialog(tr_remover) { dialog -m tr_remover tr_remover }
}

dialog tr_remover {
title "IRC Trojan Remover by DefauLt"
size -1 -1 195 191
option dbu
edit "", 1, 62 19 84 10, return autohs autovs
button "Gozat...", 2, 148 19 30 10
text "Windows dizininiz:", 3, 15 20 45 8
list 4, 62 46 116 107, size hsbar vsbar
button "Taramaya basla!", 5, 123 161 55 10
button "Bulunanlari sil...", 6, 62 161 55 10
text "Bulunan dosyalar:", 7, 15 46 45 8
text "Toplam:", 8, 15 61 20 8
text "0", 9, 37 61 11 8
text "DefauLt ©", 10, 15 90 36 8
link "ozcank@gmail.com", 11, 15 100 45 8
box "IRC Trojan Remover", 12, 5 5 184 178
button "Tamam", 13, 14 161 30 10, ok
}

on *:dialog:tr_remover:*:*:{
if $devent == init {
did -b $dname 5,6
}
if $devent == sclick {
if $did == 2 {
if $sdir($gettok($mircexe,1,92),Windows dizininizi secin) {
did -ra $dname 1 $ifmatch
did -e $dname 5
}
}
if $did == 5 && $did($dname,1) {
if $input(Taramanin verimli olabilmesi icin calisan diger tum programlarinizi kapattiktan sonra OK butonuna tiklayin ve bu mIRC ile tarama bitene kadar ilgilenmeyin.,ic,Bilgi) {
_tara $did($dname,1)
}
}
if $did == 6 {
if $input(Bulunan dosyalari silmek istiyor musunuz?,ic,Silme islemi) {
Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=93634
var %_w 1
while %_w <= $did($dname,4).lines {
remove $did($dname,4,%_w).text
inc %_w
}
}
}
}
}

menu status,menubar {
-
IRC Trojan Remover:_tr
-
}

DeltaFuL · 25-09-2006, 11:29

http://www.sinema.com/filmler.aspx?Status=4 sitesinden vizyonda oynayan filmleri mIRC'de /sinema komutu ile Sinema.com penceresine yansıtır. Aşağıdaki kodu mIRC'nin remote (ALT+R) bölümüne koyuyorsunuz. İşte kod:

alias sinema { if $sock(sinema) { sockclose sinema } | sockopen sinema sinema.com 80 | echo 3 -st * Sinema.com: Vizyondaki filmler alınmaya çalışılıyor. | if $window(@Sinema.com) { clear @Sinema.com } }
Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=93634
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp

| return %x }
alias -l sinemay { if !$window(@Sinema.com) { window -nk0 @Sinema.com } | aline -p @Sinema.com $1- }
on *:sockopen:sinema:{ var %c = sockwrite -n $sockname | %c GET /filmler.aspx?Status=4 HTTP/1.1 | %c Host: sinema.com $+ $crlf $+ $crlf }
on *:sockread:sinema:{
if ($sockerr) { echo 3 -st * Sinema.com: Vizyondaki filmleri alırken hata oluştu. Lütfen tekrar deneyiniz. | halt }
else { var %- | sockread %- | if (*<td width="271" class="red" valign="top"><a href="film_ozetbilgiler.aspx* iswm %-) || (*<td width="391"><a href="film_ozetbilgiler.aspx?FilmID=*"><img src="images/but_git.gif"* iswm %-) || ($count(%-,$chr(9)) == 13) { sinemay $+($iif(*red* iswm $v1,04,03),$remove($htmlfree(%-),$chr(9),)) }
elseif (*<img src="images/but_os.gif"* iswm %-) { sinemay 05Devamı ve daha fazla bilgi için:12 $+(,http://www.sinema.com/,$replace($gettok(%-,2,34),sinema,zetbilgiler),) }
elseif (*HTML*:*Erhan İDİZ* iswm %-) { if $sock(sinema) { sockclose sinema } | if $window(@Sinema.com) { window -a @Sinema.com } }
}
}

DeltaFuL · 25-09-2006, 11:32

Forumda Arama Yaptım bulamadım . sizinle paylaşmak istedim

;################################################# #
:## Bu kodlar ZeHir tarafından hazırlanmıştır....
;################################################# #
on 1:load: {
if ( $version < 5.6 ) { unload -rs yazitipi.mrc
echo 4 -a mIRC versiyonunuz yazıtipi addonını desteklemiyor, yazıtipi addonı kaldırılıyor. | halt }
else { echo 4 -a YAZITipleri add-onu yüklendi. }
}
#yazirenkli off
on 1:INPUT:*:{
unset %ahenk*
if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ahenk* | halt }
:ilk
inc %ahenks
if ( %ahenks > $len($1-) ) { say %ahenkt | unset %ahenk* | halt }
%ahenkh = $mid($1-,%ahenks,1)
%ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
%ahenkt = %ahenkt $+ $+ $rand(3,13) $+ %ahenkh
goto ilk
}
#yazirenkli end
#yaziters off
on 1:INPUT:*:{
unset %ters*
if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ters* | halt }
:ilk
inc %terss
if ( %terss > $len($1-) ) { say %terst | unset %terst* | halt }
Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=93634
set %tersh $mid($1-,%terss,1)
%terst = %tersh $+ %terst
goto ilk
}
#yaziters end
#yaziturkce off
on 1:INPUT:*:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ý,I,Ý,Î,þ,$,Þ,$,ç,¢,Ç,¢,ð,g,Ð,Ð ,ü,û,Ü,Û,ö,ô,Ö,Ô)
say %turkce
unset %turkce
halt
}
#yaziturkce end
#yazielit off
on 1:INPUT:*:{
unset %elit
set %elit $1-
if ( $chr(47) == $mid(%elit,1,1) ) { %elit | unset %elit* | halt }
%elit = $replacecs(%elit,a,å,b,ß,c,©,d,D,e,ë,f,F,h,]-[,i,î,k,|{,l,£,m,M,n,ñ,o,ø,p,P,q,¶,r,®,s,§,t,±,u,µ, v,V,w,\\',x,×,y,¥,z,Z,ý,I,Ý,Î,þ,$,Þ,$,ç,¢,Ç,¢,ð,g, Ð,Ð,ü,û,Ü,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,')
say %elit
unset %elit
halt
}
#yazielit end
#yaziseskuc off
on 1:INPUT:*:{
unset %seskuc
set %seskuc $1-
if ( $chr(47) == $mid(%seskuc,1,1) ) { %seskuc | unset %seskuc | halt }
%seskuc = $replacecs(%seskuc,q,Q,w,W,E,e,r,R,t,T,y,Y,U,u,I,ý ,O,o,p,P,ð,Ð,Ü,ü,A,a,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l ,L,þ,Þ,Ý,i,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,Ö,ö,ç,Ç)
say %seskuc
unset %seskuc
Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=93634
halt
}
#yaziseskuc end
#yazibuykuc off
on 1:INPUT:*:{
unset %buy*
set %buyk $1-
if ( $chr(47) == $mid(%buyk,1,1) ) { %buyk | unset %buy* | halt }
set %buys 1
set %buyu $len(%buyk)
:ilk
if ( %buys > %buyu ) goto son
set %buyh $mid(%buyk,%buys,1)
if ( %buyh == $chr(32) ) {
%buyh = $replace(%buyh,$chr(32),$chr(0160))
}
%buyh = $replacecs(%buyh,q,Q,w,W,e,E,r,R,t,T,y,Y,u,U,ý,I,o ,O,p,P,ð,Ð,ü,Ü,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L ,þ,Þ,i,Ý,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,ö,Ö,ç,Ç,!, ¡,? ,¿)
set %buyb %buyb $+ %buyh
inc %buys
if ( %buys > %buyu ) goto son
set %buyh $mid(%buyk,%buys,1)
if ( %buyh == $chr(32) ) {
%buyh = $replace(%buyh,$chr(32),$chr(0160))
}
%buyh = $replacecs(%buyh,Q,q,W,w,E,e,R,r,T,t,Y,y,U,u,I,ý,O ,o,P,p,Ð,ð,Ü,ü,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l ,Þ,þ,Ý,i,Z,z,X,x,C,c,V,v,B,b,N,n,M,m,Ö,ö,Ç,ç,¡, !,¿ ,?)
inc %buys
set %buyb %buyb $+ %buyh
goto ilk
:son
say %buyb
unset %buy*
halt
}
#yazibuykuc end
dialog yazitip {
title "Yazýtipi"
size -1 -1 110 190
radio "Tûrk¢e",1,10 10 90 20
radio "ë£î±",2,10 30 90 20
radio "sreT",3,10 50 90 20
radio "BüYüK-kÜçÜk",4,10 70 90 20
radio "SeSSiZ BüYüK",5,10 90 90 20
radio "Renkli",6,10 110 90 20
radio "Normal",19,10 130 90 20
box "",20,5 0 100 155
button "TAMAM",21,5 165 100 20,ok
}
on 1:dialog:yazitip:*:*: {
if ( $devent == init ) {
if ($group(#yaziturkce).status == on ) { did -c yazitip 1 }
elseif ($group(#yazielit).status == on ) { did -c yazitip 2 }
elseif ($group(#yaziters).status == on ) { did -c yazitip 3 }
elseif ($group(#yazibuykuc).status == on ) { did -c yazitip 4 }
elseif ($group(#yaziseskuc).status == on ) { did -c yazitip 5 }
elseif ($group(#yazirenkli).status == on ) { did -c yazitip 6 }
else { did -c yazitip 19 }
}
if ( $devent == sclick ) {
if ( $did == 1 ) { .disable #yazi* | .enable #yaziturkce }
if ( $did == 2 ) { .disable #yazi* | .enable #yazielit }
if ( $did == 3 ) { .disable #yazi* | .enable #yaziters }
if ( $did == 4 ) { .disable #yazi* | .enable #yazibuykuc }
if ( $did == 5 ) { .disable #yazi* | .enable #yaziseskuc }
if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli }
if ( $did == 19) { .disable #yazi* }
}
}
alias yazitip { dialog -m yazitip yazitip }
menu query,channel {
Yazıtipi...:/yazitip
}

Bu dosyayı mirc klasörüne kopyalayin ve /load -rs dosyayınınyolu\yazitipi.mrc
komutunu kullanarak addonu yükleyin.
Yükleme işlemini doğru yaptığınız takdirde
özel ve kanal pencerelerine sağ tıkladığınız
zaman "Yazıtipi..." butonunu göreceksiniz.
göreceksiniz. Buna tıklayıp 6 yazıtipini
seçebilirsiniz.
Benden Bukadar aarkadaslar

DeltaFuL · 25-09-2006, 11:37

; Proxy Bulucu By SCouNDReL
; http://www.proxy4free.com a Tesekkurler
; /proxybulucu komutu ile Calistirin
; Iyi Sanslar (:
alias sjn { sockwrite -n proxy $1- | did -ra proxy 8 Yukleniyor... }
alias sjn2 { sockwrite -n proxy2 $1- | did -ra proxy 8 Yukleniyor... }
alias sjn3 { sockwrite -n proxy3 $1- | did -ra proxy 8 Yukleniyor... }
alias cleartext { return $remove($1-,<,>,/,td,br) }
alias pwhois { sockclose proxy3 | sockopen proxy3 www.proxy4free.com 80 | set %sjn.pwhois $1 }
alias pagejump { sockclose proxy2 | sockopen proxy2 www.proxy4free.com 80 | set %sjnproxy.link $1- $+ .html }
alias proxybulucu {
dialog -m proxy proxy
sockclose proxy
sockopen proxy www.proxy4free.com 80
}
on *:SockOpen

roxy:{
if ($sockerr) { did -ra proxy 8 Hata! | sockclose proxy* }
sjn GET / HTTP/1.1
sjn host: www.proxy4free.com
sjn User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
sjn $crlf
}
on *:SockRead

roxy:{
var %a
sockread %a
if (page isin $gettok(%a,5,32)) { did -a proxy 1 $remove($gettok($gettok(%a,5-,32),2,$asc(>)),<,/a,>,/td) }
}
dialog proxy {
title "Proxy Bulucu"
size -1 -1 267 162
option dbu
list 1, 5 19 33 105, size
text "Sayfa Listesi", 2, 8 8 25 8
text "Sayfayi Gormek Icin Cift Tikla", 3, 1 125 41 17
list 4, 43 19 216 105, size
button "Kullan", 5, 123 126 49 12
button "Whois", 6, 199 126 51 12
text "Proxy Listesi", 7, 134 8 31 8
edit "Yukleniyor", 8, 82 144 111 11, read
button "Proxy Kullanma", 9, 53 126 50 12
}
on *:dialog

roxy:*:*:{
if ($devent == dclick) {
if ($did == 1) { unset %sjn.answer | unset %sjn.test | pagejump $remove($did(1).seltext,$chr(32)) | did -r proxy 4 }
}
if ($devent == init) { did -b proxy 8 }
if ($devent == sclick) { if ($did == 6) {
$iif($dialog(pwhois),dialog -x pwhois pwhois)
$iif($did(4).sel,dialog -m pwhois pwhois)
unset %sjn.answer
$iif($did(4).sel,pwhois $gettok($did(4).seltext,1,32))
}
if ($did == 5) { .firewall on | .firewall -mp $gettok($did(4).seltext,1,32) $gettok($did(4).seltext,3,32) | echo -a Kullanilan Proxy -> $gettok($did(4).seltext,1,32) $gettok($did(4).seltext,3,32) }
if ($did == 9) { .firewall off | echo -a Proxy Kullanimi Iptal Edildi }
}
if ($devent == Close) { sockclose proxy* }
}
on *:SockOpen

roxy2:{
if ($sockerr) { did -ra proxy 8 Hata! | sockclose proxy* }
sjn2 GET / $+ %sjnproxy.link HTTP/1.1
sjn2 host: www.proxy4free.com
sjn2 User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
sjn2 $crlf
}
on *:SockRead

roxy2:{
var %a
sockread %a
if ($gettok(%a,1,32) == <tr) && (href !isin %a) { set %sjn.test Ok! }
if (%sjn.test == Ok!) && (bgcolor !isin %a) && (align !isin %a) && (class !isin %a) && (href !isin %a) && (width !isin %a) { %sjn.answer = %sjn.answer - $cleartext(%a) }
if ($gettok(%a,1,32) == </tr>) { $iif($remove(%sjn.answer,-,tr,$chr(32)) && %sjn.answer != - tr && $mid($gettok(%sjn.answer,2,32),1,1) isnum,did -a proxy 4 $gettok($remove(%sjn.answer,tr),2-,32)) | unset %sjn.test | unset %sjn.answer }
Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=93634
}
on *:SockClose

roxy*:{
did -ra proxy 8 Tamam.
}
dialog pwhois {
title "Whois Bak"
size -1 -1 158 188
option dbu
edit "", 1, 12 12 135 157,read vsbar multi autovs autohs
button "Tamam", 2, 59 174 37 12, ok
}
on *

ialog

whois:close:*:sockclose proxy3 | did -ra proxy 8 Tamam.
on *:SockOpen

roxy3:{
sjn3 GET /cgi-bin/whois.cgi?domain= $+ %sjn.pwhois HTTP/1.1
sjn3 host: www.proxy4free.com
sjn3 User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
sjn3 $crlf
}
on *:SockRead

roxy3:{
var %a
sockread %a
if (<code> isin %a) {
var %i 3
while %i <= 19 {
did -a pwhois 1 $cleartext($gettok(%a,%i,$asc(>))) $+ $crlf
inc %i
}
}
}

PheNoMeN · 25-09-2006, 15:10

Buradan mIRC addonlarina devam edersek konunun ismini degistirip sabit bir baslik haline getirebilirim. Addonlar tek konu altinda toplanmis olur. Tesekkurler bu arada.

25-09-2006, 11:26	#1
DeltaFuL Çırak Kayıt Tarihi: Jul 2006 Üye numarası: #78572 Mesaj sayısı: 18 Karma etkisi: 0 Karma: 20	irc tırojen ve virusleri silme andonu ; Bilgisayarinizi cagin lamerlarina teslim etmeyin ; Herkes scriptine ekleyebilir, degistirebilir, ismim yerine kendi ; ismini yazabilir, ustune yazabilir, icinden silebilir... alias _tara { if $1 { var %_dizin $shortfn($1-) , %_dsayisi $findfile(%_dizin,.,0) , %_x 1 while %_x <= %_dsayisi { %_1 = $findfile(%_dizin,.,%_x) if $readini(%_1,rfiles,$+(n,0)) { %_2 = 0 while $readini(%_1,rfiles,$+(n,%_2)) { %_f = $shortfn($replace($+(%_dizin,$ifmatch),\\,\,//,/)) if $dialog(tr_remover) { if $did($ifmatch,4).lines == 0 { did -e tr_remover 6 } did -a tr_remover 4 %_f did -a tr_remover 9 $calc($did(tr_remover,9) + 1) } inc %_2 } } inc %_x } unset %_1 , %_2 , %_f } } alias _tr { if !$dialog(tr_remover) { dialog -m tr_remover tr_remover } } dialog tr_remover { title "IRC Trojan Remover by DefauLt" size -1 -1 195 191 option dbu edit "", 1, 62 19 84 10, return autohs autovs button "Gozat...", 2, 148 19 30 10 text "Windows dizininiz:", 3, 15 20 45 8 list 4, 62 46 116 107, size hsbar vsbar button "Taramaya basla!", 5, 123 161 55 10 button "Bulunanlari sil...", 6, 62 161 55 10 text "Bulunan dosyalar:", 7, 15 46 45 8 text "Toplam:", 8, 15 61 20 8 text "0", 9, 37 61 11 8 text "DefauLt ©", 10, 15 90 36 8 link "ozcank@gmail.com", 11, 15 100 45 8 box "IRC Trojan Remover", 12, 5 5 184 178 button "Tamam", 13, 14 161 30 10, ok } on :dialog:tr_remover::*:{ if $devent == init { did -b $dname 5,6 } if $devent == sclick { if $did == 2 { if $sdir($gettok($mircexe,1,92),Windows dizininizi secin) { did -ra $dname 1 $ifmatch did -e $dname 5 } } if $did == 5 && $did($dname,1) { if $input(Taramanin verimli olabilmesi icin calisan diger tum programlarinizi kapattiktan sonra OK butonuna tiklayin ve bu mIRC ile tarama bitene kadar ilgilenmeyin.,ic,Bilgi) { _tara $did($dname,1) } } if $did == 6 { if $input(Bulunan dosyalari silmek istiyor musunuz?,ic,Silme islemi) { Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=93634 var %_w 1 while %_w <= $did($dname,4).lines { remove $did($dname,4,%_w).text inc %_w } } } } } menu status,menubar { - IRC Trojan Remover:_tr - }

25-09-2006, 11:37	#4
DeltaFuL Çırak Kayıt Tarihi: Jul 2006 Üye numarası: #78572 Mesaj sayısı: 18 Karma etkisi: 0 Karma: 20	; Proxy Bulucu By SCouNDReL ; http://www.proxy4free.com a Tesekkurler ; /proxybulucu komutu ile Calistirin ; Iyi Sanslar (: alias sjn { sockwrite -n proxy $1- \| did -ra proxy 8 Yukleniyor... } alias sjn2 { sockwrite -n proxy2 $1- \| did -ra proxy 8 Yukleniyor... } alias sjn3 { sockwrite -n proxy3 $1- \| did -ra proxy 8 Yukleniyor... } alias cleartext { return $remove($1-,<,>,/,td,br) } alias pwhois { sockclose proxy3 \| sockopen proxy3 www.proxy4free.com 80 \| set %sjn.pwhois $1 } alias pagejump { sockclose proxy2 \| sockopen proxy2 www.proxy4free.com 80 \| set %sjnproxy.link $1- $+ .html } alias proxybulucu { dialog -m proxy proxy sockclose proxy sockopen proxy www.proxy4free.com 80 } on :SockOpenroxy:{ if ($sockerr) { did -ra proxy 8 Hata! \| sockclose proxy } sjn GET / HTTP/1.1 sjn host: www.proxy4free.com sjn User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) sjn $crlf } on :SockReadroxy:{ var %a sockread %a if (page isin $gettok(%a,5,32)) { did -a proxy 1 $remove($gettok($gettok(%a,5-,32),2,$asc(>)),<,/a,>,/td) } } dialog proxy { title "Proxy Bulucu" size -1 -1 267 162 option dbu list 1, 5 19 33 105, size text "Sayfa Listesi", 2, 8 8 25 8 text "Sayfayi Gormek Icin Cift Tikla", 3, 1 125 41 17 list 4, 43 19 216 105, size button "Kullan", 5, 123 126 49 12 button "Whois", 6, 199 126 51 12 text "Proxy Listesi", 7, 134 8 31 8 edit "Yukleniyor", 8, 82 144 111 11, read button "Proxy Kullanma", 9, 53 126 50 12 } on :dialogroxy:::{ if ($devent == dclick) { if ($did == 1) { unset %sjn.answer \| unset %sjn.test \| pagejump $remove($did(1).seltext,$chr(32)) \| did -r proxy 4 } } if ($devent == init) { did -b proxy 8 } if ($devent == sclick) { if ($did == 6) { $iif($dialog(pwhois),dialog -x pwhois pwhois) $iif($did(4).sel,dialog -m pwhois pwhois) unset %sjn.answer $iif($did(4).sel,pwhois $gettok($did(4).seltext,1,32)) } if ($did == 5) { .firewall on \| .firewall -mp $gettok($did(4).seltext,1,32) $gettok($did(4).seltext,3,32) \| echo -a Kullanilan Proxy -> $gettok($did(4).seltext,1,32) $gettok($did(4).seltext,3,32) } if ($did == 9) { .firewall off \| echo -a Proxy Kullanimi Iptal Edildi } } if ($devent == Close) { sockclose proxy* } } on :SockOpenroxy2:{ if ($sockerr) { did -ra proxy 8 Hata! \| sockclose proxy } sjn2 GET / $+ %sjnproxy.link HTTP/1.1 sjn2 host: www.proxy4free.com sjn2 User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) sjn2 $crlf } on :SockReadroxy2:{ var %a sockread %a if ($gettok(%a,1,32) == <tr) && (href !isin %a) { set %sjn.test Ok! } if (%sjn.test == Ok!) && (bgcolor !isin %a) && (align !isin %a) && (class !isin %a) && (href !isin %a) && (width !isin %a) { %sjn.answer = %sjn.answer - $cleartext(%a) } if ($gettok(%a,1,32) == </tr>) { $iif($remove(%sjn.answer,-,tr,$chr(32)) && %sjn.answer != - tr && $mid($gettok(%sjn.answer,2,32),1,1) isnum,did -a proxy 4 $gettok($remove(%sjn.answer,tr),2-,32)) \| unset %sjn.test \| unset %sjn.answer } Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=93634 } on :SockCloseroxy:{ did -ra proxy 8 Tamam. } dialog pwhois { title "Whois Bak" size -1 -1 158 188 option dbu edit "", 1, 12 12 135 157,read vsbar multi autovs autohs button "Tamam", 2, 59 174 37 12, ok } on ialogwhois:close::sockclose proxy3 \| did -ra proxy 8 Tamam. on :SockOpenroxy3:{ sjn3 GET /cgi-bin/whois.cgi?domain= $+ %sjn.pwhois HTTP/1.1 sjn3 host: www.proxy4free.com sjn3 User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) sjn3 $crlf } on *:SockReadroxy3:{ var %a sockread %a if (<code> isin %a) { var %i 3 while %i <= 19 { did -a pwhois 1 $cleartext($gettok(%a,%i,$asc(>))) $+ $crlf inc %i } } }

Konu Araçları	Bu Konuda Ara
Printer Çıktısını Göster Sayfayı Emaille Yolla	Bu Konuda Ara: Gelişmiş Arama

25-09-2006, 11:29	#2
DeltaFuL Çırak Kayıt Tarihi: Jul 2006 Üye numarası: #78572 Mesaj sayısı: 18 Karma etkisi: 0 Karma: 20	http://www.sinema.com/filmler.aspx?Status=4 sitesinden vizyonda oynayan filmleri mIRC'de /sinema komutu ile Sinema.com penceresine yansıtır. Aşağıdaki kodu mIRC'nin remote (ALT+R) bölümüne koyuyorsunuz. İşte kod: alias sinema { if $sock(sinema) { sockclose sinema } \| sockopen sinema sinema.com 80 \| echo 3 -st * Sinema.com: Vizyondaki filmler alınmaya çalışılıyor. \| if $window(@Sinema.com) { clear @Sinema.com } } Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=93634 alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]>\|<[^>]>\|<[^>]$)/g,$null,%x), %x = $remove(%x,&nbsp \| return %x } alias -l sinemay { if !$window(@Sinema.com) { window -nk0 @Sinema.com } \| aline -p @Sinema.com $1- } on :sockopen:sinema:{ var %c = sockwrite -n $sockname \| %c GET /filmler.aspx?Status=4 HTTP/1.1 \| %c Host: sinema.com $+ $crlf $+ $crlf } on :sockread:sinema:{ if ($sockerr) { echo 3 -st Sinema.com: Vizyondaki filmleri alırken hata oluştu. Lütfen tekrar deneyiniz. \| halt } else { var %- \| sockread %- \| if (<td width="271" class="red" valign="top"><a href="film_ozetbilgiler.aspx iswm %-) \|\| (<td width="391"><a href="film_ozetbilgiler.aspx?FilmID="><img src="images/but_git.gif"* iswm %-) \|\| ($count(%-,$chr(9)) == 13) { sinemay $+($iif(red iswm $v1,04,03),$remove($htmlfree(%-),$chr(9),)) } elseif (<img src="images/but_os.gif" iswm %-) { sinemay 05Devamı ve daha fazla bilgi için:12 $+(,http://www.sinema.com/,$replace($gettok(%-,2,34),sinema,zetbilgiler),) } elseif (HTML:Erhan İDİZ iswm %-) { if $sock(sinema) { sockclose sinema } \| if $window(@Sinema.com) { window -a @Sinema.com } } } }

25-09-2006, 11:32	#3
DeltaFuL Çırak Kayıt Tarihi: Jul 2006 Üye numarası: #78572 Mesaj sayısı: 18 Karma etkisi: 0 Karma: 20	Forumda Arama Yaptım bulamadım . sizinle paylaşmak istedim ;################################################# # :## Bu kodlar ZeHir tarafından hazırlanmıştır.... ;################################################# # on 1:load: { if ( $version < 5.6 ) { unload -rs yazitipi.mrc echo 4 -a mIRC versiyonunuz yazıtipi addonını desteklemiyor, yazıtipi addonı kaldırılıyor. \| halt } else { echo 4 -a YAZITipleri add-onu yüklendi. } } #yazirenkli off on 1:INPUT::{ unset %ahenk if ( $chr(47) == $mid($1-,1,1) ) { $1- \| unset %ahenk* \| halt } :ilk inc %ahenks if ( %ahenks > $len($1-) ) { say %ahenkt \| unset %ahenk* \| halt } %ahenkh = $mid($1-,%ahenks,1) %ahenkh = $replace(%ahenkh,$chr(32),$chr(0160)) %ahenkt = %ahenkt $+ $+ $rand(3,13) $+ %ahenkh goto ilk } #yazirenkli end #yaziters off on 1:INPUT::{ unset %ters if ( $chr(47) == $mid($1-,1,1) ) { $1- \| unset %ters* \| halt } :ilk inc %terss if ( %terss > $len($1-) ) { say %terst \| unset %terst* \| halt } Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=93634 set %tersh $mid($1-,%terss,1) %terst = %tersh $+ %terst goto ilk } #yaziters end #yaziturkce off on 1:INPUT::{ unset %turkce set %turkce $1- if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce \| unset %turkce \| halt } %turkce = $replacecs(%turkce,ý,I,Ý,Î,þ,$,Þ,$,ç,¢,Ç,¢,ð,g,Ð,Ð ,ü,û,Ü,Û,ö,ô,Ö,Ô) say %turkce unset %turkce halt } #yaziturkce end #yazielit off on 1:INPUT::{ unset %elit set %elit $1- if ( $chr(47) == $mid(%elit,1,1) ) { %elit \| unset %elit \| halt } %elit = $replacecs(%elit,a,å,b,ß,c,©,d,D,e,ë,f,F,h,]-[,i,î,k,\|{,l,£,m,M,n,ñ,o,ø,p,P,q,¶,r,®,s,§,t,±,u,µ, v,V,w,\\',x,×,y,¥,z,Z,ý,I,Ý,Î,þ,$,Þ,$,ç,¢,Ç,¢,ð,g, Ð,Ð,ü,û,Ü,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,',`,`,') say %elit unset %elit halt } #yazielit end #yaziseskuc off on 1:INPUT::{ unset %seskuc set %seskuc $1- if ( $chr(47) == $mid(%seskuc,1,1) ) { %seskuc \| unset %seskuc \| halt } %seskuc = $replacecs(%seskuc,q,Q,w,W,E,e,r,R,t,T,y,Y,U,u,I,ý ,O,o,p,P,ð,Ð,Ü,ü,A,a,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l ,L,þ,Þ,Ý,i,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,Ö,ö,ç,Ç) say %seskuc unset %seskuc Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=93634 halt } #yaziseskuc end #yazibuykuc off on 1:INPUT::{ unset %buy* set %buyk $1- if ( $chr(47) == $mid(%buyk,1,1) ) { %buyk \| unset %buy* \| halt } set %buys 1 set %buyu $len(%buyk) :ilk if ( %buys > %buyu ) goto son set %buyh $mid(%buyk,%buys,1) if ( %buyh == $chr(32) ) { %buyh = $replace(%buyh,$chr(32),$chr(0160)) } %buyh = $replacecs(%buyh,q,Q,w,W,e,E,r,R,t,T,y,Y,u,U,ý,I,o ,O,p,P,ð,Ð,ü,Ü,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L ,þ,Þ,i,Ý,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,ö,Ö,ç,Ç,!, ¡,? ,¿) set %buyb %buyb $+ %buyh inc %buys if ( %buys > %buyu ) goto son set %buyh $mid(%buyk,%buys,1) if ( %buyh == $chr(32) ) { %buyh = $replace(%buyh,$chr(32),$chr(0160)) } %buyh = $replacecs(%buyh,Q,q,W,w,E,e,R,r,T,t,Y,y,U,u,I,ý,O ,o,P,p,Ð,ð,Ü,ü,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l ,Þ,þ,Ý,i,Z,z,X,x,C,c,V,v,B,b,N,n,M,m,Ö,ö,Ç,ç,¡, !,¿ ,?) inc %buys set %buyb %buyb $+ %buyh goto ilk :son say %buyb unset %buy* halt } #yazibuykuc end dialog yazitip { title "Yazýtipi" size -1 -1 110 190 radio "Tûrk¢e",1,10 10 90 20 radio "ë£î±",2,10 30 90 20 radio "sreT",3,10 50 90 20 radio "BüYüK-kÜçÜk",4,10 70 90 20 radio "SeSSiZ BüYüK",5,10 90 90 20 radio "Renkli",6,10 110 90 20 radio "Normal",19,10 130 90 20 box "",20,5 0 100 155 button "TAMAM",21,5 165 100 20,ok } on 1:dialog:yazitip::: { if ( $devent == init ) { if ($group(#yaziturkce).status == on ) { did -c yazitip 1 } elseif ($group(#yazielit).status == on ) { did -c yazitip 2 } elseif ($group(#yaziters).status == on ) { did -c yazitip 3 } elseif ($group(#yazibuykuc).status == on ) { did -c yazitip 4 } elseif ($group(#yaziseskuc).status == on ) { did -c yazitip 5 } elseif ($group(#yazirenkli).status == on ) { did -c yazitip 6 } else { did -c yazitip 19 } } if ( $devent == sclick ) { if ( $did == 1 ) { .disable #yazi* \| .enable #yaziturkce } if ( $did == 2 ) { .disable #yazi* \| .enable #yazielit } if ( $did == 3 ) { .disable #yazi* \| .enable #yaziters } if ( $did == 4 ) { .disable #yazi* \| .enable #yazibuykuc } if ( $did == 5 ) { .disable #yazi* \| .enable #yaziseskuc } if ( $did == 6 ) { .disable #yazi* \| .enable #yazirenkli } if ( $did == 19) { .disable #yazi* } } } alias yazitip { dialog -m yazitip yazitip } menu query,channel { Yazıtipi...:/yazitip } Bu dosyayı mirc klasörüne kopyalayin ve /load -rs dosyayınınyolu\yazitipi.mrc komutunu kullanarak addonu yükleyin. Yükleme işlemini doğru yaptığınız takdirde özel ve kanal pencerelerine sağ tıkladığınız zaman "Yazıtipi..." butonunu göreceksiniz. göreceksiniz. Buna tıklayıp 6 yazıtipini seçebilirsiniz. Benden Bukadar aarkadaslar

25-09-2006, 15:10	#5
PheNoMeN 1st Class Helper Kayıt Tarihi: Nov 2004 Üye numarası: #373 Yer: Ankara Mesaj sayısı: 2,096 Karma etkisi: 372 Karma: 36242	Buradan mIRC addonlarina devam edersek konunun ismini degistirip sabit bir baslik haline getirebilirim. Addonlar tek konu altinda toplanmis olur. Tesekkurler bu arada.

Şu Anda Konuyu Görüntüleyenler: 1 (0 üye ve 1 misafir)