Geheimsprache

[BungeeBug]

Hi,

ich weiß ja nich bis wann du deie Info-HA's haben musst aber Mitwoch kann ich dir die kompeltte Lösung geben. Ansätze findest du unter www.bungeebug-online.de ( da ist ein Tool das das kann aber nur über die ganze ASCII Tabelle) und unter www.bungeebug-online.de/crypter.dpr nur da ist der Algo noch nicht richtig

[MathiasSimmack]

Zitat von braingrenade:

So , hab hier mal was zusammengescjustert was funktionieren sollte.

Warum machst du das denn so:

Zitat:

Delphi-Quellcode:

x := ord(Satz[i]);
if (x >= 65) and (x<=122) then
begin
x := x - 65 ;
x := (x+1) mod 58 ;
x := x +65 ;
Satz2 := satz2 + chr(x);

Schau dir doch bitte mal den Ansatz von Thunderchild an. Mit case kannst du die gewünschten Zeichen (auch die, die speziell bearbeitet werden sollen) doch bequem angeben. Dann ließen sich auch die Umlaute entsprechend berücksichtigen.

@Tidus: Das selbe gilt für dich.

@BungeeBug: Dann liefere aber auch eine Erklärung dazu, denn IMHO muss man seine Lösung auch verteidigen können. Und wenn Tidus bereits mit den o.g. Codezeilen von braingrenade Probleme hat, dann wird ihn ein fertiges Programm, bei dem er nicht eine Zeile selbst geschrieben hat, erst recht in Schwierigkeiten bringen.

[Tidus]

Die Lösung habe cih ja ich weiß nur nicht wie man daruf kommt

[braingrenade]

ok dann mal los ...

also erstmal hab ich gekuck welche Zahlenwerte (das was ord zuückgibt) die buchstaben A bis Z und a bis Z haben , das A hat den wert 65 und das z den wert 122 .

Hier prüfe ich ob der wert des Buchstabens zwischen 65 und 122 ist .

Delphi-Quellcode:

if (x >= 65) and (x<=122) then 
begin

Ist er es nicht wird er einfach so übernommen sodass z.b. ein leerzeichen ein leerzeichen bleibt
else Satz2 := satz2 + chr(x); Da das normale allphabet bei 1 (hier halt 0) anfängt nehm ich x minus 65
x := x - 65 ; So, hier nehme ich x plus eins (kannst auch mal ne andere beliebige zahl einsetzten funzt auch)
und das mod 58 beiwirkt das wenn ich zum bsp 58 + 1 = 59 habe , das aber zu groß ist , x = 1 wird, d.h. mod gibt mir immer den rest einer division. (58 ist die anzahl der Buchstaben)
x := (x+1) mod 58 ; Hier wird x wieder plus 65 genommen so das es wieder in den ascii-code passt und dann in satz2 gespeichert

Delphi-Quellcode:

x := x +65 ; 
Satz2 := satz2 + chr(x);

[MathiasSimmack]

Das kannst du aber auch etwas optimieren, @braingrenade!

[braingrenade]

Was, den Code oder die Erklärung ?