Hallo zusammen,

ich habe mir ein Programm zur generierung eines Keys mit einer einfachen Codierung überlegt, dass entschlüssen klappt, nur das generieren eines Schlüssels klappt noch nicht so wirklich.

Folgendes zu Methodik:

Alles wird zwischen ungeraden und geraden Zahlen unterschieden und demnach wird der rest ausgegeben also 1 oder 0 das ergibt dann den Schlüssel der im Programm hinterlegt ist, der Kunde bekommt einen Dezimalschlüssel.

Ich will aufgrund des Binärschlüssels einen Dezimalschlüssel generieren also, wenn eine Null da steht soll er mir eine gerade Zahl geben und, wenn eine eins da steht soll er mir eine ungerade geben.

Soviel zur Theroi jetzt das woran ich scheiter:

Also ich lese den Binärschlüssel erstmal aus einem Editfeld ein und wöchte das er mir dementsprechend einen Dezimalschlüssel generiert, dass klappt aber leider nicht aufgrund eines syntaktischen Fehlers.

Nun zum Programm:

zusammenfalten · markieren

Delphi-Quellcode:

var schluessel : String;
    i : Integer;
    
    key : array of Integer;
    zwisch : array of integer;
    
    test1 : array[0..0,3..3,7..7,9..9] of Integer; // 2 Statische array für gerade und ungerade
    test2 : Array[2..2,4..4,6..6,8..8] of integer;

begin

    schluessel := edit4.text; // Einlesen des Binärschlüssels
    SetLength(schluessel, Length(schluessel));



    for I := 0 to length(schluessel) - 1 do
      begin
      zwisch[i] := StrToInt(schluessel[i]); // Schlüssel zwischenspeichern

      case i of //case anweisung zum unterscheiden zwischen 1 und 0

      0: key[i] := random (test1); // Schlüssel füllen mit ungerade oder geraden zahlen
      1: key[i] := random (test2); // hier tritt auch der Fehler auf

      
      end;
      end;




end;

Guten Morgen,

sollte es in etwa so gehen?

zusammenfalten · markieren

Delphi-Quellcode:

  
    for I := 0 to length(schluessel) - 1 do
      begin
        zwisch[i] := StrToInt(schluessel[i]); // Schlüssel zwischenspeichern

        case i of //case anweisung zum unterscheiden zwischen 1 und 0

          0: key[i] := random (test1[i]); // Schlüssel füllen mit ungerade oder geraden zahlen
          1: key[i] := random (test2[i]); // hier tritt auch der Fehler auf
        end;
   
      end;

Grüße
KLaus

Ich könnte mir auch so etwas vorstellentest1(Random(3))

joa also das passt schon fast aber jetzt hab ich das Problem mit den Typen, dass sie nicht kompatibel sind (Integer und Array)

markieren

Delphi-Quellcode:

    for I := 0 to length(schluessel) - 1 do
      begin
      zwisch[i] := StrToInt(schluessel[i]);

      case i of

      0: key[i] := (test1[random(3)]);// Falsche Typen Hier und
      1: key[i] := (test2[random(3)]);// Hier (Int und Array)

Das müsste doch eigentlich gehen, weil beides Arrays of Integer sind, oder hast du da irgendwas falsch deklariert?

Und nochwas: Die Zeile hier ist doch mal sinnlos:SetLength(schluessel, Length(schluessel)); Du setzt die Länge eines Strings auf die eigene Länge? Das bringt doch irgendwie nichts Da fällt mir grade auf: Du müsstest da die Länge von key noch setzen, da diese sonst unbestimmt ist. Also müsste es heißen:SetLength(key, Length(schluessel)); Mfg

hier nochmal die katuelle komplette procedure

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm6.Button3Click(Sender: TObject);
var schluessel : String;
    i : Integer;
    key : array of Integer;
    zwisch : array of integer;
    test1 : array[0..0,3..3,7..7,9..9] of Integer;
    test2 : Array[2..2,4..4,6..6,8..8] of integer;
    key2 : String;

begin

    schluessel := edit4.text;
    SetLength(key, Length(schluessel));


    Randomize;
    for I := 0 to length(schluessel) - 1 do
      begin
      zwisch[i] := StrToInt(schluessel[i]);

      case i of

      0: key[i] := (test1[random(3)]);//Wenn ich "(3)" weglasse gibt er mir aus das die typen Integer und Extended nicht übereinstimmen
      1: key[i] := (test2[random(3)]);



      end;

      end;

      for I := 0 to length(schluessel) - 1 do
        begin
          key2 := key2 + IntToStr(key[i]);
        end;


end;

markieren

Delphi-Quellcode:

 
  test1 : array[0..0,3..3,7..7,9..9] of Integer; // 2 Statische array für gerade und ungerade
  test2 : Array[2..2,4..4,6..6,8..8] of integer;

... und Du bist Dir sicher, dass Du ein 4 dimensionales Array benötigst?

Oder meintest Du vielleicht so etwas?

markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  key : array [0..8] of integer;
  test1 : array [0..8] of integer;
begin
  key[1]:= test1[random(3)];
end;

0: key[i] := (test1[random(3)]);//W Was Du tust ist ein 3 dimensionales Array zurückgeben.
Du belegest ein index des 4 dimen. Array und erhälst ein 3 dimens. Array
als Rückgabe. Das ist nicht mit Integer kompatibel.

Grüße
Klaus

Ich denke, er meint es eher so:const test1: array[0..3] of Integer = (0,3,7,9);

Außerdem sind ungerade Zahlen ja wohl (1,3,5,7,9) und gerade (0,2,4,6,8). Zudem hast du die länge von 'zwisch' nicht festgelegt, da wird noch ein Fehler kommen. Ach, und das hier:

markieren

Delphi-Quellcode:

for I := 0 to length(schluessel) - 1 do
  begin
  zwisch[i] := StrToInt(schluessel[i]);
    case i of //i hat beim ersten mal den Wert 0, dann 1, dann 2 usw...
      0: key[i] := (test1[random(3)]);
      1: key[i] := (test2[random(3)]);
    end;
  end;

Wenn überhaupt müsstest du das so machen:

markieren

Delphi-Quellcode:

case StrToInt(Schluessel[i]) of
[...]

Denn ansonsten liefert i dir jeweils einmal 0 und 1 zurück, und wird dann immer größer.

Mfg

hmm okay aber wo soll ich die beiden

markieren

Delphi-Quellcode:

const test1: array[0..3] of Integer = (2,4,6,8);
const test2: array[0..4] of Integer = (0,3,5,7,9);

einfügen ??? weil in den variablen bereich kommen sie ja bestimmt nicht...