Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi HighScore liste schon wieder *g* (https://www.delphipraxis.net/33447-highscore-liste-schon-wieder-%2Ag%2A.html)

Airblader 7. Nov 2004 11:14


HighScore liste schon wieder *g*
 
hi :)
Ich muss schon wieder nerven *seufz*

Also..nach meinem AV-Problem nun ein neues.
Ich verschlüssel mit XOR (mit key).

Meine Punkte in der Liste werden gespeichert.
Für die Namen allerdings bekomm ich nur diese Vierecke wie sie bei einer Schriftart kommen , wenn die Schriftart das Zeichen nicht kennt.
Ich hab die XOR-Funktion (von delphi-source.de)

Delphi-Quellcode:
function TForm3.XORString(Text, Schluessel: String): String;
var i, q: integer;
begin
  q:=1;
  if Trim(Schluessel)='' then
    Schluessel:='asdlkfjöalskjdfölaksdjfölaksjfd';
  for i:=1 to Length(Text) do
  begin
    Text[i]:=Chr(Ord(Text[i]) XOR Ord(Schluessel[q]));
    inc(q);
    if q>length(Schluessel) then q:=1;
  end;
  Result:=Text;
end;
Mein Schlüssel sieht in etwa so aus (natürlich nicht genau so :zwinker: )
Zitat:

abfgidl4623oztru
Könnt ihr mir wieder auf die Sprünge helfen warum das schon wieder nicht geht wie es soll? :gruebel:

Ich hätte nun daran gedacht, dass evtl. das ganze Alphabet+Nummern vorhanden sein muss.
Kann das sein :?:

air

jfheins 7. Nov 2004 11:31

Re: HighScore liste schon wieder *g*
 
Lass mal ein bisschen mehr Code sehen, wie du die Funktion aufrufst usw. ...

Airblader 7. Nov 2004 11:46

Re: HighScore liste schon wieder *g*
 
hm naa...also ich rufe die funktion zum speichern des namens gneau gleich auf wie die zum speichern der punkte.:

Delphi-Quellcode:
for i:=0 to 9 do
begin
      ini.WriteString('Score','Name'+IntToStr(i),Form3.XORString(old[i].username,key));
      ini.WriteString('Score','Punkte'+IntToStr(i),Form3.XORString(IntToStr(old[i].punkte),key));
end;
dabei enthält old[i].username z.b. 'airblader'.

bau ich übrigens vor dem speichern:

Delphi-Quellcode:
ShowMessage(old[i].username + ' - ' + Form3.XORString(old[i].username,key));
ein, bekomm ich nur das:

Zitat:

airblader -
air

Meflin 7. Nov 2004 12:30

Re: HighScore liste schon wieder *g*
 
hm mal ganz abgesehen vom problem würde ich an deiner stelle die ganze ini auf einmal xoren und entxoren, nicht jeden eintrag einzeln. und wo liegt das problem wenn in der verschlüsselten datei nur 4 ecke sind, solnge beim entschlüsseln das richitge rauskommt :gruebel:

Airblader 7. Nov 2004 13:19

Re: HighScore liste schon wieder *g*
 
Zitat:

Zitat von Meflin
hm mal ganz abgesehen vom problem würde ich an deiner stelle die ganze ini auf einmal xoren und entxoren, nicht jeden eintrag einzeln. und wo liegt das problem wenn in der verschlüsselten datei nur 4 ecke sind, solnge beim entschlüsseln das richitge rauskommt :gruebel:

eben das tut es ja nicht :gruebel:

Wie im Beispiel mit showmessage ist es bei der ausgabe:
da ist nix.

aber evtl. stelle ich mal um auf ales xor'en....hatte genug stress mit dieser xor'erei :mrgreen:


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:33 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz