26.05.2009 08:00    

aslanv
Bu acaddoc.lsp virüsü ile ilgili forumda birçok konu açılmış ancak sanırım en çok faydalısı bu bölüm. ehya baya bir mücadele vermiş sorunu çözebilmek için. Autocad 2009 ve diğer versiyonlarda da aynı sorun var. Ne kadar temizlesek de (kaspersky virüs programı ile) dwg dosyasına tıklayınca yine aynı dosya içine acaddoc.lsp dosyasını oluşturuyor. supportta bir yere kendini atıyor. Bir türlü temizleyemedik. Acaba ehyanın dediği gibi .lsp olan tüm dosyaları silip yeniden yüklesek (nasıl olacak bilmiyorum ama) sorun çözülür mü? virüsün kaynağını çözemedik. Yardımcı olacaklar var ise artık forumda bu sorunla ilgili herkes buradan çözüme baksın derim çünkü aratınca 10 farklı forum sayfası çıkıyor.

26.05.2009 08:21    

ehya
Öğrendiğim kadarıyla AVAST adlı antivirüs programı bu virüsü silmekte. Bu programın demo versiyonunu yükleyerek bilgisayarınızda tarama yapmanızı öneririm.

26.05.2009 08:29    

aslanv
bizim ofiste de lisanslı KASPERSKY mevcut. O varken sanırım AVAST yükletmişyor diye biliyorum. KAspersky da buluyor ve siliyor ama sanırım sözde. Tekrar yine oluşturuyor. Onun çözemedik merkezi nerede diye.

26.05.2009 09:32    

macapapazi
bundan kurtulmanın en basit bir yolu var.
ilk olarak bilgisayarı " güvenli kip " te açacaksınız.daha sonra "başlat- ara " dan ".lsp" diye taratıp. buldugu lisplerden "acaddoc.lsp" olanları sileceksiniz...

herkese kolay gelsin.

26.05.2009 11:15    

ehya
macapapazi

bunu denedinde mi söylüyorsun? yoksa sadece tavsiye mi?

acaddoc.lsp dosyası autocad'in mevcut dosyası olup açılışta yüklenmesi gereken dosyalardandır. Bunu silmek bir çözüm değil, belki de bi hataya neden olacaktır.

26.05.2009 18:28    

fırtına böcüğü
benim de başıma birkaç defa geldi,bu sorunla epey boğuştum.
kesin çözümü de programı tekrar silip yüklemek ve artakalan ne kadar acaddoc.lsp varsa bunlardan da antivirüs programıyla (ben kaspersky ile çözdüm :) )kurtulmak umarım herkes kurtulur kolay gelsin..

27.05.2009 05:53    

aslanv
Dün akşam tüm ofis, iş çıkışı aynı anda tüm programlar kapalı iken virüs taramasını başlatıp evlere gittik. Sabah ofise geldiğimizde en az 5-6 tane virüs bulmuştu. Ancak herhangi bir dwg ye tıklar tıklamaz, acaddoc.lsp dosyasını yine oluşturdu. Çıldırmamak elde değil. Kaspersky bir işe yaramadı gözüküyor. Çözüm araştırması devam ediyor. Başka bir yöntem bilen varsa yardımcı olsun. Ben bulursam ilk fırsatta buraya yazacağım.

27.05.2009 06:13    

halilozcakir
norton 2009 ile aynı yöntemi deneyin




Linkleri görebilmek için ÜYE olmalısınız.




Linkleri görebilmek için ÜYE olmalısınız.





Linkleri görebilmek için ÜYE olmalısınız.




Linkleri görebilmek için ÜYE olmalısınız.

halilozcakir (27.05.2009 07:29 GMT)

27.05.2009 08:27    

macapapazi
Herkese kolay gelsin,

Aynı sorun bende meydana geldi.Autocad içindeki çogu komutlarım çalışmaz oldu.Ben de bir kaç tane virus programı kurdum ve denedim.Virüs programları sildigi halde bilgisayarı açıp Autocad i açtıgım zaman, aynı sorunları tekrardan yaşıyordum.Eğer şüphesi olanlar var ise aşagıda sıralayacagım birkaç yöntemle autocad ayarlarını tekrar eski haline getirebilirler;

