Enigma auf dem µC

[MagicWSmoke]

Tut mir leid, ich habs mir jetzt seeehr lange angesehen, aber ich sehe den Fehler nicht... Könntest du mir erklären, wo ich was falsch gemacht habe?

Wenn Pointer_1 = 1 ist, dann ist Tmp = 2. Damit wird die zweite Zelle auf die Erste geschrieben und der Inhalt der ersten Zelle zerstört, welche eigentlich in Zelle 26 kommen soll. So kommt aber nur ein falscher Inhalt dort an, d.h. der Inhalt der vormaligen Zelle 2.

[Che Guevara]

Oooh stimmt, danke
Habs jetzt so gemacht:

Sub Walze_drehen()
Tmp2 = Walze_1(1)
For Pointer_1 = 1 To 26
   Tmp = Pointer_1 + 1
   If Tmp = 27 Then Tmp = 1
   Walze_1(pointer_1) = Walze_1(tmp)
   If Pointer_1 = 26 Then
      Walze_1(26) = Tmp2
   End If
   Walze_1_inv(walze_1(pointer_1)) = Pointer_1
Next Pointer_1
End Sub

Jedoch behebt das immer noch nicht mein Problem -.- Ich denke, mit Walze_1_inv stimmt was noch nicht, aber da muss ich mich erst wieder reindenken...

Gruß
Chris

[MagicWSmoke]

Jedoch behebt das immer noch nicht mein Problem -.- Ich denke, mit Walze_1_inv stimmt was noch nicht, aber da muss ich mich erst wieder reindenken...

Das hier hatte funktioniert:

Sub Walze_drehen()
Local Cell_1 As Byte
  Cell_1 = Walze_1(1)
For Pointer_1 = 1 To 26
   Tmp = Pointer_1 + 1
   If Tmp = 27 Then
     Walze_1(pointer_1) = Cell_1
   Else
     Walze_1(pointer_1) = Walze_1(tmp)
   End If
     Walze_1_inv(walze_1(pointer_1)) = Pointer_1
Next Pointer_1
End Sub

Fehler: If Reflektor = 27 Then Reflektor = 1 wurde ausgebessert ?

[Che Guevara]

Aber Walze_1(26) wird doch noch vor Walze_1_inv(Walze_1(pointer_1)) beschrieben... Ich glaube, ich verstehe nicht, was du meinst.. IMHO wird jetzt Walze_1 richtig beschrieben und somit sollte auch Walze_1_inv stimmen. Korigiert mich bitte, falls ich was falsches sage.

Gruß
Chris

[MagicWSmoke]

Aber Walze_1(26) wird doch noch vor Walze_1_inv(Walze_1(pointer_1)) beschrieben... Ich glaube, ich verstehe nicht, was du meinst..

Ich denke Du hattest während ich geantwortet hab' den Code geändert.
Der Code wie jetzt oben angezeigt funktioniert. Wo ist dann das Problem ?

[Che Guevara]

Oh, tut mir leid, ich hättes dazu schreiben sollen!
Also bei mir funktionierts leider nicht, ab und zu stimmt der Ein- und Ausgangstext nicht überein. Bist du dir sicher, dass es funktioniert?

Gruß
Chris

[MagicWSmoke]

Also bei mir funktionierts leider nicht, ab und zu stimmt der Ein- und Ausgangstext nicht überein.

So steht's bei mir im Terminal des Simulators:

Ausg: 4:20:8:8
Chiff: 16:11:7:3
Dechiff: 4:20:8:8

Ausg: 16:21:8:13
Chiff: 4:23:7:1
Dechiff: 16:21:8:13

Ausg: 22:4:23:12
Chiff: 24:17:15:25
Dechiff: 22:4:23:12

Ausg: 21:16:15:5
Chiff: 12:24:23:16
Dechiff: 21:16:15:5

Ausg: 2:24:5:15
Chiff: 15:16:25:2
Dechiff: 2:24:5:15

Ausg: 7:18:1:10
Chiff: 1:7:18:20
Dechiff: 7:18:1:10

Ausg: 18:22:3:6
Chiff: 5:12:16:7
Dechiff: 18:22:3:6

Ausg: 23:8:1:6
Chiff: 13:9:18:7
Dechiff: 23:8:1:6

Ausg: 8:4:16:19
Chiff: 19:17:3:21
Dechiff: 8:4:16:19

Ausg: 4:25:3:13
Chiff: 16:13:16:1
Dechiff: 4:25:3:13

Ausg: 18:9:15:18
Chiff: 5:8:23:9
Dechiff: 18:9:15:18