Text verschlüsseln ohne kömische Symbole !

[Delphiturbo]

Hallo,

hier ist eine einfache Funktion. Sie verschlüsselt den Text aber ich erhalte
mansch mal keine deutsche Buchstaben
z.B. : 12345 bekomme ich 5JfQ !!!

Wo soll ich den Code ändern, damit ich immer normale Tastatur Symbole
damit jeder das Ergebnis eintippen kann

Delphi-Quellcode:

function strEncrypt(const S: String; Key: Word): String;  
var I: Integer;  
const C1 = 52845; C2 = 22719;  
begin  
{$IFDEF Win32}  
 SetLength(Result,Length(S));  
{$ELSE}  
 Result[0]:=Chr(Length(S));  
{$ENDIF}  
 for I := 1 to Length(S) do begin  
  Result[I] := Char(Ord(S[I]) xor (Key shr 8));  
  Key := (Ord(Result[I]) + Key) * C1 + C2;  
 end;  
end;

[generic]

die binäre Ausgabe von deine Code könntest du durch einen Base64 Encoder/Decoder jagen.

[SirThornberry]

oder das ganze in hexdecimaler Darstellung ausgeben.

[Klaus01]

Hallo,

für solche Sachen hat sich eigentlich die Hexdarstellung durchgesetzt.

Delphi-Quellcode:

function strEncrypt(const S: String; Key: Word): String;  
  var  
    I: Integer;  
    dummyKey: Byte;
  const 
    C1 = 52845; C2 = 22719;  
begin  
  result := '';
  for I := 1 to Length(S) do 
    begin  
      dummyKey :=Ord(S[I]) xor (Key shr 8)
      Result := result + IntToHex(dummyKey,2);  
      Key := (dummyKey + Key) * C1 + C2;  
   end;  
end;

Grüße
Klaus

[Delphiturbo]

Finde ich mit Hex
und was ist mit :

Delphi-Quellcode:

function strDecrypt(const S: String; Key: Word): String;  
/// !

[Klaus01]

DeinValue:= StrToInt('$'+<hexString>); Grüße
Klaus

[Delphiturbo]

Zitat von Klaus01:

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

wo kommt das???

[Klaus01]

Zitat von Delphiturbo:

Zitat von Klaus01:

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

wo kommt das???

im decrypt...

Grüße
Klaus

[grenzgaenger]

oder du verwendest 'n algo, der keine ungültigen zeichen erzeugt. z.b. cäsar codierung.

<HTH>

btw: ist der XOR eine sehr schwache codierung.

[Delphiturbo]

Zitat von Klaus01:

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

Geht nicht !!!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
    Edit2.Text:=strEncrypt(Edit1.text, 1258); // ok
    Edit3.Text:=  // hier soll wieder entschlüsselt !
end;