1- Autocad ayarlarınızı “Export “ edip , daha sonra yeniden “import” ederek eski haline getirebilirsiziniz.
2- Aranma sonucunda bulgunuz dosyaları bir cd veya flash diske atıp silinen yerleri not ederek daha sonra aynı yerlere kopyalayarak eski haline getirebilirsiniz.
3- Autocad i program ekle-kaldır bölümünden “repair” et diyerek.

burada karar size kalmış .

Saygılar

28.05.2009 06:21    

aslanv
herkes norton demiş ama nortonun 15 günlük deneme sürümü 26 şubatta güncellenmiş ve şimdi update yapmıyor. o nedenle acaddoc.lsp virüsünü(ALS.Pasdoc.a) bulamıyor direk klasörü gösterdiğimizi halde. ALS.Bursted.B diye bir virüs uyarısı veriyor. Çevremde bildiğim herkeste bu virüs bulaşmış durumda. Şu an yeni çıkacak bir virüs yazılımı satış patlaması yapabilir eğer buna çare bulursa. Bekliyoruz.

30.09.2009 08:01    

ProhibiT
Merhabalar arkadaşlar :)

Bütün mesajları okudum, burada çözüm diye bahsedilen hiç bir şeyin bir anlamı yok. Sözkonusu ALS/Pasdoc.A tam anlamıyla bir virüs değil. Olsa olsa script virüs diye adlandırılabilir. Çalışma mantığı çok basit.

Bahsedilen çözüm önerilerine gelince; Adı geçen antivirüs programları, yalnızca enfekte olmuş dosyayı bulabiliyor, temizleyemiyorlar, Silmeyi teklif ediyorlar. Bunu kabul edip silmeye karar verirseniz, AutoCAD'in kullandığı pek çok dosyı da silmiş oluyorsunuz.

Burada bahsedildiği gibi, AutoCAD'i kaldırıp yeniden kurmak asla bir çözüm değil. Bu doğrultuda tavsiyelerde bulunan arkadaşlar, bulanık suda balık avlamaya çalışmışlar. Önce bu ALS/Pasdoc.a virüsünün nasıl çalıştığını anlamak lazım. Çok basit bir mantıkla çalışıyor. İlgi duyan, merak eden arkadaşlara daha detaylı anlatabilirim.

Arkadaşlar, bu virüsle epeyce boğuştum, sanal ortamda bu konuylailgili yazılan hemen her şeyi okudum. Çözüm olarak gösterilenlerin inanılmaz saçma, cahilce olduklarını gördüm. Burada da yansımaları var bunun. Virüsün çalışma mantığını çözdükten sonra Manuel olarak temizlemeyi başardım. Bu temizlik işi mantık olarak çok basit, ama, epeyce uğraşmak, emek vermek gerekiyor.

Bu konudan muzdarip çok insan olduğunu görünce de, tarama ve temizleme işlemini yapan bir program yazdım. Hiç bir AutoCAD dosyasına zarar vermeden, güvenli bir şekilde temizlik işlemini yapıyor. İsteyen arkadaşlar irtibat kursunlar kendilerine gönderebilirim...

Herkese Kolay Gelsin :)

ProhibiT (12.11.2009 10:28 GMT)

30.09.2009 08:15    

ehya
Bu aydınlatıcı bilginiz için öncelikle teşekkürler.
Ancak öyle bulanık suda balık avlamadık merak etmeyin :)

Antivirüs programları bu kadar basit mantıkla çalışan bi virüsü silemeyip sadece bulaştığı nesneleri bulup silebiliyorken, sizin bu kadar basit bir mantıkla çalışan virüsü silen bi program yapmanız takdire şayan.

Ancak, bu temizleme işi için yaptığınız programı tekil şekilde tek tek uğraşarak dağıtmak yerine programınızı burada yayınlasanız da, herkes sizinle tek tek irtibata geçmeden dosyayı indirse daha güzel olmazmı???

01.10.2009 09:45    

ProhibiT
- Birincisi; forum kurallarını bilmediğim için doğrudan burada paylaşmadım.
- İkincisi; Autodesk ile aramdaki bir sürtüşme nedeniyle yazdım bu programı.
- Üçüncüsü; Bulanık suda balık avlamaktan neyi kasdettiğimi özel mesajla bir arkadaşa yazmıştım.
-------------------------------------------------------------------------------------------------------------------
Vakit ayırıp cevap yazdığınız için teşekkür ederim

