Habe einen Text so versclüsselt:
Delphi-Quellcode:
var i,j:integer;
key:string;
begin
key:=Edit1.Text;
for j:=1 to length(key) do begin
for i:=1 to length(s) do
begin
S[i]:=Chr(65 + ((Ord(S[i]) - 65) + (Ord(Key[j]) - 65)) mod 26 );
end;
end;
Memo1.Lines.Text:=s;
Nun die Frage , wie kann man das Entschlüsseln???Wenn ich das + durch ein Minus ersetze:
S[i]:=Chr(65 + ((Ord(S[i]) - 65) - (Ord(Key[j]) - 65)) mod 26 );
kommt nicht der Klartext raus.Was mache ich falsch????
MFG und ALlen einen GUTEN Rutsch!!!