ALGORITHME RSA
Tom
-
28 nov. 2001 à 16:10
cs_alpha5 Messages postés 74 Date d'inscription jeudi 10 août 2006 Statut Membre Dernière intervention 24 mars 2013 - 23 juin 2008 à 11:22
cs_alpha5 Messages postés 74 Date d'inscription jeudi 10 août 2006 Statut Membre Dernière intervention 24 mars 2013 - 23 juin 2008 à 11:22
1 réponse
cs_alpha5
Messages postés
74
Date d'inscription
jeudi 10 août 2006
Statut
Membre
Dernière intervention
24 mars 2013
23 juin 2008 à 11:22
23 juin 2008 à 11:22
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.
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.
