Text verschlüsseln ohne kömische Symbole !

[grenzgaenger]

Zitat:

Zitat von Delphiturbo

Geht nicht !!!

was geht denn nicht?

[phXql]

Zitat:

Zitat von grenzgaenger

btw: ist der XOR eine sehr schwache codierung.

Nö. Solange der Schlüssel genauso lang ist wie das Geheimnis ist und er nur einmal benutzt wird, ist es sogar sehr sicher.

[Delphiturbo]

Ich gebe auf
mir dem Code konnte ich den Text nicht wieder entschlüsseln !

Delphi-Quellcode:

DeinValue:= StrToInt('$'+<hexString>);

[Die Muhkuh]

Was funktioniert denn nicht?
Was kommt den raus?

[Nuclear-Ping]

Zitat:

Zitat von Die Muhkuh

Was funktioniert denn nicht?
Was kommt den raus?

Na was wohl: "[Fataler Fehler] ) erwartet aber < gefunden" oder sowas ... :roll:

[Die Muhkuh]

Wahrscheinlich

[rollstuhlfahrer]

Zitat:

Zitat von Delphiturbo

Zitat:

Zitat von Klaus01

Delphi-Quellcode:

DeinValue:= StrToInt('$'+<hexString>);

wo kommt das???

sag mal, kannst du das denn nicht umsetzen??
<hexstring> solltest du vllt. mit deinem verschlüsselten ERgebniss ersetzen... :wall: :wall:
dann kommt auch kein [Fataler Fehler]... :angel:

[Delphiturbo]

Das habe ich natürlich gemacht

Delphi-Quellcode:

Edit3.Text:=strDescrypt(Edit1.text, StrToInt('$'+ Edit2.Text)); // so auch ausprobiert
// Error : Inhalt von Text2 ist kein Integer!

[Klaus01]

Beim verschlüsseln wurden aus einem Byte zwei Zeichen HexCode.
Beim entschlüsseln musst Du dann den verschlüsselten Text auch
immer häppchenweise (zwei Zeichen) übergeben.

Delphi-Quellcode:

Edit3.Text:=Edit3.text+chr(StrToInt('$'+ Edit2.Text[1]+Edit2.Text[2])));

Das ganze ließe sich dann auch in einer schleife machen.

Grüße
Klaus

[edit] chr noch eingefügt.

[rollstuhlfahrer]

HI,

dann such doch mal nach einer Funktion (dürfte es bei Delphi geben), die Hex in Dec umwandelt, da ja ein Hex-String keine Zahl ist, sondern eine Hex-Zahl

rollstuhlfahrer