Paylaştığınız çözüm yoluyla ilgilibazı açıkalamalar yapmak istiyorum...

Her şeyden önce, acaddoc.lsp ve genel ismiyle acadxxxdoc.lsp dosyası AutoCAD'in kullandığı legal bir dosyadır. acad.lsp veya "Application Load" da "Startup Suite" de yer alan dosyalar nasıl AutoCAD'in her açılışında yükleniyorlarsa, acaddoc.lsp ve bu aileden dosyalarda ilgili klasörde yer alan bir drawing dosyası açıldığında otomatik olarak yüklenirler. Birinci gurup programla tetiklenir, ikinci gurup çizim dosyasıyla.
Bilgisayarda bulunan bütün acaddoc.lsp dosyaları silindiğinde, bazı üçüncü parti (thirdy party) yazılımların oluşturup kullandıkları masum acaddoc.lsp dosyalarının da silinmesine sebep olabilirler. Eğer varsa, AutoCAD altında çalışan bazı application lar bu durumda çalışamaz hale gelebilirler.

**** Demek ki; bütün acaddoc.lsp dosyaları değil, enfekte olmuş acaddoc.lsp dosyaları silinmelidir. Daha doğru deyimle enfekte olmuş acaddoc.lsp dosyaları silinmemeli temizlenmelidir. acaddoc.lsp dosyasında enfeksiyon dışında bir içerik bulunmuyorsa, o zaman tamamen silinmelidir...

Şu meşhur acaddoc.lsp dosyasından bir bölüm;
Kod:

(setq acadmnl (findfile "acad.mnl"))
(setq acadmnlpath (vl-filename-directory acadmnl))
(setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
(setq mnlnum (length mnlfilelist))
(setq acadexe (findfile "acad.exe"))
(setq acadpath (vl-filename-directory acadexe))
(setq support (strcat acadpath "\\support"))
(setq lspfilelist (vl-directory-files support "*.lsp"))
(setq lspfilelist (append lspfilelist (list "acaddoc.lsp")))
(setq lspnum (length lspfilelist))
(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))

(findfile "acad.mnl") komutuyla acad.mnl dosyasını buluyor. AutoCAD her açıldığında mutlaka bu dosyayı yükler.

(vl-filename-directory acadmnl) komutuyla bu dosyanın bulunduğu klasörü buluyor. Sözkonusu klasör
Autocad default path'te değildir. örneğin bende "C:\Users\Administrator\AppData\Roaming\Autodesk\AutoCAD 2010\R18.0\enu\Support" diye bir yerde.

(vl-directory-files acadmnlpath "*.mnl") komutuyla o klasörde bulunan bütün *.mnl dosyalarını bulup listeliyor.

Sonuç olarak;
* ALS/Pasdoc.a virüsü bir tek AutoCAD\Support klasöründeki *.lsp dosyalarına eklemiyor kendini. acad.mnl dosyasının bulunduğu klasördeki bütün *.mnl dosyalarına da ekliyor.
* Eğer AutoCAD'de kişiselleştirilmiş menüler ve bu menulerin kullandığı AutoLisp rutinleri kullanıyorsanız, acad.mnl dışında başka -.mnl dosyaları da oluşturmuş olursunuz. Pek çok kullanıcı menuleri kişiselleştirir.
* AutoCAD uninstall edildiğinde "AutoCAD default path" dışında kalan ve bu *.mnl dosyalarının bulunduğu klasörü kaldırılmaz. Yeniden kurduğunuzda acad.mnl gibi AutoCAD'in kendi dosyaları mevcudun üzerine yazılarak yenilenir. Fakat kullanıcının oluşturduğu özelleştirme dosyaları eski halleriyle kalırlar.

**** Demek ki; AutoCAD'i yeniden kurmak aslında çözüm değil. Üstelik özelleştirilmiş, ve oturmuş bir AutoCAD konfigürasyonu kullanmıyor olsanız bile, AutoCAD'i unisntall edip yeniden install etmek, bütün ayarlarını yeniden yapmak, ciddi zaman ve emek istiyor. Sizin probleminizin çözülmüş olması şanslı olduğunuzu gösterir

