modpow.vbs

可以进行任意多位的大整数的乘方、开方、四则运算等

'----------------------------------------------------------
' Modular Exponentiation Calculation Script
'------------------------------------------
'
' This VBScript code shows how to calculate a modular 
' exponentiation.
' 
' Summary: compute d = a^b mod c.
' 
' a = b3 08 55 10 02 1f 99 90 49 a9 e7 cd 38 72 ce 99 
'     58 18 6b 50 07 e7 ad af 25 24 8b 58 a3 dc 4f 71 
'     78 1d 21 f2 df 89 b7 17 47 bd 54 b3 23 bb ec c4 
'     43 ec 1d 3e 02 0d ad ab bf 78 22 57 82 55 c1 04
'
' b = 6b 2c d9 35 d0 19 2d 54 e2 c9 42 b5 74 c8 01 02 
'     c8 f8 ef 67
'
' c = d4 11 a4 a0 e3 93 f6 aa b0 f0 8b 14 d1 84 58 66 
'     5b 3e 4d bd ce 25 44 54 3f e3 65 cf 71 c8 62 24 
'     12 db 6e 7d d0 2b be 13 d8 8c 58 d7 26 3e 90 23 
'     6a f1 7a c8 a9 fe 5f 24 9c c8 1f 42 7f c5 43 f7
'
' The result should be:
' 
' d = b3 2f be c0 31 75 79 1d f0 8c 3f 86 1c 81 df 7d 
'     e7 e0 cb a7 f1 c4 f7 26 9b b1 2d 6c 62 87 84 fb 
'     74 2e 66 ed 31 57 54 df e3 8b 59 84 e9 4d 37 25 
'     37 f6 55 cb 3e a4 76 7c 87 8c bd 2d 78 3e e6 62 
'
'----------------------------------------------------------

Dim strHexA, strHexB, strHexC, strHexD

strHexA = "b3 08 55 10 02 1f 99 90 " + _
          "49 a9 e7 cd 38 72 ce 99 " + _
          "58 18 6b 50 07 e7 ad af " + _
          "25 24 8b 58 a3 dc 4f 71 " + _
          "78 1d 21 f2 df 89 b7 17 " + _
          "47 bd 54 b3 23 bb ec c4 " + _
          "43 ec 1d 3e 02 0d ad ab " + _
          "bf 78 22 57 82 55 c1 04"

strHexB = "6b 2c d9 35 d0 19 2d 54 " + _ 
          "e2 c9 42 b5 74 c8 01 02 " + _ 
          "c8 f8 ef 67 " 

strHexC = "d4 11 a4 a0 e3 93 f6 aa " + _
          "b0 f0 8b 14 d1 84 58 66 " + _
          "5b 3e 4d bd ce 25 44 54 " + _
          "3f e3 65 cf 71 c8 62 24 " + _
          "12 db 6e 7d d0 2b be 13 " + _
          "d8 8c 58 d7 26 3e 90 23 " + _
          "6a f1 7a c8 a9 fe 5f 24 " + _
          "9c c8 1f 42 7f c5 43 f7" 

strHexD = Hpmbmath.ModPow(strHexA, strHexB, strHexC) 
Hpmbmath.Output("Result = " + vbCrLf + strHexD)