マビノギ

シズキュ様_rua

07/08/18 22:03

これ貼っただけでBANされたんだぜ？ｗｗｗｗ
ぜんぜん関係ない処理するコードなのに
 
で、これ見つけたネサロの糞がさ
「こいつ頭おかしい」とか、いきなりここのURL、スレに貼ってさｗｗｗ
うぇｗｗやっぱビンゴかｗｗｗｗｗ　と喜んでたら俺まで処理されたｗ
 
 
 
ﾎﾞｰﾗﾝﾄﾞのObject Pascalで書くとこーなった

procedure TMainForm.OrgDecode(S: String);
var
 Ms: TMemoryStream;
 Hed: Word;
 Mark: Byte;
 Pix: Byte;
 Count: Byte;
 Pos: Integer;
 I: Integer;
 X,Y: Integer;
 Line: PByteArray;
 Buff: Int64;
 TableData: Byte; 
 TablePos: Integer;
 Table: array [0..950000] of Byte;
begin
 Ms := TMemoryStream.Create;
 Ms.LoadFromFile(S);
 Ms.ReadBuffer(Hed,SizeOf(Hed));
 OrgBmp.Height := Hed;
 Ms.ReadBuffer(Hed,SizeOf(Hed));
 OrgBmp.Width := Hed;
 TablePos := 0;
 while True do
 begin
  try
   Ms.ReadBuffer(Buff,8);
  except
   Break;
  end;
  for I := 1 to 8 do
  begin
   TableData := Buff and $FF;
   Table[TablePos] := TableData;
   Inc(TablePos);
   Buff := Buff shr 8;
  end;
  if Ms.Position = Ms.Size then Break;
 end;
 Ms.Free;
 TablePos := 0;
 for Y := 0 to (OrgBmp.Height - 1) do
 begin
  Line := OrgBmp.ScanLine[Y];
  Pos := 0;
  repeat
   Mark := Table[TablePos];
   Inc(TablePos);
   if (Mark <> $FF) then
   begin
    X := Pos * 3;
    Line[X] := Mark;
    Inc(Pos);
   end else
   begin
    Pix := Table[TablePos];
    Inc(TablePos);
    Count := Table[TablePos];
    Inc(TablePos);
    for I := 1 to Count do
    begin
     X := Pos * 3;
     Line[X] := Pix;
     Inc(Pos);
    end;
   end;
  until (Pos > (OrgBmp.Width - 1));
  Pos := 0;
  repeat
   Mark := Table[TablePos];
   Inc(TablePos);
   if (Mark <> $FF) then
   begin
    X := (Pos * 3) + 1;
    Line[X] := Mark;
    Inc(Pos);
   end else
   begin
    Pix := Table[TablePos];
    Inc(TablePos);
    Count := Table[TablePos];
    Inc(TablePos);
    for I := 1 to Count do
    begin
     X := (Pos * 3) + 1;
     Line[X] := Pix;
     Inc(Pos);
    end;
   end;
  until (Pos > (OrgBmp.Width - 1));
  Pos := 0;
  repeat
   Mark := Table[TablePos];
   Inc(TablePos);
   if (Mark <> $FF) then
   begin
    X := (Pos * 3) + 2;
    Line[X] := Mark;
    Inc(Pos);
   end else
   begin
    Pix := Table[TablePos];
    Inc(TablePos);
    Count := Table[TablePos];
    Inc(TablePos);
    for I := 1 to Count do
    begin
     X := (Pos * 3) + 2;
     Line[X] := Pix;
     Inc(Pos);
    end;
   end;
  until (Pos > (OrgBmp.Width - 1));
 end;
end;