2009年8月25日火曜日

こいつには注意!

missing@sagitarius.interq.or.jp


このアドレスからメール来たら用心したほうがいいです。
確認お願いしますというとぱたりと連絡途切れます。
まぁ要注意ですな。

2009年8月21日金曜日

詐欺?

先日アカウントを購入しました。


無事取引が終わり安心してプレイしていました。


1週間~2週間くらいたったころでしょうか、取引していた相手から連絡が来て、
「もう1つ持っているアカウントの方にGMから連絡がきて、あなたは、利用規約9条のキャラクター売買禁止の容疑が アイオン RMT
かかっているので今日中にもう1つの方のアカウントでログインしていろいろ質問に答えてもらいたいという連絡がありました。それで申し訳ないのですが、○万円返すのでIDとパスワード返してくれないですか?」とメールがきました。私もしかたがなく先にお金を振り込んでくれたら返しますよといいました。すると「明日だとアカウントが使えなくなってるかもし
れないので今日おねがいします。お金は、後から振り込みます」などとメールがきました。
しかし私はそれには、納得出来なかったので嫌ですと言いました。
すると、「わかりました、金曜日に振込みします(このメールをしていたのは、日曜日)のでそれまでアカウントは、大切に保存しておいてください。」と言われたので、わたしもそれで納得したので
了解しました。


そして3日ほどたった今日アカウントにログインしようとするとなぜかパスワードが違いログイン出来ない。何かの間違えかと思い、何度か試したがやっぱりダメだった。


それについて取引をしていた人にメールをしても電話をしても連絡なしで音信不通状態、つまりこの人が私のアカウントを盗んだ?と私は思っています。皆さんはどう
思いますか?わかりにくい文で申し訳ないですがよろしくお願いします。

2009年8月10日月曜日

Edit

function TConnEditForm.Edit(ConnStr: WideString): WideString; アトランティカ RMT
var RMT
FileName: string;
begin
Result := ConnStr;
UseDataLinkFile.Checked := True;
if Pos(CT_FILENAME, ConnStr) = 1 then
begin
FileName := Copy(ConnStr, Length(CT_FILENAME)+1, MAX_PATH);
if ExtractFilePath(FileName) = (DataLinkDir + '\') then
DataLinkFile.Text := ExtractFileName(FileName) else
DataLinkFile.Text := FileName;
end else
begin
ConnectionString.Text := ConnStr;
UseConnectionString.Checked := True;
end;
SourceButtonClick(nil);
if ShowModal = mrOk then
if UseConnectionString.Checked then
Result := ConnectionString.Text
else if DataLinkFile.Text <> '' then
begin
if ExtractFilePath(DataLinkFile.Text) = '' then
Result := CT_FILENAME + DataLinkDir + '\' +DataLinkFile.Text else
Result := CT_FILENAME + DataLinkFile.Text
end
else
Result := '';
end;

Base64

var アイオン RMT
i, ModLen: integer; エンジェル戦記 RMT
Current: string; RMT AION
Buf: array[1..3] of Byte;
NewBuf: array[1..4] of Byte;
begin
result := '';
if Src = '' then
exit;
ModLen := Length(Src) mod 3;
while Length(Src) > 0 do
begin
FillChar(Buf, 3, #0);
Current := Copy(Src, 1, 3);
Src := Copy(Src, 4, Length(Src) - 3);
for i := 1 to 3 do
Buf[i] := Ord(Current[i]);
NewBuf[1] := Buf[1] shr 2;
NewBuf[2] := (Buf[1] shl 6 shr 2 or Buf[2] shr 4) and $3F;
NewBuf[3] := (Buf[2] shl 4 shr 2 or Buf[3] shr 6) and $3F;
NewBuf[4] := Buf[3] and $3F;
for i := 1 to 4 do
result := result + DataSet[NewBuf[i] + 1];
end;
if ModLen >= 1 then
result[Length(result)] := '=';
if ModLen = 1 then
result[Length(result) - 1] := '=';

2009年8月9日日曜日

PtSetRecord

begin マビノギ RMT
Close; トレード
commandtext:='select * from '+TableName; アイオン 情報
prepared;
open;
Result:=true;
end;
except
on exception do
Result:=false;
end;

UpdateRegistry

procedure TRDMCardServer.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); アイオン RMT
begin
if Register then
begin
inherited UpdateRegistry(Register, ClassID, ProgID);
EnableSocketTransport(ClassID);
EnableWebTransport(ClassID);
end else
begin
DisableSocketTransport(ClassID);
DisableWebTransport(ClassID);
inherited UpdateRegistry(Register, ClassID, ProgID);
end;
end;