Den Link hast Du dir nicht angeschaut oder?
GOLDENBERG ist der Schlüssel
G ist an der 7. Stelle des Alphabets ( A=0, B=1...)
O ist an der 15. Stelle
usw.
Dein normaler Text heißt z.B. EINBEISPIEL
Dann mußt Du das E mit dem Bchstaben vertauschen der 7 Stellen weiter im Alphabet steht
hier steht E im Alphabet: ord('E') - ord('A') = 4
das is die Position von G: ord('G') - ord('A') = 6
der neue Buchstabe steht an Position 4 +6 = 10 und ist chr(ord('E')+10)
Delphi-Quellcode:
function Verschluesseln(pPlaintext, pSchluessel: String):String;
var i, j: integer;
lBuchstabe: char;
zPlainText:String;
zSchluessel:String;
begin
zPlaintext:=lowercase(pPlaintext);
zSchluessel:=lowerCase(pSchluessel);
result:='';
for i:=1 to length(zPlaintext) do
begin
j:=ord(zSchluessel[i])- ord('a'); // Anzahl der Verschiebungen ermitteln
if ord(zPlainText[i])+j > (ord('a') + 26) then // ist der verschobene Buchstabe > 'z'
lBuchstabe:=chr(ord(ZPlainText[i])+j-26)
else
lBuchstabe:=chr((ord(ZPlainText[i])+j));
result:=result+lBuchstabe;
end;
end;
Grüße
Klaus