rsa暗号の公開鍵と秘密鍵を作るプログラム
*syoki keisan = 0 koukai = 0 himitu = 0 *sosuu ;素数を入れてください sosuua = 829 sosuub = 293 *keisn hou = sosuua * sosuub n = 1 * (sosuua -1 ) * (sosuub -1) + 1 *kagi while ( keisan != n ) koukai = rnd(10000) himitu = rnd(10000) keisan = koukai * himitu mes koukai mes himitu mes keisan mes n await 1 cls wend *kai cls mes "公開鍵" mes koukai mes "秘密鍵" mes himitu stop
めっちゃ時間かかってしまうのをどうにかしないとｗ
多分乱数の最大値を素数に応じて切り替えたら少しは解決できると思うｗ
