Hey, ich habe vor bei meinem 8-Stelligen String, jedes Zeichen um einen gewissen Faktor nach rechts bzw. nach Links zu verschieben. Also wenn die Variable 2 wäre und nach rechts verschoben wird sähe das ganze so aus:
01100001 --> 10110000 --> 01011000
Das ist mein bisheriger Ansatz:
Delphi-Quellcode:
function TForm1.Encryption (Binary:String) :string;
var n,k: Integer;
BinarySwapped:string;
begin
For k:=1 to SpinEdit1.Value do begin
Case RadioGroup.ItemIndex of
0: begin BinarySwapped[1]:=Binary[8];
For n:=2 to 8 do
BinarySwapped[n]:=Binary[n-1];
end;
1: begin
BinarySwapped[8]:=Binary[1];
For n:=7 downto 1 do
BinarySwapped[n]:=Binary[n+1];
end;
end;
end;
result:=BinarySwapped;
end;
Ich bekomme eine Error Meldung, die ich nicht deuten kann. Das Programm lässt sich jedoch ohne Probleme öffnen/testen, es werden keine Fehler erkannt .
1) Du musst BinarySwapped vorher eine Länge geben. Weil sonst ist der String nämlich leer, Länge 0. Wenn du dann auf Index 1 (BinarySwapped[1]) zugreifen willst, gibt's ne Zugriffsverletzung, weil kein Speicherbereich für den String reserviert wurde. Also: SetLength(BinarySwapped, Length(Binary));
2) Wenn ich das so sehe, rollen sich mir die Fußnägel hoch.
Warum arbeitest du mit Strings? Nicht nur, dass es unglaublich langsam ist, machst du hier eine Operation durch's Knie in's Auge. Warum arbeitest du nicht mit den Byte-Werten und schiebst dann mit SHL und SHR?