PureBasic

Le tout étant relativement complexe, je mets par petits bouts

.
1ère partie : La création des clés :
J'espère ne pas avoir fait d'erreurs

.

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

tu as pas une petite explication car je ne sais pas ce que c'est RSA

C'est l'algorithme de cryptage le plus utilisé !

c'est pas ce qui est utilisé par le groupement des cartes Banquaires ?

Tout à fait. Il est utilisé par tout ce qui touche à l'argent en ligne

.

ya des rumeurs comme quoi il aurai ete cassé a nouveau
mais cette fois , ils sont plus discrets avec leur y*sc*rd

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.

Dobro a écrit :ya des rumeurs comme quoi il aurai ete cassé a nouveau
mais cette fois , ils sont plus discrets avec leur y*sc*rd

Pourquoi tu t'auto-censure, Dobro

Ecrire YesCard n'est pas illégal, ce qui est illégal, c'est de l'utiliser.

Pourquoi tu t'auto-censure, Dobro

c'est juste pour eviter au RG de venir ici pour verifier de quoi on parle
ils ont surement pas de temps a perdre !

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.

Nous ce sera du 32bits maximum

.

ce qui me fait penser qu'il faudrait que j'essaie la pbosl qui contient une lib de gestion des bignums