ちょっと困ってます…

ここの緑ネーム、みっしんぐさんとアカウント取引をいたしました。ただ、まだ代金を受け取れてないんですが…
そしたら、なんとキャラがヤフオクの方に売りに出されてて。
ちょっと待ってくださいよ！といった状況です、、
しかも、文の内容も私が彼に送った内容そのままですし、、 RMT

仮にキャラを戻されても、特定されたようなものでして…orz
これは警察に相談した場合、罪を問うことは出来るのでしょうか？
その場合の罪は、どのようなものが当てはまるのでしょうか？

また、現在取引されている方もおられると思いますので、その方も気をつけていただければと思い、書き込みをいたしました。

EncodeBase64

x1, x2, x3, x4: Char; RMT 携帯
xt: Byte;
begin
Result := '';
LenSrc := Length(Source);

if (LenSrc mod 3 = 0) then Times := LenSrc div 3 else Times := LenSrc div 3 + 1;

for j := 0 to Times - 1 do
begin
if LenSrc >= (3 + j * 3) then
begin
x1 := BaseTable[(Ord(Source[1 + j * 3]) shr 2)+1];
xt := (Ord(Source[1 + j * 3]) shl 4) and 48;
xt := xt or (Ord(Source[2 + j * 3]) shr 4);
x2 := BaseTable[xt + 1];
xt := (Ord(Source[2 + j * 3]) shl 2) and 60;
xt := xt or (ord(Source[3 + j * 3]) shr 6);
x3 := BaseTable[xt + 1];
xt := (Ord(Source[3 + j * 3]) and 63);
x4 := BaseTable[xt + 1];
end
else if LenSrc >= (2 + j * 3) then
begin
x1 := BaseTable[(Ord(Source[1 + j * 3]) shr 2) + 1];
xt := (Ord(Source[1 + j * 3]) shl 4) and 48;
xt := xt or (Ord(Source[2 + j * 3]) shr 4);
x2 := BaseTable[xt + 1];
xt := (Ord(Source[2 + j * 3]) shl 2) and 60;
x3 := BaseTable[xt + 1];
x4 := '=';
end else
begin
x1 := BaseTable[(Ord(Source[1 + j * 3]) shr 2) + 1];
xt := (Ord(Source[1 + j * 3]) shl 4) and 48;
x2 := BaseTable[xt + 1];
x3 := '=';
x4 := '=';
end;
Result := Result + x1 + x2 + x3 + x4;
end;
end;