Quelle  RSA.cob

       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.