ALGORITHME RSA

Je suis a la recherche d'un algo "MODULO" qui utilise addition, multiplication et soustraction (pas de division).
Et j'en ai vraiment tres besoin.

Si vous avez l'algo ou une adresse :
archers.cestas@free.fr
gmamadou@yahoo.com
ston.giauque@wanadoo.fr

Private

Function Modulo( ByVal Numerateur As Integer , ByVal Denominateur As Integer ) As Integer

Dim reste As Integer

Dim k As Boolean

If Numerateur >= Denominateur Then

While Numerateur > 0 And k = False

Numerateur = Numerateur - Denominateur

If Numerateur < 0 Then reste = Numerateur + Denominateur : k = True

End While

Return reste

Else

Return Numerateur

End If

End Function
voici l'algorithme que tu demande.