B4J Question Diffie-Hellman

Sub Process_Globals
    Dim p As Int = 11    'Primzahl'
    Dim g As Int = 7    'Ganze Zahl < Primzahl'
   
    Dim A As Long
    Dim B As Long
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    Dim xAlice As Int = Rnd(1, p-1)      'Zufallszahl Alice < Primzahl
    Dim xBop As Int = Rnd(1,p-1)        'Zufallszahl Bop < Primzahl'
    Log("xAlice:" & xAlice)
    Log("xBop:" & xBop)
   
    A=Power(g,xAlice) mod p
    Log("A:" & A)
    B=Power(g,xBop) mod p
    Log("B:" & B)
   
    Dim sA As Long
    sA=Power(B,xAlice) mod p            'Gemeinsamer Schlüssel'
    Log("Key Alice:" & sA)
   
    Dim sB As Long
    sB=Power(A,xBop) mod p
    Log("Key Bop: " & sB)            'Gemeinsamer Schlüssel'
End Sub