Précision à propos de RSA (Delphi) ?

Bonjour,

J'ai un petit problème à comprendre ce code, je voudrais implenter RSA dans
mon soft, ce que je comprend pas , c'est comment est calculer E dans ce
code, il est toujours pareil (même en changeant les valeurs p et q), j'ai
l'impression que c'est E = Exponent, car je ne peux pas lui attribuer un
chiffer au hasard, merci de votre aide.

Source du code ici : http://triade.studentenweb.org/

// Enter a random number to generate a prime, i.e.
// incremental search starting from that number
Base10StringToFGInt('123456789123', p);
PrimeSearch(p);
Base256StringToFGInt('123456789123', q);
PrimeSearch(q);

// Compute the modulus
FGIntMul(p, q, n);
// Compute p-1, q-1 by adjusting the last digit of the GInt
p.Number[1] := p.Number[1] - 1;
q.Number[1] := q.Number[1] - 1;
// Compute phi(n)
FGIntMul(p, q, phi);
// Choose a public exponent e such that GCD(e,phi)=1
// common values are 3, 65537 but if these aren 't coprime
// to phi, use the following code
Base10StringToFGInt('65537', e); // just an odd starting point

Base10StringToFGInt('1', one);
Base10StringToFGInt('2', two);
FGIntGCD(phi, e, gcd);
While FGIntCompareAbs(gcd, one) <> Eq Do
Begin
FGIntadd(e, two, temp);
FGIntCopy(temp, e);
FGIntGCD(phi, e, gcd);
End;
FGIntDestroy(two);
FGIntDestroy(one);
FGIntDestroy(gcd);
// Compute the modular (multiplicative) inverse of e, i.e. the secret
exponent (key)
FGIntModInv(e, phi, d);
FGIntModInv(e, p, dp);
FGIntModInv(e, q, dq);
p.Number[1] := p.Number[1] + 1;
q.Number[1] := q.Number[1] + 1;

FGIntDestroy(phi);
FGIntDestroy(nilgint);

// Now everything is set up to start Encrypting/Decrypting,
Signing/Verifying
test := 'ABCD12345678 ';

RSAEncrypt(test, e, n, test);

//Memo1.Lines.Add(Base64Encode(test));
RSADecrypt(test, d, n, Nilgint, Nilgint, Nilgint, Nilgint, test);
// this Is faster : RSADecrypt(test, nilGInt, n, dp, dq, p, q, test);

// RSASign(test, d, n, Nilgint, Nilgint, Nilgint, Nilgint, signature);
// this Is faster : RSASign(test, nilgint, n, dp, dq, p, q, signature);
// RSAVerify(test, signature, e, n, ok);

FGIntDestroy(p);
FGIntDestroy(q);
FGIntDestroy(dp);
FGIntDestroy(dq);
FGIntDestroy(e);
FGIntDestroy(d);
FGIntDestroy(n);