Message envoyé par "mail" le 04/03/2000 sur le forum fr.misc.cryptologie

Petite feuille Maple
 
>
pub:=2^320+convert(`90b8aaa8de358e7782e81c7723653be644f7dcc6f816daf46e532b91 e84f`,decimal,hex);
 
pub := 21359870359209100823950227049996287970510953418264174064425\     24165008583957746445088405009430865999
 
> facteur1:=convert(`c31f7084b75c502caa4d19eb137482aa4cd57aab`, decimal,
hex);
 
    facteur1 := 1113954325148827987925490175477024844070922844843
 
> facteur2:=convert(`14fdeda70ce801d9a43289fb8b2e3b447fa4e08ed`, decimal,
hex);
 
    facteur2 := 1917481702524504439375786268230862180696934189293
 
> produit:=facteur1*facteur2;
 
produit := 2135987035920910082395022704999628797051095341826417406\     442524165008583957746445088405009430865999
 
> exposant_public:=3;
 
                        exposant_public := 3
 
> modulo_div_eucl:=(facteur1-1)*(facteur2-1);
 
modulo_div_eucl := 21359870359209100823950227049996287970510953418\     23385970414850832581282681302737201380241573831864
 
> essai_rate_exposant_prive:=expand((1+modulo_div_eucl)/3);
 
essai_rate_exposant_prive := 2135987035920910082395022704999628797\
 
    051095341823385970414850832581282681302737201380241573831865/3
 
> exposant_prive:=expand((1+2*modulo_div_eucl)/3);
 
exposant_prive := 142399135728060672159668180333308586470073022788\     2257313609900555054188454201824800920161049221243
 
> testnb:=1234;
 
                            testnb := 1234
 
> testsignnb:=testnb &^ exposant_prive mod produit;
 
testsignnb := 2235938147775183775641042325450404557899532144626481\     7152366942909748069192341215834242192574336
 
> testverifsignnb:=testsignnb &^exposant_public mod produit;
 
                      testverifsignnb := 1234
 
 
ou trouver  prog carte puce satellite ?

Retour page d'accueil site sur l'affaire des cartes bancaires