Thema: Delphi xor verschlüsselung

Einzelnen Beitrag anzeigen

magic.christel

Registriert seit: 2. Jan 2003
18 Beiträge
 
Delphi 5 Professional
 
#6
  Alt 30. Jan 2003, 14:15
moin Jonson,

Zitat von Jonson:
moin Christian,

ich kodiere alle möglichen zeichen (nicht nur zahlen). wie kann ich das problem bewältigen?

mfg Jonson
Wandel es nicht einfach mit einem

... + chr(ord(s[h]) Xor ixor);

in einen Char, sondern lass es als Zahl:

... + right('00'+inttostr(ord(s[h]) Xor ixor),3);

So machst Du zwar aus jedem Zeichen 3 Zeichen, aber so geht es.

Beim zurückwandeln musst Du Dich dann immer drei Zeichen nehmen und die wieder in einen Char umrechnen.

Warum 3 Zeichen? Bei ASCII können eigentlich nur Werte zwischen 0 und 256 heraus kommen, somit ist die Maximale Länge: 3.

Bis dann

Christian
  Mit Zitat antworten Zitat