Forum: Object-Pascal / Delphi-Language
Delphi
by phlux,
18. Feb 2003
Als unter dem Schema sagt mir das was also einfache XOR Verschlüsselung (vom Prinzip her zumindest) zeig mal ein bisschen Code :wink:
Forum: Object-Pascal / Delphi-Language
Delphi
by phlux,
18. Feb 2003
Hülf! Die Hesse komme!!
Egal ist eure Cäsar Verschlüsselung ne einfache XOR Verschlüsselung?? Oder was habt ihr da gebastelt?
Ach ja, die Strings sind immer noch mit einem Resourcen-Hacker (ResHack, zb.) editierbar, in der compilierten(!) .exe!
Forum: Object-Pascal / Delphi-Language
Delphi
by phlux,
18. Feb 2003
Wenn er es aber nicht editierbar lassen will???
Forum: Object-Pascal / Delphi-Language
Delphi
by phlux,
18. Feb 2003
Das Problem ist ja das der Array irgendwann sollte er 100 Namen oder so drin haben ganz schön ungemütlich im Quelltext wird ;) ich finde sowas sollte man auslagern.
Forum: Object-Pascal / Delphi-Language
Delphi
by phlux,
18. Feb 2003
Im Delphi Kochbuch 5 auf seite 1037 (ausm kopf jetz)
R368 Ressourcen einbinden (nicht ausm Kopf)
Forum: Object-Pascal / Delphi-Language
Delphi
by phlux,
18. Feb 2003
Hellas!
function GetResString(Nr: Integer): String;
var
p: PChar;
begin
p := StrAlloc(256);
LoadString(hInstance, Nr, p, 255);
Result := p;
Forum: Object-Pascal / Delphi-Language
Delphi
by phlux,
18. Feb 2003
Genau mit dem Delphi-Resourceneditor ne Resource erstellen, in der dann die Strings abspeichern (durchnummeriert von 1..unendlich) und dann wieder auslesen.
Forum: Object-Pascal / Delphi-Language
Delphi
by phlux,
18. Feb 2003
Stichwort Strings in resourcen packen *G
G* jo aber was machen wir dann mit dem einen leblosen körper? Organmafia? *G* aber eigentlich häng ich an meinem körper :mrgreen:
Forum: Object-Pascal / Delphi-Language
Delphi
by phlux,
18. Feb 2003
Falls dir diese Kunstnamen nicht reichen bzw. missfallen kannst du das ganze auch mit nur einem Array machen, die prozedur wird dann halt entsprechend gekürzt. Ich weiß ja nicht wieviele Namen du in den Array schreiben willst, aber vllt macht es Sinn die Namen in eine Textdatei auszulagern und dann ggf. in den Array zu laden.
Forum: Object-Pascal / Delphi-Language
Delphi
by phlux,
18. Feb 2003
kaykay, ich wollte damit auch nicht haarspalterisch erscheinen :wink:
ist halt nur als hinweis gedacht das es so falsch ist.
aber solange es so funzt zum teufel mit den regeln *G :mrgreen:
Forum: Object-Pascal / Delphi-Language
Delphi
by phlux,
18. Feb 2003
Jepp, und ich würd Randomize nur einmal ausführen und nicht jedesmal in der Function :wink:
Forum: Object-Pascal / Delphi-Language
Delphi
by phlux,
18. Feb 2003
Hi!
Also mal ein grobes Code Beispiel:
//Global definierst du dir 3 Arrays, diese müssen global deklariert sein weil man sie sonst vorher nicht initialisieren kann
var
Silbe_Anfang: Array of String = ('am','zum','ent');
Silbe_Mitte: Array of String = ('put','bei','fern');
Silbe_Ende: Array of String = ('ieren','spiel','en');
//Dann irgendwo im Form.OnCreate event einmal Randomize...
Forum: Object-Pascal / Delphi-Language
Delphi
by phlux,
18. Feb 2003
Hi!
Eine weitere überlegegung wäre einfach 3 Arrays zu definieren in denen du dann 3-Silbige Namen speicherst (also 1 Array für 1te Silbe, usw.). Dann rufst du einfach dreimal hintereinander Random auf liest mit der zahl dann die Silbe aus dem Array raus und hast so deinen zusammengefummelten Namen. :mrgreen: