C++ code nach PureBasic umschreiben

[winduff]

Nabend alle,

ich bin hier grad am durchdrehen und der arme mvxa, der mir helfen wollte, ist von kopfschmerzen geplagt ... wegen dem ******* CppCode der hier rumliegt, und umbedingt zu PureBasicCode werden will

Ja, meine bitte wäre die: Kann mir jemand den angehongenen Code zu PB umschreiben? (Gaaaaaaaaanz unten ist der versuchte PB Code, nur funktioniert das nicht wie gewollt (siehe Skizze))

Wer den code überblickt, sieht gleich die Funktionsweise (hoffentlich ) hier aber nochmal als Skizze dargestellt, da das ganze doch komplexer ist als auf den ersten blick.....

main.cpp:

Code: Alles auswählen

Code wg. Projekt entfernt

codecard.h:

Code: Alles auswählen

Code wg. Projekt entfernt

---------------------------------
Angefangener, nicht rightig funktionierender PB Code

Code: Alles auswählen

Code wg. Projekt entfernt

[msh]

@winduff

Setze mal den unten stehenden Teil ein.

MfG Mike

Code: Alles auswählen

Procedure encrypt()
  Protected lI.l, lJ.l, lK.l, lL.l
  lI = 0
  For lK = 0 To 7
    For lL = 1 To 4
      lJ = Asc(Mid(sPasswort, lL, 1)) - 'a'
      Matrix(lJ, lK) = PeekB(?data_pinnr + lI)
      lI + 1
    Next
  Next
EndProcedure

[Edit]
Folgende Zeile zu ändern, hätte es auch getan

• Matrix(lJ, lK) = PeekB(?data_pinnr + (lI + lK*4) )

[/Edit]

[winduff]

Hmm soll ich dich jetzt umarmen oder bist du zu weit weg

Nene vielen Dank, mh hätte ich doch rumspielen sollen