Gelelim Support klasöründeki Autolisp dosyalarının (*.lsp) "readonly" yapılmasına;
Sözkonusu virüs, kendini (open target "r") komutuyla "read" modunda, diğer lisp ve MenuLisp Dosyalarını da, (open target "a") "append" modunda açıyor. AutoLisp programı içinden bu modala açılan dosyaya kendini ekleyebilir, işletim sistemi (windows) dan "readonly" yapılması bunu engelleyemez.

**** Demek ki; Support klasöründe bulunan *.lsp dosyalarının tümünü readonly yapmanın bir faydası yok.

Konuyla ilgisiz görünebilir ama bir detay daha;
Bu virüsü yazan bir acemi,

(setq dwgname (getvar "dwgname"))
(setq dwgpath (findfile dwgname))


Komutlarıyla önce o anda aktif olan drawing dosyasının adını buluyor. Çünki acaddoc.lsp dosyası başlangıçta mutlaka ve mutlaka aktif drawing klasöründen yüklenir ve yayılır. Sonra da ikinci satırdaki komutla o dosyanın klasörünü buluyor. Eğer Herhangi bir çizimin üzerine çift tıklayarak değil de, AutoCAD'i doğrudan boş dosya ile açtıysanız "dwgname" değişkeni tanımsız (nil) dir. Bunu da (if dwgpath... şeklinde bir komutla ayrıca kontrol etmek zorunda kalıyor. Biraz tecrübeli biri olsa doğrudan doğruya (setq dwgpath (getvar "dwgprefix")) gibi bir komutla o yolu bulur, AutoCAD nasıl açılırsa açılsın, dwgpath tanımsız (nil) duruma düşmezdi.

Eğer gözünüz korkmadıysa, ve bir yere bu acaddoc.lsp dosyasını kopyaladıysanız;
o dosyanın son satırına bir sağ parantez ")" ekleyerek açık kalan parantezi kapatıverin ) virüs daha ölümcül hale gelecek, çalışırken varlığını farketmeniz adeta imkansız hale gelecektir. Bu durumda AutoCAD öyle "esc" tuşuya falan kurtulamayacak, uzuuun bir süre bekledikten sonra, tamamen cevapsız (not responding) duruma düşecektir...
-------------------------------------------------------------------------------------------------------------------

