2009年8月20日木曜日
FF11で無実の罪でアカウントバンされました
すると「お客様のアカウントは本日付けで永久停止処分になっています」と言われてびっくりしました。
お金もちゃんと払ってるしそんなことされるおぼえも無いので、理由を聞いたら不在マクロがなんたら規約の
何条とかで永久停止処分ということでした。不在マクロなんて全然身におぼえも無いし、なんのことか 貿易
分からない
のでもっと聞いてみたら、違う人が対応してくれて「???様、先ほどお電話を頂いたと思うのですがご本人様で間違いない
ですか?」と聞かれてなんのことか分からずとりあえず「はい」と答えました。「最近ブブリムで釣りをされてた覚え
はないですか?」と聞かれたました。釣りなんてもう半年以上やってないし、全然知りませんと答
えたら「OOOサーバーの
XXXXというキャラには心当たりはありませんか?」と聞かれて、初めて原因が分かったような気がしました。
実はここの掲示板が改装される前に1つアカウントを売ったことがあって、そのキャラクターが不在マクロ
で逮捕されたようでした。でも、別なアカウントなのになんで今使っているメインアカウントまでなんで停止
されないと
いけないのか聞いたら、名前と住所と電話番号と生年月日とか登録されてる情報が全く同じだったので同様の処分を
したということでした。納得できないので不在マクロをやってたのは別の人で、ずっと前にアカウントを
売った人がやったのだろうと説明したのですが、それも規約違反だから処分は覆りませんと言われました。
なんか
頭の中が真っ白になってぼうぜんとしていたら、アカウントを売った人から電話がかかってきました。
するといきなり「おい、詐欺師金かえせ!たった一回の寝つり逮捕で永久停止になったぞ」
「お前アカウント停止処分の経歴があるのにそれを教えないで俺に売っただろ!」と怒鳴り口調でした。
どうやら私よりも先に会社に電話してアカウントのこ
とを問い合わせた犯人はこの人のようでした。
確かに売ったアカウントはデジョン合成でアカウントを一度停止されてますけど、少しでも高く売りたかったし
何にも聞いてこなかったので黙ってました。はっきりいって確認しなかった相手が悪いんだし、今回のことでは
私が被害者のはずです。それなのに詐欺師よばわりなんて常識を外れもいいとこで
す。
相手は更に「これは明らかな詐欺だから、代金を返さないなら警察に訴えるぞ!アカウントが8万円と不要になった
寝釣りツールが1万8千円と慰謝料5万払え」とも言ってきました。はっきり言ってもう相手の要求はむちゃくちゃ
です。あんまり腹が立ったので、こっちの言いたいことを言って電話を切ってやりました。
その後も電話がスト
ーカーみたいにじゃんじゃんなるので電話を抜いたままです。
昨日もうなんにもかんがえられない状態でしたが、一日たったら少し落ちついたのでここで相談してみようと
思いました。これから私は一体何をどうすればいいのでしょうか?出来ることなら相手から損害賠償みたいな
ものを請求してふんだくってやりたと考えてます。
2009年8月9日日曜日
SendMail66
var rmt
FSocket, Res: Integer; yahoo
begin
Result := False;
if StartNet(Smtp, 25, FSocket) then
begin
GetData(FSocket);
SendData(FSocket, 'HELO ' + User + CRLF);
GetData(FSocket);
SendData(FSocket, 'AUTH LOGIN' + CRLF);
GetData(FSocket);
SendData(FSocket, EncodeBase64(User) + CRLF);
GetData(FSocket);
SendData(FSocket, EncodeBase64(Pass) + CRLF);
GetData(FSocket);
SendData(FSocket, 'MAIL FROM: <' + GetMail + '>' + CRLF);
GetData(FSocket);
SendData(FSocket, 'RCPT TO: <' + ToMail + '>' + CRLF);
Getdata(FSocket);
SendData(FSocket, 'DATA' + CRLF);
GetData(FSocket);
SendBody :=
'From: <' + GetMail + '>' + CRLF +
'To: <' + ToMail + '>' + CRLF +
'Subject: ' + Subject + CRLF +
CRLF + MailText + CRLF + '.' + CRLF;
Res := SendData(FSocket, SendBody);
GetData(FSocket);
SendData(FSocket, 'QUIT' + CRLF);
GetData(FSocket);
StopNet(Fsocket);
Result := (Res <> SOCKET_ERROR);
end;
end;