农村义务教育现状调查报告.doc

1. 0 32. DoWhile(pg/2)=Int(pg/2) 33. x=nMod(x*x),m) 34. pg=pg/2 35. Loop36. y=nMod(x*y),m) 37. pg=pg-1 38. Loop39. Mult=y 40. EndFunction41. PrivateFunctionnMod(x,y) 42. nMod=0 43. ify=0thenExitFunctionEndIf44. nMod=x-(Int(x/y)*y) 45. EndFunction46. PrivateFunctionEuler(E3,PHI3) 47. genetatesDfrom(EandPHI)usingtheEuleralgorithm 48. OnErrorResumeNext49. Dimu1,u2,u3,v1,v2,v3,q 50. Dimt1,t2,t3,z,vv,inverse 51. u1=1 52. u2=0 53. u3=PHI3 54. v1=0 55. v2=1 56. v3=E3 57. DoUntil(v3=0) 58. q=Int(u3/v3) 59. t1=u1-q*v1:t2=u2-q*v2:t3=u3-q*v3 60. u1=v1:u2=v2:u3=v3 61. v1=t1:v2=t2:v3=t3 62. z=1 63. Loop64. If(u20)Then65. inverse=u2+PHI3 66. Else67. inverse=u2 68. EndIf69. Euler=inverse 70. EndFunction71. PrivateFunctionGCD(nPHI) 72. OnErrorResumeNext73. DimnE,y 74. ConstN_UP=99999999setupperlimitofrandomnumberForE 75. ConstN_LW=10000000setlowerlimitofrandomnumberForE 76. Randomize 77. nE=Int(N_UP-N_LW+1)*Rnd+N_LW) 78. Do79. x=nPHIModnE 80. y=xModnE 81. Ify0AndIsPrime(nE)Then82. GCD=nE 83. ExitFunction84. Else85. nE=nE+1 86. EndIf87. Loop88. EndFunction89. PrivateFunctionIsPrime(lngNumber) 90. OnErrorResumeNext91. DimlngCount,ngSqr 92. Dimx 93. lngSqr=Int(Sqr(lngNumber)Gettheintsquareroot 94. IflngNumber2Then95. IsPrime=False96. ExitFunction97. EndIf98. lngCount=2 99. IsPrime=True100. IflngNumberModlngCount=0Then101. IsPrime=False102. ExitFunction103. EndIf104. lngCount=3 105. Forx=lngCountTolngSqrStep2 106. IflngNumberModx=0Then107. IsPrime=False108. ExitFunction109. EndIf110. Next111. EndFunction112. PrivateFunctionNumberToHex(ByRefpLngNumber,ByRefpLngLength) 113. NumberToHex=Right(String(pLngLength,0)&Hex(pLngNumber),pLngLength) 114. EndFunction115. PrivateFunctionHexToNumber(ByRefpStrHex) 116. HexToNumber=CLng(&h&pStrHex) 117. EndFunction118. PublicFunctionEncrypt(ByValtIp) 119. DimencSt,z 120. DimstrMult 121. DimiEnc,iMod 122. DimaKey:aKey=Split(KeyEnc,) 123. IftIp=ThenExitFunctionEndIf124. iEnc=Int(aKey(0) 125. iMod=Int(aKey(1) 126. Forz=1ToLen(tIp) 127. encSt=encSt&NumberToHex(Mult(CLng(Asc(Mid(tIp,z,1),iEnc,iMod),8) 128. Next129. Encrypt=encSt 130. EndFunction131. PublicFunctionDecrypt(ByValtIp) 132. DimdecSt,z 133. DimiDec,iMod 134. DimaKey:aKey=Split(KeyDec,) 135. ifLen(tIp)Mod80thenExitFunctionEndIf136. iDec=Int(aKey(0) 137. iMod=Int(aKey(1) 138. Forz=1ToLen(tIp)Step8 139. decSt=decSt+Chr(Mult(HexToNumber(Mid(tIp,z,8),iDec,iMod) 140. Next141. Decrypt=decSt 142. EndFunction143. PublicFunctiongenKey() 144. GeneratesthekeysforE,DandN 145. DimE,D,N,p,q 146. ConstPQ_UP=9999setupperlimitofrandomnumber 147. ConstPQ_LW=3170setlowerlimitofrandomnumber 148. ConstKEY_LOWER_LIMIT=10000000setFor64bitminimum 149. p=0:q=0 150. Randomize 151. DoUntilDKEY_LOWER_LIMITmakessurekeysare64bitminimum 152. DoUntilIsPrime(p)AndIsPrime(q)makesureqandqareprimes 153. p=clng(PQ_UP-PQ_LW+1)*Rnd+PQ_LW) 154. q=clng(PQ_UP-PQ_LW+1)*Rnd+PQ_LW) 155. Loop156. N=clng(p*q) 157. PHI=(p-1)*(q-1) 158. E=clng(GCD(PHI) 159. D=clng(Euler(E,PHI) 160. Loop161. KeyEnc=E&,&N 162. KeyDec=D&,&N 163. genKey=E&,&D&,&N 164