Cryptographie Codage

Cours Cryptographie

Voilà un cours de cryptographie :Télécharger

Feistel :
Programme de cryptage suivant le schéma de feistel en cours de dévelopement.(telechargement prog)
Test le cryptage sur une image(bmp) encore en phase de développement(Telechargement)
Sources Feistel (Visual studio 2005) : Télécharger


Cours Codage :

Cours 1
Cours 2
Cours 3

Exponentiation modulaire : Telecharger

Programme exponentiation modulaire {1,3}->dim[A] Fill(0,[A]) ClrHome Output(3,2,"EXPONENTIATION") Output(4,4,"MODULAIRE") Output(6,4,"A^K MOD N") Pause Input"A ",X Input"K ",K Input"N ",N 1->I 1->A A->[A](1,3) X->P prgmMODULO Q->S S->[A](1,2) K->[A](1,1) fPart(K/2)->L While(K!=0) //!= différent I+1->I {I,3}->dim[A] If (L!=0) Then A*S->P prgm->MODULO Q->A A->[A](I,3) End iPart(K/2)->K fPart(K/2)->K K->[A](I,1) S*S->P prgmMODULO Q->S S->[A](I,2) End Disp "TABLO DS [A]" Disp "RESULTAT",A Stop Sous Programme MODULO P/N->F iPart (F)->F P-(N*F)->Q Return

{2,4}->dim[A] Fill(0,[A]) ClrHome Output(2,4,"EGALITE DE") Output(3,6,"BEZOUT") Output(5,5,"PGCD(A,B)") Pause Input "A ",A Input "B ",B 1->U 0->V A->R U->[A](1,1) V->[A](1,2) R->[A](1,3) 0->Y 1->Z B->X Y->[A](2,1) Z->[A](2,2) X->[A](2,3) 3->M 2->W While(X!=0) //!= différent iPart(R/X)->Q (U-QY)->G (V-QZ)->H (R-QX)->C Y->U Z->V X->R G->Y H->Z C->X {M,4}->dim[a] Y->[a](M,1) Z->[a](M,2) X->[a](M,3) Q->[a](M,4) M+1->M W+1->W End U->E V->F If (U<0) Then B+U->E End If(V<0) Then A+V->F End Output(3,1,"PGCD=") Output(3,7,R) Output(4,1,"CLE PUBLIC") Output(4,12,A) Output(5,1,"CLE SECRET") Output(5,12,E) Output(6,4,"OU") Output(7,1,"CLE PUBLIC") Output(7,12,B) Output(8,1,"CLE SECRET") Output(8,12,F) Pause ClrHome Disp "TABLEAU DANS" Disp "MATRICE [A]" Disp "COLONNE 1= U" Disp "COLONNE 2= V" Disp "COLONNE 3= R" Disp "COLONNE 4= Q" Pause ClrHome Disp"BEZOUT FERME"