rsa2

local RSA = {}
local primes = {}
local prime_list = [[{70991 70997 70999 71011 71023 71039 71059 71069 71081 71089
71119 71129 71143 71147 71153 71161 71167 71171 71191 71209
71233 71237 71249 71257 71261 71263 71287 71293 71317 71327
71329 71333 71339 71341 71347 71353 71359 71363 71387 71389
71399 71411 71413 71419 71429 71437 71443 71453 71471 71473
71479 71483 71503 71527 71537 71549 71551 71563 71569 71593
71597 71633 71647 71663 71671 71693 71699 71707 71711 71713
71719 71741 71761 71777 71789 71807 71809 71821 71837 71843
71849 71861 71867 71879 71881 71887 71899 71909 71917 71933
71941 71947 71963 71971 71983 71987 71993 71999 72019 72031
72043 72047 72053 72073 72077 72089 72091 72101 72103 72109
72139 72161 72167 72169 72173 72211 72221 72223 72227 72229
72251 72253 72269 72271 72277 72287 72307 72313 72337 72341
72353 72367 72379 72383 72421 72431 72461 72467 72469 72481
72493 72497 72503 72533 72547 72551 72559 72577 72613 72617
72623 72643 72647 72649 72661 72671 72673 72679 72689 72701
72707 72719 72727 72733 72739 72763 72767 72797 72817 72823
72859 72869 72871 72883 72889 72893 72901 72907 72911 72923
72931 72937 72949 72953 72959 72973 72977 72997 73009 73013
73019 73037 73039 73043 73061 73063 73079 73091 73121 73127
73133 73141 73181 73189 73237 73243 73259 73277 73291 73303
73309 73327 73331 73351 73361 73363 73369 73379 73387 73417
73421 73433 73453 73459 73471 73477 73483 73517 73523 73529
73547 73553 73561 73571 73583 73589 73597 73607 73609 73613
73637 73643 73651 73673 73679 73681 73693 73699 73709 73721
73727 73751 73757 73771 73783 73819 73823 73847 73849 73859
73867 73877 73883 73897 73907 73939 73943 73951 73961 73973
73999 74017 74021 74027 74047 74051 74071 74077 74093 74099
74101 74131 74143 74149 74159 74161 74167 74177 74189 74197
74201 74203 74209 74219 74231 74257 74279 74287 74293 74297
74311 74317 74323 74353 74357 74363 74377 74381 74383 74411
74413 74419 74441 74449 74453 74471 74489 74507 74509 74521
74527 74531 74551 74561 74567 74573 74587 74597 74609 74611
74623 74653 74687 74699 74707 74713 74717 74719 74729 74731
74747 74759 74761 74771 74779 74797 74821 74827 74831 74843
74857 74861 74869 74873 74887 74891 74897 74903 74923 74929
74933 74941 74959 75011 75013 75017 75029 75037 75041 75079
75083 75109 75133 75149 75161 75167 75169 75181 75193 75209
75211 75217 75223 75227 75239 75253 75269 75277 75289 75307
75323 75329 75337 75347 75353 75367 75377 75389 75391 75401
75403 75407 75431 75437 75479 75503 75511 75521 75527 75533
75539 75541 75553 75557 75571 75577 75583 75611 75617 75619
75629 75641 75653 75659 75679 75683 75689 75703 75707 75709
75721 75731 75743 75767 75773 75781 75787 75793 75797 75821
75833 75853 75869 75883 75913 75931 75937 75941 75967 75979
75983 75989 75991 75997 76001 76003 76031 76039 76079 76081
76091 76099 76103 76123 76129 76147 76157 76159 76163 76207
76213 76231 76243 76249 76253 76259 76261 76283 76289 76303
76333 76343 76367 76369 76379 76387 76403 76421 76423 76441
76463 76471 76481 76487 76493 76507 76511 76519 76537 76541
76543 76561 76579 76597 76603 76607 76631 76649 76651 76667
76673 76679 76697 76717 76733 76753 76757 76771 76777 76781
76801 76819 76829 76831 76837 76847 76871 76873 76883 76907
76913 76919 76943 76949 76961 76963 76991 77003 77017 77023
77029 77041 77047 77069 77081 77093 77101 77137 77141 77153
77167 77171 77191 77201 77213 77237 77239 77243 77249 77261
77263 77267 77269 77279 77291 77317 77323 77339 77347 77351
77359 77369 77377 77383 77417 77419 77431 77447 77471 77477
77479 77489 77491 77509 77513 77521 77527 77543 77549 77551
77557 77563 77569 77573 77587 77591 77611 77617 77621 77641
77647 77659 77681 77687 77689 77699 77711 77713 77719 77723
77731 77743 77747 77761 77773 77783 77797 77801 77813 77839
77849 77863 77867 77893 77899 77929 77933 77951 77969 77977
77983 77999 78007 78017 78031 78041 78049 78059 78079 78101
78121 78137 78139 78157 78163 78167 78173 78179 78191 78193
78203 78229 78233 78241 78259 78277 78283 78301 78307 78311
78317 78341 78347 78367 78401 78427 78437 78439 78467 78479
78487 78497 78509 78511 78517 78539 78541 78553 78569 78571
78577 78583 78593 78607 78623 78643 78649 78653 78691 78697
78707 78713 78721 78737 78779 78781 78787 78791 78797 78803
78809 78823 78839 78853 78857 78877 78887 78889 78893 78901
78919 78929 78941 78977 78979 78989 79031 79039 79043 79063
79087 79103 79111 79133 79139 79147 79151 79153 79159 79181
79187 79193 79201 79229 79231 79241 79259 79273 79279 79283
79301 79309 79319 79333 79337 79349 79357 79367 79379 79393
79397 79399 79411 79423 79427 79433 79451 79481 79493 79531
79537 79549 79559 79561 79579 79589 79601 79609 79613 79621
79627 79631 79633 79657 79669 79687 79691 79693 79697 79699
79757 79769 79777 79801 79811 79813 79817 79823 79829 79841
79843 79847 79861 79867 79873 79889 79901 79903 79907 79939
79943 79967 79973 79979 79987 79997 79999 80021 80039 80051
80071 80077 80107 80111 80141 80147 80149 80153 80167 80173
80177 80191 80207 80209 80221 80231 80233 80239 80251 80263
80273 80279 80287 80309 80317 80329 80341 80347 80363 80369
80387 80407 80429 80447 80449 80471 80473 80489 80491 80513
80527 80537 80557 80567 80599 80603 80611 80621 80627 80629
80651 80657 80669 80671 80677 80681 80683 80687 80701 80713
80737 80747 80749 80761 80777 80779 80783 80789 80803 80809
80819 80831 80833 80849 80863 80897 80909 80911 80917 80923
80929 80933 80953 80963 80989 81001 81013 81017 81019 81023
81031 81041 81043 81047 81049 81071 81077 81083 81097 81101
81119 81131 81157 81163 81173 81181 81197 81199 81203 81223
81233 81239 81281 81283 81293 81299 81307 81331 81343 81349
81353 81359 81371 81373 81401 81409 81421 81439 81457 81463
81509 81517 81527 81533 81547 81551 81553 81559 81563 81569
81611 81619 81629 81637 81647 81649 81667 81671 81677 81689
81701 81703 81707 81727 81737 81749 81761 81769 81773 81799
81817 81839 81847 81853 81869 81883 81899 81901 81919 81929
81931 81937 81943 81953 81967 81971 81973 82003 82007 82009
82013 82021 82031 82037 82039 82051 82067 82073 82129 82139
82141 82153 82163 82171 82183 82189 82193 82207 82217 82219
82223 82231 82237 82241 82261 82267 82279 82301 82307 82339
82349 82351 82361 82373 82387 82393 82421 82457 82463 82469
82471 82483 82487 82493 82499 82507 82529 82531 82549 82559
82561 82567 82571 82591 82601 82609 82613 82619 82633 82651
82657 82699 82721 82723 82727 82729 82757 82759 82763 82781
82787 82793 82799 82811 82813 82837 82847 82883 82889 82891
82903 82913 82939 82963 82981 82997 83003 83009 83023 83047
83059 83063 83071 83077 83089 83093 83101 83117 83137 83177
83203 83207 83219 83221 83227 83231 83233 83243 83257 83267
83269 83273 83299 83311 83339 83341 83357 83383 83389 83399
83401 83407 83417 83423 83431 83437 83443 83449 83459 83471
83477 83497 83537 83557 83561 83563 83579 83591 83597 83609
83617 83621 83639 83641 83653 83663 83689 83701 83717 83719
83737 83761 83773 83777 83791 83813 83833 83843 83857 83869
83873 83891 83903 83911 83921 83933 83939 83969 83983 83987
84011 84017 84047 84053 84059 84061 84067 84089 84121 84127
84131 84137 84143 84163 84179 84181 84191 84199 84211 84221
84223 84229 84239 84247 84263 84299 84307 84313 84317 84319
84347 84349 84377 84389 84391 84401 84407 84421 84431 84437
84443 84449 84457 84463 84467 84481 84499 84503 84509 84521
84523 84533 84551 84559 84589 84629 84631 84649 84653 84659
84673 84691 84697 84701 84713 84719 84731 84737 84751 84761
84787 84793 84809 84811 84827 84857 84859 84869 84871 84913
84919 84947 84961 84967 84977 84979 84991 85009 85021 85027
85037 85049 85061 85081 85087 85091 85093 85103 85109 85121
85133 85147 85159 85193 85199 85201 85213 85223 85229 85237
85243 85247 85259 85297 85303 85313 85331 85333 85361 85363
85369 85381 85411 85427 85429 85439 85447 85451 85453 85469
85487 85513 85517 85523 85531 85549 85571 85577 85597 85601
85607 85619 85621 85627 85639 85643 85661 85667 85669 85691
85703 85711 85717 85733 85751 85781 85793 85817 85819 85829
85831 85837 85843 85847 85853 85889 85903 85909 85931 85933
85991 85999 86011 86017 86027 86029 86069 86077 86083 86111
86113 86117 86131 86137 86143 86161 86171 86179 86183 86197
86201 86209 86239 86243 86249 86257 86263 86269 86287 86291
86293 86297 86311 86323 86341 86351 86353 86357 86369 86371
86381 86389 86399 86413 86423 86441 86453 86461 86467 86477
86491 86501 86509 86531 86533 86539 86561 86573 86579 86587
86599 86627 86629 86677 86689 86693 86711 86719 86729 86743
86753 86767 86771 86783 86813 86837 86843 86851 86857 86861
86869 86923 86927 86929 86939 86951 86959 86969 86981 86993
87011 87013 87037 87041 87049 87071 87083 87103 87107 87119
87121 87133 87149 87151 87179 87181 87187 87211 87221 87223
87251 87253 87257 87277 87281 87293 87299 87313 87317 87323
87337 87359 87383 87403 87407 87421 87427 87433 87443 87473
87481 87491 87509 87511 87517 87523 87539 87541 87547 87553
87557 87559 87583 87587 87589 87613 87623 87629 87631 87641
87643 87649 87671 87679 87683 87691 87697 87701 87719 87721
87739 87743 87751 87767 87793 87797 87803 87811 87833 87853
87869 87877 87881 87887 87911 87917 87931 87943 87959 87961
87973 87977 87991 88001 88003 88007 88019 88037 88069 88079
88093 88117 88129 88169 88177 88211 88223 88237 88241 88259
88261 88289 88301 88321 88327 88337 88339 88379 88397 88411
88423 88427 88463 88469 88471 88493 88499 88513 88523 88547
88589 88591 88607 88609 88643 88651 88657 88661 88663 88667
88681 88721 88729 88741 88747 88771 88789 88793 88799 88801
88807 88811 88813 88817 88819 88843 88853 88861 88867 88873
88883 88897 88903 88919 88937 88951 88969 88993 88997 89003
89009 89017 89021 89041 89051 89057 89069 89071 89083 89087
89101 89107 89113 89119 89123 89137 89153 89189 89203 89209
89213 89227 89231 89237 89261 89269 89273 89293 89303 89317
89329 89363 89371 89381 89387 89393 89399 89413 89417 89431
89443 89449 89459 89477 89491 89501 89513 89519 89521 89527
89533 89561 89563 89567 89591 89597 89599 89603 89611 89627
89633 89653 89657 89659 89669 89671 89681 89689 89753 89759
89767 89779 89783 89797 89809 89819 89821 89833 89839 89849
89867 89891 89897 89899 89909 89917 89923 89939 89959 89963
89977 89983 89989 90001 90007 90011 90017 90019 90023 90031
90053 90059 90067 90071 90073 90089 90107 90121 90127 90149
90163 90173 90187 90191 90197 90199 90203 90217 90227 90239
90247 90263 90271 90281 90289 90313 90353 90359 90371 90373
90379 90397 90401 90403 90407 90437 90439 90469 90473 90481
90499 90511 90523 90527 90529 90533 90547 90583 90599 90617
90619 90631 90641 90647 90659 90677 90679 90697 90703 90709
90731 90749 90787 90793 90803 90821 90823 90833 90841 90847
90863 90887 90901 90907 90911 90917 90931 90947 90971 90977
90989 90997 91009 91019 91033 91079 91081 91097 91099 91121
91127 91129 91139 91141 91151 91153 91159 91163 91183 91193
91199 91229 91237 91243 91249 91253 91283 91291 91297 91303
91309 91331 91367 91369 91373 91381 91387 91393 91397 91411
91423 91433 91453 91457 91459 91463 91493 91499 91513 91529
91541 91571 91573 91577 91583 91591 91621 91631 91639 91673
91691 91703 91711 91733 91753 91757 91771 91781 91801 91807
91811 91813 91823 91837 91841 91867 91873 91909 91921 91939
91943 91951 91957 91961 91967 91969 91997 92003 92009 92033
92041 92051 92077 92083 92107 92111 92119 92143 92153 92173
92177 92179 92189 92203 92219 92221 92227 92233 92237 92243
92251 92269 92297 92311 92317 92333 92347 92353 92357 92363
92369 92377 92381 92383 92387 92399 92401 92413 92419 92431
92459 92461 92467 92479 92489 92503 92507 92551 92557 92567
92569 92581 92593 92623 92627 92639 92641 92647 92657 92669
92671 92681 92683 92693 92699 92707 92717 92723 92737 92753
92761 92767 92779 92789 92791 92801 92809 92821 92831 92849
92857 92861 92863 92867 92893 92899 92921 92927 92941 92951
92957 92959 92987 92993 93001 93047 93053 93059 93077 93083
93089 93097 93103 93113 93131 93133 93139 93151 93169 93179
93187 93199 93229 93239 93241 93251 93253 93257 93263 93281
93283 93287 93307 93319 93323 93329 93337 93371 93377 93383
93407 93419 93427 93463 93479 93481 93487 93491 93493 93497
93503 93523 93529 93553 93557 93559 93563 93581 93601 93607
93629 93637 93683 93701 93703 93719 93739 93761 93763 93787
93809 93811 93827 93851 93871 93887 93889 93893 93901 93911
93913 93923 93937 93941 93949 93967 93971 93979 93983 93997
94007 94009 94033 94049 94057 94063 94079 94099 94109 94111
94117 94121 94151 94153 94169 94201 94207 94219 94229 94253
94261 94273 94291 94307 94309 94321 94327 94331 94343 94349
94351 94379 94397 94399 94421 94427 94433 94439 94441 94447
94463 94477 94483 94513 94529 94531 94541 94543 94547 94559
94561 94573 94583 94597 94603 94613 94621 94649 94651 94687
94693 94709 94723 94727 94747 94771 94777 94781 94789 94793
94811 94819 94823 94837 94841 94847 94849 94873 94889 94903
94907 94933 94949 94951 94961 94993 94999 95003 95009 95021
95027 95063 95071 95083 95087 95089 95093 95101 95107 95111
95131 95143 95153 95177 95189 95191 95203 95213 95219 95231
95233 95239 95257 95261 95267 95273 95279 95287 95311 95317
95327 95339 95369 95383 95393 95401 95413 95419 95429 95441
95443 95461 95467 95471 95479 95483 95507 95527 95531 95539
95549 95561 95569 95581 95597 95603 95617 95621 95629 95633
95651 95701 95707 95713 95717 95723 95731 95737 95747 95773
95783 95789 95791 95801 95803 95813 95819 95857 95869 95873
95881 95891 95911 95917 95923 95929 95947 95957 95959 95971
95987 95989 96001 96013 96017 96043 96053 96059 96079 96097
96137 96149 96157 96167 96179 96181 96199 96211 96221 96223
96233 96259 96263 96269 96281 96289 96293 96323 96329 96331
96337 96353 96377 96401 96419 96431 96443 96451 96457 96461
96469 96479 96487 96493 96497 96517 96527 96553 96557 96581
96587 96589 96601 96643 96661 96667 96671 96697 96703 96731
96737 96739 96749 96757 96763 96769 96779 96787 96797 96799
96821 96823 96827 96847 96851 96857 96893 96907 96911 96931
96953 96959 96973 96979 96989 96997 97001 97003 97007 97021
97039 97073 97081 97103 97117 97127 97151 97157 97159 97169
97171 97177 97187 97213 97231 97241 97259 97283 97301 97303
97327 97367 97369 97373 97379 97381 97387 97397 97423 97429
97441 97453 97459 97463 97499 97501 97511 97523 97547 97549
97553 97561 97571 97577 97579 97583 97607 97609 97613 97649
97651 97673 97687 97711 97729 97771 97777 97787 97789 97813
97829 97841 97843 97847 97849 97859 97861 97871 97879 97883
97919 97927 97931 97943 97961 97967 97973 97987 98009 98011
98017 98041 98047 98057 98081 98101 98123 98129 98143 98179
98207 98213 98221 98227 98251 98257 98269 98297 98299 98317
98321 98323 98327 98347 98369 98377 98387 98389 98407 98411
98419 98429 98443 98453 98459 98467 98473 98479 98491 98507
98519 98533 98543 98561 98563 98573 98597 98621 98627 98639
98641 98663 98669 98689 98711 98713 98717 98729 98731 98737
98773 98779 98801 98807 98809 98837 98849 98867 98869 98873
98887 98893 98897 98899 98909 98911 98927 98929 98939 98947
98953 98963 98981 98993 98999 99013 99017 99023 99041 99053
99079 99083 99089 99103 99109 99119 99131 99133 99137 99139
99149 99173 99181 99191 99223 99233 99241 99251 99257 99259
99277 99289 99317 99347 99349 99367 99371 99377 99391 99397
99401 99409 99431 99439 99469 99487 99497 99523 99527 99529
99551 99559 99563 99571 99577 99581 99607 99611 99623 99643
99661 99667 99679 99689 99707 99709 99713 99719 99721 99733
99761 99767 99787 99793 99809 99817 99823 99829 99833 99839
99859 99871 99877 99881 99901 99907 99923 99929 99961 99971
99989 99991}]]
prime_list = prime_list:gsub(" ",",")
primes = require("serialization").unserialize(prime_list)
local primes_start = 1 -- начальный индекс рандомизации rsa_p и rsa_q
local function modulePow(n1,n2,m) --возведение в степень по модулю
    local c = 1
    for i = 1, n2 do
        os.sleep(0)
        c = (c*n1)%m
    end
    return c
end

function RSA.getkey()
  rsa_e = 0

  rsa_p = primes[math.random(primes_start,#primes)]
  rsa_q = rsa_p

  while rsa_q == rsa_p do
      rsa_q = primes[math.random(primes_start,#primes)]
  end

  rsa_n = rsa_p*rsa_q
  rsa_phi = (rsa_p-1)*(rsa_q-1)

  while rsa_e == 0 do
      local prime = primes[math.random(1,#primes)]
      if rsa_phi%prime > 0 then
          rsa_e = prime
      end
  end

  for i = 2, rsa_phi/2 do
      if ((i*rsa_phi)+1)%rsa_e == 0 then
          rsa_d = ((i*rsa_phi)+1)/rsa_e
          break
      end
  end
  local public = {rsa_e,rsa_n}
  local private = {rsa_d,rsa_n}
  return private, public
end

function RSA.encrypt(number,pE,pN)
  return modulePow(number,pE,pN)
end

function RSA.decrypt(number,sD,sN)
  return modulePow(number,sD,sN)
end

local sKey,pKey = RSA.getkey()
local cNum = RSA.encrypt(4096,pKey[1],pKey[2])
print(cNum)
local enNum = RSA.decrypt(cNum,sKey[1],sKey[2])
return RSA