- Dördüncüsü; Buyrun Source Code
;;; Bu Program ALS.Pasdoc.a virüsünün yarattığı acaddoc.lsp dosyalarının
;;; ve bulaştığı dosyaların silinmesi veya temizlenmesi işini yapar...
(defun c:acddcclr ()
  (setvar "cmdecho" 0)
  (graphscr)
  (grclear)
  (cpr1)
  (textpage)
  (setq mnlpath   (vl-filename-directory (findfile "acad.mnl"))
        mnlflist  (vl-directory-files mnlpath "*.mnl")
        mnlsay    (length mnlflist)
        mnflist   (vl-directory-files mnlpath "*._mn")
        mnsay     (length mnflist)
        support   (strcat (vl-filename-directory (findfile "acad.exe"))
                          "\\support"
                  )
        lspflist  (vl-directory-files support "*.lsp")
        lspsay    (length lspflist)
        lsflist   (vl-directory-files support "*._ls")
        lssay     (length lsflist)
        cizimyolu (getvar "dwgprefix")
        slnnvrs   0
        tmzlnnvrs 0
  )
  (if (> mnsay 0)
    (setq mnlflist (append mnlflist mnflist)
          mnlsay   (+ mnlsay mnsay)
    )
    (princ (strcat "\n"
                   mnlpath
                   " Klasöründe *._mn türü dosya bulunamadı..."
           )
    )
  )
  (if (> lssay 0)
    (setq lspflist (append lspflist lsflist)
          lspsay   (+ lspsay lssay)
    )
    (princ (strcat "\n"
                   support
                   " Klasöründe *._ls türü dosya bulunamadı..."
           )
    )
  )
;;; cizimyolu klasörünün taranıp virüs içeren acaddoc.lsp dosyasının
;;; temizlenmesi ya da silinmesi
  (if (setq risklidosya (findfile (strcat cizimyolu "\acaddoc.lsp")))
    (progn (setq gecicidosya (strcat cizimyolu "\\gecicidosya.gec"))
           (siltemizle)
           (if (= enfekte 1)
             (setq slnnvrs   (1+ slnnvrs)
                   tmzlnnvrs (1- tmzlnnvrs)
             )
           )
           (if (setq bosdosya (strcat cizimyolu "\\acaddoc.lsp"))
             (boskontrol)
           )
    )
    (princ
      (strcat
        "\n**** ""
        cizimyolu
        "" Aktif Drawing Klasöründe "acaddoc.lsp" dosyası bulunamadı."
      )
    )
  )
;;; Support klasörünün taranıp virüs içeren acaddoc.lsp dosyasının
;;; temizlenmesi ya da silinmesi
  (if (setq risklidosya (findfile (strcat support "\\acaddoc.lsp")))
    (progn (setq gecicidosya (strcat support "\\gecicidosya.gec"))
           (siltemizle)
           (if (= enfekte 1)
             (setq slnnvrs   (1+ slnnvrs)
                   tmzlnnvrs (1- tmzlnnvrs)
             )
           )
           (if (setq bosdosya (strcat support "\\acaddoc.lsp"))
             (boskontrol)
           )
    )
    (princ
      (strcat "\n**** ""
              support
              "" klasöründe "acaddoc.lsp" dosyası bulunamadı."
      )
    )
  )
;;; acad.mnl dosyasının bulunduğu klasörde yer alan *.mnl ve *._mn
;;; dosyalarının taranarak virüs içeriğinin temizlenemsi
  (setq mnlsyc 0)
  (while (< mnlsyc mnlsay)
    (if (setq risklidosya (strcat mnlpath "" (nth mnlsyc mnlflist)))
      (progn
        (setq gecicidosya (strcat mnlpath "\\gecicidosya.gec"))
        (siltemizle)
        (if (setq bosdosya (strcat mnlpath "" (nth mnlsyc mnlflist)))
          (boskontrol)
        )
      )
    )
    (setq mnlsyc (1+ mnlsyc))
  )
;;; AutoCAD Support klasöründe yer alan *.lsp ve *._ls dosyalarının
;;; taranarak virüs içeriğinin temizlenmesi
  (setq lspsyc 0)
  (while (< lspsyc lspsay)
    (if (setq risklidosya (strcat support "" (nth lspsyc lspflist)))
      (if (/= risklidosya (strcat support "\\acaddoc.lsp"))
        (progn
          (setq gecicidosya (strcat support "\\gecicidosya.gec"))
          (siltemizle)
          (if
            (setq bosdosya (strcat support "" (nth lspsyc lspflist)))
             (boskontrol)
          )
        )
      )
    )
    (setq lspsyc (1+ lspsyc))
  )
;;; İlgili Klasörlerde kalmış olabilecek geçici dosyaların silinmesi
  (close girkut)
  (close cikkut)
  (if (setq sil (findfile (strcat mnlpath "\\gecicidosya.gec")))
    (vl-file-delete sil)
  )
  (if (setq sil (findfile (strcat support "\\gecicidosya.gec")))
    (vl-file-delete sil)
  )
  (if (setq sil (findfile (strcat cizimyolu "\\gecicidosya.gec")))
    (vl-file-delete sil)
  )
;;; Tarama sonucunda silinen ya da temzilenen dosyaların raporlanarak ekranda yazılması
  (princ
    "\n--------------------------------------------------------------------------------"
  )
  (princ
    "\n**** AutoCAD Library Path ve şu anda aktif olan Drawing Path klasörü tarandı."
  )
  (if (= slnnvrs 0)
    (princ
      "\n     "ALS.Pasdoc.a" virüsü içeren "acaddoc.lsp" dosyası bulunamadı."
    )
    (princ
      (strcat
        "\n     "
        (itoa slnnvrs)
        " tane "acaddoc.lsp" dosyası "ALS.Pasdoc.a" virüsü içerdiği için silindi."
      )
    )
  )
  (if (= tmzlnnvrs 0)
    (princ
      (strcat
        "\n**** "
        (itoa lspsay)
        " tane "AutoLisp" dosyası ve "
        (itoa mnlsay)
        " tane "AcadMenuLisp" dosyası tarandı. \n     "ALS.Pasdoc.a" virüsüne rastlanmadı."
      )
    )
    (princ
      (strcat "\n     "
              (itoa tmzlnnvrs)
              " tane dosyadan "ALS.Pasdoc.a" virüsü temizlendi."
      )
    )
  )
  (princ
    "\n--------------------------------------------------------------------------------"
  )
  (princ
    "\n| "ALS.Pasdoc.a" virüsüne karşı güvelik önlemlerini tamamlamak için,           |"
  )
  (princ
    "\n| Bilgisayarınızdaki Sabit Diskleri tarayarak, bütün "acaddoc.lsp"             |"
  )
  (princ
    "\n| dosyalarını bulup içeriğini kontrol etmelisiniz. "acaddoc.lsp" dosyası       |"
  )
  (princ
    "\n| AutoCAD'in legal bir dosya tipidir. Kullanıyor olabileceğiniz, AutoCAD       |"
  )
  (princ
    "\n| altında çalışan bazı programlar "acaddoc.lsp" dosyası oluşturmuş olabilir    |"
  )
  (princ
    "\n| Her "acaddoc.lsp" dosyası virüslü değildir. Virüslü dosyayı tanıyacak        |"
  )
  (princ
    "\n| bilgiye sahip değilseniz. Bilgisayarınızda Drawing Dosyası bulunan her       |"
  )
  (princ
    "\n| klasördeki bir Drawing dosyasını, üzerine çift tıklayarak peşpeşe tek bir    |"
  )
  (princ
    "\n| AutoCAD oturumunda açmanız ve son açtığınız dosyadan başlayıp bu programı    |"
  )
  (princ
    "\n| çalıştırarak, her defasında tarama ve temizleme işlemi bittikten sonra o     |"
  )
  (princ
    "\n| anda açık olan drawing dosyasını (AutoCAD'i değil, dosyayı) kapatarak, her   |"
  )
  (princ
    "\n| klasördeki bir tek Drawing dosyası için bu işlemi tekrarlamalısınız.         |"
  )
  (princ
    "\n| Bundan sora da, Taşınabilir Aygıtlardan (Flash Disk, Harici Disk, CD v.b     |"
  )
  (princ
    "\n| ortamlardan) mümkün olduğunca doğrudan doğruya Drawing dosyası açmayınız.    |"
  )
  (princ
    "\n| Gerekiyorsa, Hard Disk inize kopyalayıp (beraberinde "acaddoc.lsp" dosyası   |"
  )
  (princ
    "\n| olmamalı, varsa onu da kopyalamayın sakın!) Drawing dosyalarını öyle açmanız |"
  )
  (princ
    "\n| tavsiye edilir. -.zip -.rar türünden arşiv dosyalarının içinde "acaddoc.lsp" |"
  )
  (princ
    "\n| dosyası olup olmadığına bakmadan Hard Diskinize kopyalamayınız, ya da        |"
  )
  (princ
    "\n| arşivlerden dosya çıkarmayınız. Drawing dosyalarının bulunduğu klasörlerden  |"
  )
  (princ
    "\n| birinde virüs içeren "acaddoc.lsp" dosyası varsa o dosyayı incelemeden ilgili|"
  )
  (princ
    "\n| klasördeki herhangi bir drawing dosyasını AutoCAD ile açmayınız... Buna      |"
  )
  (princ
    "\n| rağmen bilgisayarınızda AutoCAD çalışırken virüs belirtisi gözlerseniz Bu    |"
  )
  (princ
    "\n| Programı tekrar çalıştırabilirsiniz... Kolay Gelsin :)                       |"
  )
  (princ
    "\n--------------------------------------------------------------------------------"
  )
  (redraw)
  (princ)
)
;;;Riskli dosyaların silinmesi ya da temizlenmesi
(defun siltemizle ()
  (if girkut
    (close girkut)
  )
  (if cikkut
    (close cikkut)
  )
  (setq enfekte 0
        girkut  (open risklidosya "r")
        cikkut  (open gecicidosya "w")
        satir   (read-line girkut)
  )
  (while satir
    (if (= satir "(setq flagx t)")
      (progn
        (princ
          (strcat
            "\n**** "
            risklidosya
            " dosyasında "ALS.Pasdoc.a" virüsü bulundu ve temizlendi..."
          )
        )
        (close girkut)
        (close cikkut)
        (vl-file-delete risklidosya)
        (vl-file-rename gecicidosya risklidosya)
        (setq tmzlnnvrs (1+ tmzlnnvrs)
              enfekte   1
              satir     nil
        )
      )
      (progn (write-line satir cikkut)
             (setq satir (read-line girkut))
      )
    )
  )
  (if (= enfekte 0)
    (progn (vl-file-delete gecicidosya)
           (princ (strcat "\n**** ""
                          risklidosya
                          "" dosyasında virüse rastlanmadı."
                  )
           )
    )
  )
)
(defun boskontrol ()
  (setq girkut   (open bosdosya "r")
        boskutuk "bos"
        satir    (read-line girkut)
  )
  (while satir
    (if (= satir "")
      (setq satir (read-line girkut))
      (setq boskutuk "dolu"
            satir nil
      )
    )
  )
  (close girkut)
  (if (= boskutuk "bos")
    (vl-file-delete bosdosya)
  )
)
(defun cpr1 ()
  (grtext -1 "Prepared by M.S.GüVERCiN for Surur Mimarlık")
  (prin1)
)
(defun cpr2 () (grtext) (prin1))
(textpage)
(princ
  "\n--------------------------------------------------------------------------------"
)
(princ
  "\n| Bu program © "ALS.Pasdoc.a" virüsünün taranıp temizlenmesi ve silinmesi için |"
)
(princ
  "\n| M.Sahin Güvercin tarafından Surur Mimarlık için hazırlandı 03/09/2009-Ankara |"
)
(princ
  "\n|                         sahinguvercin@hotmail.com                            |"
)
(princ
  "\n| ** Taramayı başlatmak için AutoCAD komut satırından "AcdDcCLr" giriniz. **   |"
)
(princ
  "\n--------------------------------------------------------------------------------"
)

