IRC Trojan Silici

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 NucLeaR" 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 "NucLeaR ©", 10, 15 90 36 8 link "mircnet@hotmail.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) { var %_w 1 while %_w <= $did($dname,4).lines { remove $did($dname,4,%_w).text inc %_w } } } } } menu status,menubar { - IRC Trojan Remover:_tr - }