Factoring.ari 424 B

123456789101112
  1. # Gegebener Öffentlicher Schlüssel N = p*q und e sowie Geheimtext y
  2. N := 6593724735903381194175738064212775889771.
  3. e := 47.
  4. y := 6508724329196926526021005674657658127499.
  5. p := ec_factorize(N). # 6890701303127411
  6. q := N div p. # 956207997714884457630761
  7. phi := (p-1)*(q-1). #6588943695914805815679579653627015131600
  8. d := mod_inverse(e, phi).
  9. cc := byte_string(y).
  10. z := y**d mod N.
  11. string(byte_string(z)).