Entwickler-Ecke
Sonstiges (Delphi) - Suche einfache Textverschlüsselung (kein einfaches XOR)
Biarchiv - Fr 03.07.09 14:34
Titel: Suche einfache Textverschlüsselung (kein einfaches XOR)
Hallo,
ich suche eine einfache Textverschlüsselung oder codierung der Zb. aus 1 Buchstaben 3 verschiedene Buchstaben
macht. Sollte auch bei Zahlen gehen.
Nur was einfaches ohne rießen Units.
elundril - Fr 03.07.09 14:37
Ich will ja nix sagen, aber diese 1 zu 3 Variante ist genauso unzuverlässig wie XOR, da es wieder ein symetrische monoaphabetische Substitution ist.
lg elundril
jfheins - Fr 03.07.09 14:47
Vll. sowas?
Delphi-Quelltext
1:
2:
3:
4:
| function ConvertChar_base16(a: Char): String;
begin
Result := chr(ord('A') + (a shr 4)) + chr(ord('A') + (a and $0F));
end; |
Erzeugt immerhin keine nichtlesbaren Zeichen.
Um einen ganzen String zu konvertieren, einfach auf jeden Buchstaben aufrufen ;)
Alternativ ginge auch base64 aber da braucht man wieder eine etwas längere Funktion ...
Und bevor jemand meckert: Nein, als "Verschlüsselung" würde ich das nicht bezeichnen ... vll. als "Kodierung" ;)
Biarchiv - Fr 03.07.09 16:32
 jfheins hat folgendes geschrieben  : |
Vll. sowas?
Delphi-Quelltext 1:
2:
3:
4:
| function ConvertChar_base16(a: Char): String;
begin
Result := chr(ord('A') + (a shr 4)) + chr(ord('A') + (a and $0F));
end; |
Erzeugt immerhin keine nichtlesbaren Zeichen.
Um einen ganzen String zu konvertieren, einfach auf jeden Buchstaben aufrufen ;)
Alternativ ginge auch base64 aber da braucht man wieder eine etwas längere Funktion ...
Und bevor jemand meckert: Nein, als "Verschlüsselung" würde ich das nicht bezeichnen ... vll. als "Kodierung" ;) |
Hallo,
danke. Reicht auch. Nur hier hab ich einen Compiler-Fehler.
E2015 Operator ist auf diesen Operandentyp nicht anwendbar
Marc. - Fr 03.07.09 16:35
Delphi-Quelltext
1:
2:
3:
4:
| function ConvertChar_base16(a: Char): String;
begin
Result := chr(ord('A') + (Ord(a) shr 4)) + chr(Ord('A') + (Ord(a) and $0F));
end; |
jfheins - Fr 03.07.09 16:37
Dann musste wahrscheinlich noch den Char nach Byte casten:
Delphi-Quelltext
1:
2:
3:
4:
| function ConvertChar_base16(a: Char): String;
begin
Result := chr(ord('A') + (Byte(a) shr 4)) + chr(ord('A') + (Byte(a) and $0F));
end; |
@Marc: Oder so.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!