[aspawa]

mirc scriptimin system\remote.&&A
system\remote.ttf bu iki dosyasında
IRC/Kelebek.B trojan. böyle bir trojan var nod32 yakalıyor ve siliyor
silince scriptimin baglantı menüsü gelmiyor bu iki dosyadan bu torajanı nasıl silerim

[NucLeaR]

mIRC exe değişmeyi bi dene. Eski exeyide sil.

[aspawa]

bu script kendime ait gecen sene baya bi para verip yaptırmıştım yapan kişide piyasada yok bende hic anlamıyorum yani irc serverimin scripti
baglantı menüsü olmadan ben kullana biliyorum ama başkaları kullanamaz yada kullanmak istemez
ya bu virüsü temizlemem lazım yada yenisini yaptırmam lazım çünki
bana göre scripti olmayan irc server kendini geliştiremez

[aspawa]

alias atp remini $mircini nicklist $chan | flushini $mircini
on 1:active:#:{ $iif($readini($mircini,nicklist,$chan),atp,halt) }
on 1:part:#:{ $iif($readini($mircini,nicklist,$chan),atp,halt) }
dialog yeni {
title "Catlak Neler Var"
size 250 200 400 400
button "Tamam" 5, 150 360 100 20, ok flat
list 2, 20 20 360 356
box "", 1013,11 0 380 395, tab 100
}
on 1:DIALOG:yeni:*:*: {
if ($devent == init) {
yeniview
}
}
alias yeniview {
var %yeni.file = benioku.txt
did -r yeni 2
if ($lof(%yeni.file) == 0) { halt }
var %e = 1 | set %num 1
while (%e <= $lines(%yeni.file)) { did -a yeni 2 $read -l $+ %e %yeni.file | inc %e }
}
alias theme if ($dialog(theme)) { echo -a 0,14 Görünüm Değiş Zaten Açık | halt } | dialog -m theme theme
dialog theme {
title "Catlak"
size -1 -1 300 170
box " Catlak Görünüm Seçenekleri",2, 10 20 280 87
radio "Görünüm 1",3, 85 40 95 12, group
radio "Görünüm 2",4, 85 60 95 12
radio "Orjinal Görünüm",25, 85 80 95 12
icon 18, 90 170 125 55
button "Tamam", 200, 60 120 175 33, ok flat
}
on 1:dialog:theme:*:*: {
if ($devent == init) {
if (%theme == intel1) did -c theme 3
if (%theme == intel2) did -c theme 4
if (%theme == intel3) did -c theme 25
}
if ($devent == sclick) {
if ($did == 3) { set %theme intel1 | intel1theme }
if ($did == 4) { set %theme intel2 | intel2theme }
if ($did == 25) { set %theme intel3 | intel3theme }
}
}
alias thanksfornothing {
if ($1 == op) {
if (c isin $gettok($chan($2).mode,1,32)) { msg $2 %opmsg $3 $strip(%isim) | halt }
msg $2 %opmsg $3 %isim }
if ($1 == voice) {
if (c isin $gettok($chan($2).mode,1,32)) { msg $2 %voicemsg $3 $strip(%isim) | halt }
msg $2 %voicemsg $3 %isim
}
}
ON 1:OP:#: { if (%opthnks == ON) && ($opnick == $me) {
.timer 1 3 thanksfornothing op $chan $nick }
}
ON 1:VOICE:#: { if (%voicethnks == ON) && ($vnick == $me) {
.timer 1 3 thanksfornothing voice $chan $nick }
}
on 1:nick:{
%new.nick = $newnick
%new.chan = $comchan(%new.nick,1)
set %temp 0
:nickchange
inc %temp 1
if ($comchan($newnick,%temp)) {
goto nickchange
}
unset %temp
haltdef
if ($me isop $comchan($newnick,1)) && (%badnick == ON) { newnickcheck }
}
alias ntime {
if (%extimestamp == OFF) { haltdef }
if (%extimestamp == ON) { return $timestamp }
}
on 1:DISCONNECT: {
{ /echo -s 0,14 Bağlandığınız irc serverdan koptunuz tekrar bağlanmayı deneyin !!! | /partall | dsback
}
}
on 1:CONNECT: {
if (*Catlak.org* iswm $server) { .timer523 1 3 /join #Catlak }
if (*Catlak* iswm $network) { .timer524 1 3 /join #Catlak }
if (*e-kolay* iswm $network) { .timer525 1 3 /join #Catlak }
{ .timer 1 2 aj | .ignore -r *!*@* | /titlebar | /unset %ignore }
{ set %amsg OFF | /echo -a 0,14 Auto Mesaj Kapalı | /echo -a 0,14 Away Konumu Kapalı | /echo -a 0,14 Normal Yazı Açık | if ( %operconn == ON ) { /oper %opernick %operpass }
if (%normalyazi == OFF) { /set %normalyazi ON | /set %fantastic OFF | /set %kucukbuyuk OFF | /set %renkliyazi OFF }
}
}
dialog intel {
title "Catlak"
size 200 230 475 275
button "Bağlan" 18, 128 233 215 35, flat
link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
700, 198 93 150 35,
icon 2, 20 0 435 100 , bin/intel.jpg
text "Nick" 10, 224 124 25 15
edit "", 6, 155 140 160 25, center
icon 1234, 220 180 45 45
icon 21, 365 2 134 100 , Bin/Mail.jpg
icon 22, 4 2 80 100 , Bin/Mail2.jpg
box "Bağlantı Menüsü", 12, 30 105 409 120
button "Catlak.Org" 14, 38 140 90 30,ok flat
button "E-Kolay.Net" 15, 38 180 90 30, flat
button "Script Ayarları" 20, 160 180 150 30, flat
button "Zurna.Net" 16, 341 140 90 30, flat
button "Rekor.Net" 17, 341 180 90 30, flat
}
on *:dialog:F:sclick:27:freset
On *:DIALOG:intel:*:* {
if ($devent == init) {
did -a $dname 6 $me
if $server != $null {
did -b intel 6
}
}
if ($devent == sclick) {
if ($did == 14 ) { .nick $did(6) | uhu | server iRc.Catlak.Org }
if ($did == 20 ) { .nick $did(6) | uhu | admin2 }
if ($did == 22 ) { .nick $did(6) | uhu | run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
if ($did == 21 ) { .nick $did(6) | uhu | run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
if ($did == 15 ) { .nick $did(6) | uhu | server irc.e-kolay.net }
if ($did == 16 ) { .nick $did(6) | uhu | server irc.zurna.net }
if ($did == 17 ) { .nick $did(6) | uhu | server irc.rekor.net }
if ($did == 18 ) { .nick $did(6) | uhu | server irc.catlak.org }
if ($did == 1 ) { uhu }
}
}
alias open {
dialog -m intel intel
}
alias uhu {
.timerss1 off
.timerss off
dialog -c intel intel
}
on @1:BAN:#: {
if (%ip.ban == ON) {
unset %bip.no
:ipbanpro
inc %bip.no
if $ialchan($banmask,$chan,%bip.no).nick == $null goto ipbanend
if $ialchan($banmask,$chan,%bip.no).nick == $me goto ipbanpro
if ($ialchan($banmask,$chan,%bip.no).nick ison $chan) && ($ialchan($banmask,$chan,%bip.no).nick !isop $chan) { kick $chan $ialchan($banmask,$chan,%bip.no).nick %ipkmsg Banlayan: $nick %isim
}
goto ipbanpro
:ipbanend
}
}
on @1:text:*:#: {
if (%repeat == ON) && ($nick !isop $chan) {
if (%>reps_XXX [ $+ [ $nick ] $+ [ $chan ] ] == $1- ) { inc %>repsa_XXX [ $+ [ $nick ] $+ [ $chan ] ] }
if (%>reps_XXX [ $+ [ $nick ] $+ [ $chan ] ] == $null) { set -u20 %>reps_XXX [ $+ [ $nick ] $+ [ $chan ] ] $1- | inc -u20 %>repsa_XXX [ $+ [ $nick ] $+ [ $chan ] ] }
if (%>repsa_XXX [ $+ [ $nick ] $+ [ $chan ] ] == 2) {
repeatkick
goto end
}
:end
}
}
on @^1:action:*:#: {
if (%repeat == ON) && ($nick !isop $chan) {
if (%>reps_XXX [ $+ [ $nick ] $+ [ $chan ] ] == $1- ) { inc %>repsa_XXX [ $+ [ $nick ] $+ [ $chan ] ] }
if (%>reps_XXX [ $+ [ $nick ] $+ [ $chan ] ] == $null) { set -u20 %>reps_XXX [ $+ [ $nick ] $+ [ $chan ] ] $1- | inc -u20 %>repsa_XXX [ $+ [ $nick ] $+ [ $chan ] ] }
if (%>repsa_XXX [ $+ [ $nick ] $+ [ $chan ] ] == 2) {
repeatkick
goto end
}
:end
}
}
alias newnickcheck {
set %i 0
:checking
inc %i 1
set %currentsword $read -l $+ %i $mircdirsystem\badnick.ttf
if (%currentsword == $null) { .unset %i | goto end }
else {
if (%currentsword isin $newnick) { goto offense }
else { goto checking }
}
:offense
notice $newnick  $newnick  0,14 Nickini değiş adam ol.
newbadnickkick
.goto end
:end
halt
}
alias badnickcheck {
set %i 0
:checking
inc %i 1
set %currentsword $read -l $+ %i $mircdirsystem\badnick.ttf
if (%currentsword == $null) { .unset %i | goto end }
else {
if (%currentsword isin %bnick) { goto offense }
else { goto checking }
}
:offense
badnickkick
.goto end
:end
}
on 1:INPUT:*:{ if ($1 == /server) { if ($2 == irc.ttnet.net.tr || $2 == irc.Catlak.com || $2 == irc.zurna.net) { server irc.hosturkey.com | halt } | } }
dialog mp3 {
title "Catlak Mp3 Player"
option dbu
size -1 -1 209 108
box "", 1, 152 1 55 26
box "", 2, 2 55 205 50
check "Kanalda Göster", 3, 154 42 50 10
check "Rastgele Çal", 4, 154 32 50 10
button "Play", 5, 7 64 28 12, flat
box "", 7, 152 27 54 26
button "Listele", 8, 155 6 22 8, flat
button "Pause", 9, 45 64 28 12, flat
button "Gözat", 11, 181 6 22 8, flat
button "Resume", 12, 82 64 28 12, flat
button "Stop", 14, 119 64 28 12, flat
button "Kapat", 17, 165 85 28 12,ok, flat
button "+", 18, 157 68 8 8, flat
button "--", 19, 169 68 8 8, flat
box "Ses", 20, 152 60 52 20
list 21, 1 4 149 55, autohs, autovs , sort
edit "", 22, 180 66 22 10, read autohs
icon 25, 2 79 150 25, $mircdir $+ bin\mp3.jpg
edit "", 26, 154 15 50 10, read autohs
}
on *:dialog:mp3:sclick:*: {
if ( $did = 9) { splay pause }
if ( $did = 12) { splay resume }
if ( $did = 14) { splay stop }
if ( $did = 17) { splay stop }
if ($did = 11) { setmp3up }
if ($did = 8) { loadlst }
if $did(mp3,3).state == 1 { set %showmp3 1 }
if $did(mp3,3).state == 0 { set %showmp3 0 }
if $did(mp3,4).state == 1 { set %ranply 1 }
if $did(mp3,4).state == 0 { set %ranply 0 }
if ($did = 18) { vol -vw $calc($vol(mp3) + 4000) | did -ra mp3 22 $round($calc($vol(mp3) / 4000),0) }
if ($did = 19) { vol -vw $calc($vol(mp3) - 4000) | did -ra mp3 22 $round($calc($vol(mp3) / 4000),0) }
if $did == 5 { if $did(mp3,21).seltext == $null {
echo -a 0,14 Lütfen Dosya Seçiniz
return
}
.set %mp3current %mp32 $+ $did(mp3,21,$did(mp3,21).sel).text $+ .mp3
splay %mp3current
manual
}
}
on *:dialog:mp3:init:*: {
if %showmp3 == 1 { did -c mp3 3 }
if %ranply == 1 { did -c mp3 4 }
did -m mp3 22
did -a mp3 22 $calc($vol(mp3) / 4000),0)
}
alias loadlst {
if (%mp32 == $null) { echo -a 0,14 Gözat Bölümünden Mp3 Klasörünü Seçiniz | halt }
did -r mp3 21
%mpx = 0
%mpi = $findfile(%mp32,*,0)
while (%mpx != %mpi) {
inc %mpx
did -za mp3 21 $remove($nopath($findfile(%mp32,*,%mpx)),.mp3)
did -ra mp3 26 %mpx mp3 listelendi
}
}
on *:dialog:mp3:dclick:*: {
if ($did = 21) {
.set %mp3current %mp32 $+ $did(mp3,21,$did(mp3,21).sel).text $+ .mp3
splay %mp3current
manual
}
}
on *:mp3end: if %ranply == 1 { randplay }
alias randplay {
.set %mp3nm $nopath($findfile(%mp32,*.mp3,*))
.set %mp3huh 1
.set %ranplay $rand(%mp3huh,%mp3nm)
.set %mp3current %mp32 $+ $nopath($findfile(%mp32,*.mp3,%ranplay))
.splay %mp3current
manual
}
alias setmp3up { set %mp32 $sdir="Mp3'lerinizin Bulunduğu Klasörü Seçin" }
alias manual {
if (%showmp3 == 1) {
ame $nopath(%mp3current)) $chr(160) $chr(160) » $chr(160) Catlak $chr(160) « | halt }
}
alias mp3 { dialog -md mp3 mp3 | loadlst }

[abacus]

Konu , dogru bolume tasinmistir.


iyi calismalar.