Procedure PrimeEuler(Maximum)
Repeat
n = Random(Maximum)
Until n > 1 And n <> 41
ProcedureReturn n*n - n + 41
EndProcedure
Ret.s = Chr(13)+Chr(10)
Restart :
StT = ElapsedMilliseconds()
Start :
Repeat
p = PrimeEuler(208)
Until p > 128
Repeat
q = PrimeEuler(208)
Until q <> p And q > 128
n.l = p*q
qn.l = (p-1)*(q-1)
Repeat
e = Random(qn)
Until qn%e > 0
TmpNe = 1
d = 1
Euler = n - p - q + 1
Repeat
TmpNe = TmpNe + 1
d = Round(TmpNe * Euler / e, 1)
If TmpNe > 20
Goto Start
EndIf
Until ((d * e) % Euler) = 1
EnT = ElapsedMilliseconds()
rep = MessageRequester("Done !", "Start time : "+Str(StT)+Ret+"End time : "+Str(EnT)+Ret+"Done in "+Str(EnT-StT)+" ms => "+Str((EnT-StT)/1000)+" s"+Ret+"p="+Str(p)+", q="+Str(q)+Ret+"n="+Str(n)+", e="+Str(e)+", d="+Str(d)+Ret+"Restart ?", #PB_MessageRequester_YesNo | #MB_ICONQUESTION)
If rep = 6
Goto Restart
EndIf
End
Heis Spiter, webmaster du site http://www.heisspiter.net
Développeur principal et administrateur du projet Bird Chat
Parti courir au bonheur du dév. public et GPL
Heis Spiter, webmaster du site http://www.heisspiter.net
Développeur principal et administrateur du projet Bird Chat
Parti courir au bonheur du dév. public et GPL
Tout à fait. Il est utilisé par tout ce qui touche à l'argent en ligne .
Heis Spiter, webmaster du site http://www.heisspiter.net
Développeur principal et administrateur du projet Bird Chat
Parti courir au bonheur du dév. public et GPL
Il n'a pas (encore ?) était cassé, mais il a eu chaud lors de la sortie de l'algorithme mathématique AKS (et tous ces dérivés) qui permettent la factorisation en nombres premiers plus rapidement qu'avant.
Heis Spiter, webmaster du site http://www.heisspiter.net
Développeur principal et administrateur du projet Bird Chat
Parti courir au bonheur du dév. public et GPL
la sécurité du rsa tient en effet dans l'impossibilité de factoriser des grands nombres premiers en un temps raisonnable. Pour ne pas être embeté il faut utiliser une taille de clé de 1024 bits ou plus.
Heis Spiter, webmaster du site http://www.heisspiter.net
Développeur principal et administrateur du projet Bird Chat
Parti courir au bonheur du dév. public et GPL