Nicht noch ein Snake Klon ...

[Aphton]

Zitat von MrMooed:

Dessen Verschlüsselung mittels xor-Technik (kein wirklicher Schutz ich weiß )

Jo.. ist im nu genkackt:

Delphi-Quellcode:

procedure SnakeScoreEntschlüsseln(const SnakeScoreDateiname: String);
var
  i: Integer;
  m: TMemoryStream;
  p: PByte;
begin
  m := TMemoryStream.Create;
  try
    m.LoadFromFile(SnakeScoreDateiname);
    p := m.Memory;
    for i := 0 to m.Size - 1 do
    begin
      p^ := p^ xor 7 * ((i mod 6) + 1);
      inc(p);
    end;
    m.SaveToFile(SnakeScoreDateiname + '.entschlüsselt.ini');
  finally
    m.Free;
  end;
end;

  SnakeScoreEntschlüsseln('C:\Users\aphton\Downloads\QSnake\QSnake.score');