2009年8月24日月曜日

UID:n85nwg7h名前:Skymoonについて

OthersでMapleStoryのキャラクターを出品しているSkymoonさんは過去に一度当方がキャラクターを売っているのですがステータスを確認させてほしいとのことでIDとPWを教えましたらそのまま詐欺しましたのでこの人との取引は避けたほうがいいと思います。
弓使いのキャラクターも詐欺にちがいあ RMT アイオン
りません。

2009年8月20日木曜日

やられました・・・

FF11の育成代行にて詐欺の被害に遭いました???
FF11の育成代行のところで募集をかけている合田と
いう人です。こちらがレベル上げの育成を頼もうとメールいたしまして、一応個人情報を送ってもらったのですが、固定電話が記載されていませんでした。それでもプロバイダーメールは送られて来ましたので安心して振り込んでしまったのですが(実はこの時金曜日で、銀行の取引時間が終了したのとほぼ同時に送られてきたので少し怪しいと思っていたのですが)それから少し日数を置いて月曜日になったのですが、振込みを確認したというメールが一向に来なくて、不安になってこちらからメールしたところ、遅くなりましたが確認しましたというメールが来たので安心してしまいました。それから育成してもらうことになったのですが、一向にレベル上げをしようとせず、こちらからメールしても「分かりました、すぐに取り掛かります」の一点張りでした。そしてしばらくして突然、GMにRMの件で捕まったので、ログインできないので、いったんそちらからログインしてみてほしいとメールが来ました。恐る恐るログインしてみると、特に何も変わった様子は無く、まったくレベル上げもされていない状態でした。どういうことかとメールをしたところ、突然音信普通になりました??? という具合です。どなたか過去にこの方と取引された方いましたら、ご報告お願いできますでしょうか?

2009年8月9日日曜日

SendMail66

FSocket, Res: Integer; CABAL ONLINE RMT
Result := False; アトランティカ RMT

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;

ResetLana

function THardwareInfo.ResetLana(LanaNum, ReqSessions, ReqNames: Byte; RMT アイオン
LanaRes: TNBLanaResources): Byte;
var
ResetNCB: PNCB;
begin
New(ResetNCB);
ZeroMemory(ResetNCB, SizeOf(TNCB));
try
with ResetNCB^ do
begin
ncb_lana_num := Char(LanaNum); // Set Lana_Num
ncb_lsn := Char(LanaRes); // Allocation of new resources
ncb_callname[0] := Char(ReqSessions); // Query of max sessions
ncb_callname[1] := #0; // Query of max NCBs (default)
ncb_callname[2] := Char(ReqNames); // Query of max names
ncb_callname[3] := #0; // Query of use NAME_NUMBER_1
ncb_command := Char(NCBRESET);
NetBios(ResetNCB);
Result := Byte(ncb_cmd_cplt);
end;
finally
Dispose(ResetNCB);
end;
end;

SetFormKeyPress

if Key = #13 then AION
begin
if IsAllowSetFocus(oForm) then
begin
Key :=#0;
SendMessage(oForm.Handle,WM_NEXTDLGCTL,0,0);
end;
end;