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;