identification division.
program-id. RSA.
author. Roggero Lanotte.
* aus Hybrid Systems
* in automata,...combinatorics 6-2008
date-written. 4.7.2008.
date-compiled.
data division.
working-storage section.
77 n pic 9(4).
linkage section.
77 a pic 9(3) occurs 128.
77 x pic 9(4)V9(8).
77 y pic 9(4)V9(8).
77 m pic 9(4).
procedure division using a x y m.
move 1 to x
perform varying n from 0 until n>127
compute x=function mod(x*x,n)
if a(n)=1 then
compute x=function mod(x*m,n)
end-perform
display "done"
end-program RSA.
¤ Dauer der Verarbeitung: 0.22 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|