<rp id="1wjqb"><object id="1wjqb"><input id="1wjqb"></input></object></rp>
    <dd id="1wjqb"><pre id="1wjqb"></pre></dd><rp id="1wjqb"></rp>
    1. 下载

      5下载券

      加入VIP
      • 专属下载券
      • 上传内容扩展
      • 资料优先审核
      • 免费资料无限下载

      上传资料

      关闭

      关闭

      关闭

      封号提示

      内容

      首页 RSA算法实现-ASP

      RSA算法实现-ASP.doc

      RSA算法实现-ASP

      沵婹哋溫渘_
      2019-05-04 0人阅读 举报 0 0 0 暂无简介

      简介:本文档为《RSA算法实现-ASPdoc》,可适用于IT/计算机领域

      一、新建一个asp保存为:TestRSAasp<rem文章标题:在asp中通过vbs类实现rsa加密与解密><OptionExplicit><!#INCLUDEFILE="clsRSAasp"><DimLngKeyEDimLngKeyDDimLngKeyNDimStrMessageDimObjRSAIfNotRequestForm=""ThenLngKeyE=RequestForm("KeyE")LngKeyD=RequestForm("KeyD")LngKeyN=RequestForm("KeyN")StrMessage=RequestForm("Message")SetObjRSA=NewclsRSASelectCaseRequestForm("Action")Case"GenerateKeys"CallObjRSAGenKey()LngKeyE=ObjRSAPublicKeyLngKeyD=ObjRSAPrivateKeyLngKeyN=ObjRSAModulusCase"Encrypt"ObjRSAPublicKey=LngKeyEObjRSAModulus=LngKeyNStrMessage=ObjRSAEncode(StrMessage)Case"Decrypt"ObjRSAPrivateKey=LngKeyDObjRSAModulus=LngKeyNStrMessage=ObjRSADecode(StrMessage)EndSelectSetObjRSA=NothingEndIf><HTML><HEAD><TITLE>RSACipherDemonstration<TITLE><HEAD><BODY><H>RSACipherDemonstration<H><P>Youwillfirstneedtogenerateyourpublicprivagekeypairbeforeyoucanencryptdecryptmessages<P><FORMmethod="post"><TABLE><TR><TD>PublicKey<TD><TD><INPUTname="KeyE"value="<=ServerHTMLEncode(LngKeyE)>"><TD><TDrowspan=""><INPUTtype="Submit"name="Action"value="GenerateKeys"><TD><TR><TR><TD>PrivateKey<TD><TD><INPUTname="KeyD"value="<=ServerHTMLEncode(LngKeyD)>"><TD><TR><TR><TD>Modulus<TD><TD><INPUTname="KeyN"value="<=ServerHTMLEncode(LngKeyN)>"><TD><TR><TR><TDcolspan="">TestMessage:<BR><TEXTAREAname="Message"cols=""rows=""><=ServerHTMLEncode(StrMessage)><TEXTAREA><TD><TR><TR><TDalign="right"colspan=""><INPUTtype="Submit"name="Action"value="Encrypt"><INPUTtype="Submit"name="Action"value="Decrypt"><TD><TR><TABLE><FORM><BODY><HTML>二、新建另一个asp保存为:RSAasp<rem实现rsa加密与解密的vbs类文件rem文章标题:在asp中通过vbs类实现rsa加密与解密'RSAEncryptionClass''PrivateKey'YourpersonalprivatekeyKeepthishidden''PublicKey'Keyforotherstoencryptdatawith''Modulus'Usedwithbothpublicandprivatekeyswhenencrypting'anddecryptingdata''GenKey()'CreatesPublicPrivatekeysetandModulus''Crypt(pLngMessage,pLngKey)'EncryptsDecryptsmessageandreturns'asastring''Encode(pStrMessage)'Encryptsmessageandreturnsindoublehexformat''Decode(pStrMessage)'Decryptsmessagefromdoublehexformatandreturnsastring'ClassclsRSAPublicPrivateKeyPublicPublicKeyPublicModulusPublicSubGenKey()DimlLngPhiDimqDimpRandomizeDoDo'randomprimarynumbers(to)Dop=Rnd*LoopWhileNotIsPrime(p)Doq=Rnd*LoopWhileNotIsPrime(q)'n=productofprimesModulus=p*q'randomdecryptor(ton)PrivateKey=Rnd*(Modulus)lLngPhi=(p)*(q)PublicKey=Euler(lLngPhi,PrivateKey)LoopWhilePublicKey=OrPublicKey='Loopifwecan'tcryptdecryptabyteLoopWhileNotTestCrypt()EndSubPrivateFunctionTestCrypt(ByRefpBytData)DimlStrCryptedlStrCrypted=Crypt(pBytData,PublicKey)TestCrypt=Crypt(lStrCrypted,PrivateKey)=pBytDataEndFunctionPrivateFunctionEuler(ByRefpLngPHI,ByRefpLngKey)DimlLngR()DimlLngP()DimlLngQ()DimlLngCounterDimlLngResultEuler=lLngR()=pLngPHI:lLngR()=pLngKeylLngP()=:lLngP()=lLngQ()=:lLngQ()=lLngCounter=DoUntillLngR()=lLngR()=lLngR():lLngR()=lLngR()lLngP()=lLngP():lLngP()=lLngP()lLngQ()=lLngQ():lLngQ()=lLngQ()lLngCounter=lLngCounterlLngR()=lLngR()ModlLngR()lLngP()=((lLngR()lLngR())*lLngP())lLngP()lLngQ()=((lLngR()lLngR())*lLngQ())lLngQ()LooplLngResult=(pLngKey*lLngP())(pLngPHI*lLngQ())IflLngResult>ThenEuler=lLngP()ElseEuler=Abs(lLngP())pLngPHIEndIfEndFunctionPublicFunctionCrypt(pLngMessage,pLngKey)OnErrorResumeNextDimlLngModDimlLngResultDimlLngIndexIfpLngKeyMod=ThenlLngResult=ForlLngIndex=TopLngKeylLngMod=(pLngMessage^)ModModulus'ModmayerroronkeygenerationlLngResult=(lLngMod*lLngResult)ModModulusIfErrThenExitFunctionNextElselLngResult=pLngMessageForlLngIndex=TopLngKeylLngMod=(pLngMessage^)ModModulusOnErrorResumeNext'ModmayerroronkeygenerationlLngResult=(lLngMod*lLngResult)ModModulusIfErrThenExitFunctionNextEndIfCrypt=lLngResultEndFunctionPrivateFunctionIsPrime(ByRefpLngNumber)DimlLngSquareDimlLngIndexIsPrime=FalseIfpLngNumber<ThenExitFunctionIfpLngNumberMod=ThenExitFunctionlLngSquare=Sqr(pLngNumber)ForlLngIndex=TolLngSquareStepIfpLngNumberModlLngIndex=ThenExitFunctionNextIsPrime=TrueEndFunctionPublicFunctionEncode(ByValpStrMessage)DimlLngIndexDimlLngMaxIndexDimlBytAsciiDimlLngEncryptedlLngMaxIndex=Len(pStrMessage)IflLngMaxIndex=ThenExitFunctionForlLngIndex=TolLngMaxIndexlBytAscii=Asc(Mid(pStrMessage,lLngIndex,))lLngEncrypted=Crypt(lBytAscii,PublicKey)Encode=EncodeNumberToHex(lLngEncrypted,)Next

      用户评价(0)

      关闭

      新课改视野下建构高中语文教学实验成果报告(32KB)

      抱歉,积分不足下载失败,请稍后再试!

      提示

      试读已结束,如需要继续阅读或者下载,敬请购买!

      评分:

      /13

      VIP

      意见
      反馈

      免费
      邮箱

      爱问共享资料服务号

      扫描关注领取更多福利

      香港合彩现场开奖结果-香港今期开奖结果资料-香港金多宝开奖结果