Suche einfache Textverschlüsselung (kein einfaches XOR)

Biarchiv · Beiträge: 688

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 · Verfasst: 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

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

jfheins · Beiträge: 918 Erhaltene Danke: 158 Win 10 VS 2013, VS2015

Vll. sowas?

markieren

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 · Beiträge: 688

jfheins hat folgendes geschrieben :

Vll. sowas?

markieren

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. · Verfasst: Fr 03.07.09 16:35

markieren

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 · Beiträge: 918 Erhaltene Danke: 158 Win 10 VS 2013, VS2015

Dann musste wahrscheinlich noch den Char nach Byte casten:

markieren

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.

ffgorcky · Beiträge: 573 WIN XP/2000 & 7Prof (Familie:Win95,Win98)

Das Thema kommt mir doch recht bekannt vor - richtig, den Thread "Verschlüsslungsprogramm?" hatte ich doch gerade erst gelesen...
Kannst Du damit nicht schon was anfangen?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme