Verschlüsselungsproggi erstellen

[Klaus01]

Guten Morgen,

Zitat:

2.Nun wird von dem Text in v1 jeder zweite Buchstabe weggenommen und hinten angesetzt:
ADCAABHAGFHEHI
=
A C A H G H H
D A B A F E I

Delphi-Quellcode:

function moveChar(s:String;mv :Byte):String;
var
  i:byte;
  s1:String;
begin
  s1:='';

  for i:=1 to length(s) do
    if i mod mv <> 0 then
      s1:=s1+s[i];

  for i:=1 to length(s) div mv do
    s1:=s1+s[i*mv];

  result := s1;

end;

Zitat:

3.Das letze Ergebnis in v2 umwandeln:
y=CG=35 Ac AH GH HD AB AF EI
z=CH=36 =
A=CI=37 11 16 76 82 99 14 57
B=DA=38 =
C=DB=39 11167682991457

Hierbei wäre es angebracht wenn v2 vom Typ String oder shortString wäre.
Mit dem Typ Integer kannst Du die Ziffern nicht so zusammenhängen.

Zitat:

5.Das Ergebnis in n umwandeln:
11 78 91 51 66 29 47
=
c . ! M 1 t J
=
c.!M1tJ

Hierbei hilft Dir die Function StrToInt und chr.
Du mußt aus Deinem String nur immer zwei Zeichen zusammenfassen.

Delphi-Quellcode:

function convert(s:string):String;
var
  i:Byte;
  s1 :String;
begin
  s1:='';
  for i:=0 to length(s)-1 div 2 do
    begin
      s1:=s1+chr(StrToInt(s[(i*2)+1]+s[(i*2)+2]));
    end;
end;

Für den Anfang sollte das erst einmal reichen.
Das ist alles ungetestet und soll Dir nur ein paar Denkanstöße geben.

Grüße
Klaus