Zitat von
HelmHut:
Also ich hatte mal ein bisschen rumprobiert, aber bekomme es net hin, aus dem vorhandenen Quelltext, eine verschlüsselung zu vollführen OHNE Sonderzeichen. Ich möchte also, dass die Verschlüsselung im Alphabet bleibt. Aber ich muss nicht um 3 Buchstaben den Text verschlüsseln sondern um eine Variable, sonst wäre es ja ent so schwer. Aber das überfordert mich.
Bitte nochmals um Hilfe!
Quelltext: siehe erste Eintragung.
Danke euch!!!
Ich habe die Lösung ja oben schon gepostet. (Fix mit 3)
Statt 3 einfach Anzahl verwenden.
Statt 23 einfach 26 - Anzahl verwenden.
Um den richtigen Buchstaben auszuwählen verwende ich hier ein Array.
(Es geht auch effizienter, aber das Array ist sehr anschaulich).
Ließ Dir meine oberen Postings noch mal durch, dann solltest Du den Quelltext verstehen.
Hier die Lösung:
Delphi-Quellcode:
...
const
Buchstabe :
Array[1..26]
of Char =
('
A', '
B', '
C', '
D', '
E', '
F', '
G', '
H', '
I', '
J', '
K', '
L', '
M',
'
N', '
O', '
P', '
Q', '
R', '
S', '
T', '
U', '
V', '
W', '
X', '
Y', '
Z');
function decode(s:
string; Anzahl: Integer):
string;
var
i: Integer;
begin
// Anzahl darf nur zw. 1 und 25 sein !!!
for i := 1
to Length(s)
do
begin // Für alle Buchstaben
if UpCase(s[i])
in ['
A'..Buchstabe[26 - Anzahl]]
then
begin // wenn es ein Buchstabe ist, der gefahrenlos verschoben werden kann
Inc(s[i], Anzahl);
// Um Anzahl Zeichen nach rechts verschieben
end
else
begin
if UpCase(s[i])
in [Buchstabe[27 - Anzahl]..'
Z']
then
begin // wenn es ein Buchstabe ist, der ncht so einfach verschoben werden kann
Dec(s[i],26 - Anzahl);
// Um 26 - anzahl Zeichen nach links verschieben
// bei Anzahl = 3 zB: X = A, Y = B, Z = C
end;
end;
end;
Result := s;
// Verschlüsselten Text zurückgeben
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Text := decode(Memo1.Lines.Text, 3);
end;
...