- Beşincisi; Buyrun link:

Linkleri görebilmek için ÜYE olmalısınız.


AcDcCLrPirden.fas
Özellikle -.fas formatında yaptım, -.lsp olursa virüs normal olarak bu dosyayı da etkileyecektir.
- Ve son olarak .... bir şey söylemiyorum, Herkese Kolay Gelsin :)

admin (12.12.2017 21:31 GMT)

01.10.2009 10:30    

ehya
Bu virüsün lsp haricinde menü dosyalarına bulaşacağı hiç aklıma gelmemişti. Zaten lsp dosyası olunca insanı tamamen lisp dosyalarına yönlendiriyor. Sizi tebrik ve teşekkür ederim. Bu aydınlatıcı bilgiler için.

Ayrıca, yukarıda yazmış olduğunuz kodlamada küçük bir hata var. Yaptığınız işe saygımdan dolayı müdahale etmek istemedim. Eksik bir tırnak işareti uyarısı vermekte. Bunu düzenleyip, kullanıcıların bu kodları daha rahat algılaması için code içine alabilirmisiniz?

01.10.2009 12:01    

ProhibiT
Bahsedilen dosyalar, -.mnd (Menu Definiton File) değil, -.Mnl (Menu Lisp File) türünde dosyalar olup, prensip olarak AutoLisp komutları içeren dosyalardır, menulerde yer alan fonksiyonları yerine getirirler...

