Besoin d'aide pour la Cryptographie en RSA svp

On choisit d tel que 71*d mod 1008 = 1

On trouve d = 1079

rem ============================================================================
rem    Calcul du PGCD et du PPCM de deux entiers
rem ============================================================================

dim PGCD%,PPCM%,n1%,n2%
n1% = 42 : n2% = 56
PGCD_PPCM(n1%,n2%)
 print "PGCD(" + str$(n1%) +","+str$(n2%)+") = " ; pgcd%
 print "PPCM(" + str$(n1%) +","+str$(n2%)+") = " ; ppcm%
end
rem ============================================================================
SUB PGCD_PPCM(n1%,n2%)
    dim_local n3%,n4%,n5%
    n4% = n1% : n5% = n2%
    while n2% > 0
        n3% = n1% : n1% = n2% : n2% = n3% - n1% * int(n3%/n1%)
    end_while
    PGCD% = n1%
    if PGCD% <> 0 then PPCM% = (n4%*n5%)/PGCD%
END_SUB
rem ============================================================================

' Algorithme d'Euclide étendu
' Permet, à partir de deux entiers a et b, de calculer non seulement leur plus grand commun
' diviseur(PGCD), mais aussi UN de leurs couples de coefficients de Bézout (deux entiers
' u et v tels que au + bv = PGCD(a, b)).
' https://fr.wikipedia.org/wiki/Algorithme_d%27Euclide_%C3%A9tendu

dim a,b
dim q,r0,u0,v0,r1,u1,v1
dim rs,us,vs

label calcul

a=120 : b=23
gosub calcul
print "p=",a,"   q=",b," ---> d=",b+u0
print "(",a,"*",b+u0,")-(",b,"*",a-v0,") = ",((a*(b+u0))-(b*(a-v0)))
print

a=71 : b=1008
gosub calcul
print "p=",a,"   q=",b," ---> d=",b+u0
print "(",a,"*",b+u0,")-(",b,"*",a-v0,") = ",((a*(b+u0))-(b*(a-v0)))




END
calcul:
   r0=a : u0=1 : v0=0
   r1=b : u1=0 : v1=1

   while r1>0
      q=int(r0/r1)
      rs=r0 : us=u0 : vs=v0
      r0=r1 : u0=u1 : v0=v1
      r1=rs-(q*r1) : u1=us-(q*u1) : v1=vs-(q*v1)
   end_while
'   print r0,"   ",u0,"   ",v0
   print "pgcd=",r0
'   print "(",a,"*",u0,")+(",b,"*",v0,")"
return

rem ============================================================================
rem     Algorithme d Euclide étendu
rem ============================================================================
rem Lalgorithme d Euclide étendu est une variante de l algorithme d Euclide qui
rem permet, à partir de deux entiers a et b, de calculer non seulement leur plus
rem grand commun diviseur (PGCD), mais aussi un de leurs couples de coefficients
rem de Bézout (deux entiers u et v tels que au + bv = PGCD(a, b)).
rem Quand a et b sont premiers entre eux, u est alors l inverse pour la
rem multiplication de a modulo b (et v est de la même façon l inverse modulaire
rem de b, modulo a), ce qui est un cas particulièrement utile.
rem ============================================================================

Euclide(71,1008)
end
rem ============================================================================
' Entrée : a, b entiers (naturels)
' Sortie : r entier (naturel) et  u, v entiers relatifs tels que
' r = pgcd(a, b) et rprime = a*u+b*v

SUB Euclide(a,b)
    if variable("r") = 0 then dim r
    if variable("u") = 0 then dim u
    if variable("v") = 0 then dim v
    if variable("d") = 0 then dim d
    dim_local q,rs,us,vs,rprime,uprime,vprime
' Initialisations
    r = a : rprime = b : u = 1 : v = 0 : uprime = 0 : vprime = 1
' les égalités r = a*u+b*v et rprime = a*uprime+b*vprime sont des invariants de boucle
    while rprime <> 0
          q = int(r/rprime)
          rs = r : us = u : vs = v
          r = rprime : u = uprime : v = vprime
          rprime = rs - q*rprime : uprime = us - q*uprime : vprime = vs - q*vprime
    end_while
    d = b+u
    print "Avec les valeurs : a = " + str$(a) + " et b = "+str$(b)
    print "r = PGCD(a,b) = " + str$(r)
    print "u = " + str$(u)
    print "v = " + str$(v)
    print "a*u+b*v = " +  str$(a*u+b*v)
    print "d = b+u = " + str$(d)
END_SUB
rem ============================================================================

X = MOD(a,b)

print mod(132,35) : ' ---> 27
Print mod(12,3) :  ' --- > 0
print mod(29,5) : ' -----> 4