# 6.ペア(c,e)を公開鍵、ペア(c,f)を秘密鍵とする
  (public_key=c(c,e))
  (secret_key=c(c,f))
  # 7.平文(を自然数に変換)をmとすると暗号文はm^eをcで割った余りnである
  m=as.bigz(s2d(x))
  if(m<c){ # m < c の時のみ暗号化 
    n=m^e%%c
  }else{
    n=NULL
  }
  list(cipher=n,public_key=public_key,secret_key=secret_key)


Encode(WAHOW)