Bir başka detay daha, eğer tecrübeli bir kullanıcı iseniz ve zaman zaman AutoCAD ile çalışırken Visual Lisp Editör yani VLisp kullanıyorsanız, Lisp editörü geçici dosyalar yaratır, bunlar *._ls ve *._mn şeklinde uzantılara sahiptir. Gerektiği yerde Visual Lisp editörü o yedek dosyaları orijinalleri ile Swap ederek kullanır. Yani bu tür dosyalar da temizlenmeden virüsten kurtulmuş olmazsınız.

Burada verdiğim Source Code içinde aslında eksik yok :) Hiç bir şeyi saklamadığımı göstermek için paste ettim. Buradan Copy-Paste ile alır, Visual Lisp Editörüne yükler ya da NotPad gibi bir programa text olarak alırsanız, AutoLisp Evulator "Malformed List" şeklinde hata verir, çünki görünmeyen Phantom Character ler koydum. Anlayan ve bilen zaten çözer. İlgi duyduğu için okuyup incelemek isteyenler için eksiksiz kod, kimse alıp doğrudan kullanamasın istedim. Kimse kusurma bakmasın ve alınmasın, sanal alem küçük, kendi emeğimin ürünlerini bir kaç gün içinde bana pazarlanırken gördüm buralarda...

kullanmak isteyenler için de, RapidShare'e -.fas formatında yükleyip linkini verdim. RapidShare'e özellikle -.fas (Compiled AutoLisp File) formatında upload ettim. Bu programımı doğrudan Lisp evulator ile çalıştırmak için ascii formatında kullanırsanız, virüs -.lsp uzantılı olduğu için buna da ekler kendini. Sonrada kuyruğunu yakalamaya çalışan kediler gibi kendini temizlemeye çalışır, beni komik duruma düşürebilir...

Bir önceki mesajımda yazdığım gibi AutoDesk ile sürtüşme sonucu bu programı yazdım. Oradaki bir gurupla anlaşamıyoruz. Kullanıcıya saygısız, bilmedikleri konularda "bilmiyorum" diyebilecek olgunluğa sahip olmayan bazı kişiler. Halef-Selef ilişkimizden dolayı bana kinliler... İşin komik tarafı da, bu virüsü benim yazdığımı iddia etmişlerdi. Cevabım da ukalalık sınırını aşan ağır bir cevaptı; "Ben bir virüs yazsaydım, siz hala oralarda olmazdınız!"

Her neyse... Herkese Kolay Gelsin, Selamlar, Sevgiler...

ProhibiT (06.12.2009 18:51 GMT)

01.10.2009 12:31    

Harbi65
ProhibiT;
Hocam bahsettiğiniz Phantom Character leri merak ettim... bu konuda biraz bilgi verir misiniz?
nasıl kullanılır, nasıl yazılır..?

01.10.2009 13:37    

ProhibiT
Harbi65,

Phantom character diye bahsettiğim, text içinde görünmeyen karakterler.
Özel mesajınıza cevaben de açıkladım. Örnek vermek gerekirse; Ara çubuğu (Space Bar) Ascii kodu 32 olan karakteri üretir. Eğer CodePage uygunsa Ascii 255 olan karakter de boşluk gibi görünür. Ama Lisp Evulator onun boşluk karakteri olmadığını görünce hata verir. Buna benzer pek çok karakter bulabilirsiniz Ascii kod tablosunda...

Kimseye eziyet olsun diye yapmıyoruz elbette. Ama bir yerde bir şey paylaşıyorsan, daha arkanı dönmeden birilerinin, anında çornalayıp, kendilerine maletmeleri çok sık karşılaşılan bir durum. Cin olmadan adam çarpmaya kalkanlara karşı basit tedbirler...

Selamlar, Sevgiler, Kolay Gelsin...

Düzenleme: RapidShare'e yüklediğim -fas dosyasını indirdiğinizde, AutoCAD komut satırından yüklemeye çalışmayınız (load "AcdcCLrPirden.fas") gibi yüklenmez. Appload komutunu kullanarak açılan pencereden yükleyiniz. AppLoad penceresini kapattığnız anda program sizi mesajalarıyla yönlendirmeye başlayacaktır...

ProhibiT (01.10.2009 14:52 GMT)

01.10.2009 15:19    

halilozcakir
teşekkür ederiz elinize emeğinize sağlık...

01.10.2009 16:45    

Harbi65
ProhibiT;

Hocam verdiğin bilgiler için teşekkürler...

Bir Lisp kodları tamamen Phantom character olarak yazılabilir mi? Yazılıyorsa yazan bunu nasıl takip ve kontrol edecek...? ve yazılabiliyorsa bunun için özel hata fonksiyonları gerekiyor mu?

01.10.2009 17:03    

ProhibiT
Bu Phantom Character'ler konusunda bir yanlış anlama oldu herhalde :)
Özel mesajla açıklamaya çalıştım...

Önceki Sayfa [1] > 2 < [3] [4] [5] [6] [7] Sonraki Sayfa
Copyright © 2004-2022 SQL: 1.585 saniye - Sorgu: 101 - Ortalama: 0.0157 saniye