服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - 一段在asp中加密与解密对应的函数

一段在asp中加密与解密对应的函数

2019-10-22 10:05asp教程网 ASP教程

在ASP中加密方法有对应的解密方法好象不多,现在根据前辈资料整理出在asp中加密与解密函数

在ASP中加密方法有对应的解密方法好象不多,现在根据前辈资料整理出在asp中加密与解密函数

rsa.asp

  1. <% 
  2.  
  3. rem在ASP中实现加密与解密,加密方法:根据RSA 
  4.  
  5. rem联系:hnsoso@sina.com 
  6.  
  7. ClassclsRSA 
  8.  
  9. PublicPrivateKey 
  10.  
  11. PublicPublicKey 
  12.  
  13. PublicModulus 
  14.  
  15. PublicFunctionCrypt(pLngMessage,pLngKey) 
  16.  
  17. OnErrorResumeNext 
  18.  
  19. DimlLngMod 
  20.  
  21. DimlLngResult 
  22.  
  23. DimlLngIndex 
  24.  
  25. IfpLngKeyMod2=0Then 
  26.  
  27. lLngResult=1 
  28.  
  29. ForlLngIndex=1TopLngKey/2 
  30.  
  31. lLngMod=(pLngMessage^2)ModModulus 
  32.  
  33. 'Modmayerroronkeygeneration 
  34.  
  35. lLngResult=(lLngMod*lLngResult)ModModulus 
  36.  
  37. IfErrThenExitFunction 
  38.  
  39. Next 
  40.  
  41. Else 
  42.  
  43. lLngResult=pLngMessage 
  44.  
  45. ForlLngIndex=1TopLngKey/2 
  46.  
  47. lLngMod=(pLngMessage^2)ModModulus 
  48.  
  49. OnErrorResumeNext 
  50.  
  51. 'Modmayerroronkeygeneration 
  52.  
  53. lLngResult=(lLngMod*lLngResult)ModModulus 
  54.  
  55. IfErrThenExitFunction 
  56.  
  57. Next 
  58.  
  59. EndIf 
  60.  
  61. Crypt=lLngResult 
  62.  
  63. EndFunction 
  64.  
  65. PublicFunctionEncode(ByValpStrMessage) 
  66.  
  67. DimlLngIndex 
  68.  
  69. DimlLngMaxIndex 
  70.  
  71. DimlBytAscii 
  72.  
  73. DimlLngEncrypted 
  74.  
  75. lLngMaxIndex=Len(pStrMessage) 
  76.  
  77. IflLngMaxIndex=0ThenExitFunction 
  78.  
  79. ForlLngIndex=1TolLngMaxIndex 
  80.  
  81. lBytAscii=Asc(Mid(pStrMessage,lLngIndex,1)) 
  82.  
  83. lLngEncrypted=Crypt(lBytAscii,PublicKey) 
  84.  
  85. Encode=Encode&NumberToHex(lLngEncrypted,4) 
  86.  
  87. Next 
  88.  
  89. EndFunction 
  90.  
  91. PublicFunctionDecode(ByValpStrMessage) 
  92.  
  93. DimlBytAscii 
  94.  
  95. DimlLngIndex 
  96.  
  97. DimlLngMaxIndex 
  98.  
  99. DimlLngEncryptedData 
  100.  
  101. Decode="" 
  102.  
  103. lLngMaxIndex=Len(pStrMessage) 
  104.  
  105. ForlLngIndex=1TolLngMaxIndexStep4 
  106.  
  107. lLngEncryptedData=HexToNumber(Mid(pStrMessage,lLngIndex,4)) 
  108.  
  109. lBytAscii=Crypt(lLngEncryptedData,PrivateKey) 
  110.  
  111. Decode=Decode&Chr(lBytAscii) 
  112.  
  113. Next 
  114.  
  115. EndFunction 
  116.  
  117. PrivateFunctionNumberToHex(ByRefpLngNumber,ByRefpLngLength) 
  118.  
  119. NumberToHex=Right(String(pLngLength,"0")&Hex(pLngNumber),pLngLength) 
  120.  
  121. EndFunction 
  122.  
  123. PrivateFunctionHexToNumber(ByRefpStrHex) 
  124.  
  125. HexToNumber=CLng("&h"&pStrHex) 
  126.  
  127. EndFunction 
  128.  
  129. EndClass 
  130.  
  131. %> 

test.asp

  1. <% 
  2.  
  3. functionEncryptstr(Message) 
  4.  
  5. DimLngKeyE 
  6.  
  7. DimLngKeyD 
  8.  
  9. DimLngKeyN 
  10.  
  11. DimStrMessage 
  12.  
  13. DimObjRSA 
  14.  
  15. LngKeyE="32823" 
  16.  
  17. LngKeyD="20643" 
  18.  
  19. LngKeyN="29893" 
  20.  
  21. StrMessage=Message 
  22.  
  23. SetObjRSA=NewclsRSA 
  24.  
  25. ObjRSA.PublicKey=LngKeyE 
  26.  
  27. ObjRSA.Modulus=LngKeyN 
  28.  
  29. Encryptstr=ObjRSA.Encode(StrMessage) 
  30.  
  31. SetObjRSA=Nothing 
  32.  
  33. endfunction 
  34.  
  35. functiondecryptstr(Message) 
  36.  
  37. DimLngKeyE 
  38.  
  39. DimLngKeyD 
  40.  
  41. DimLngKeyN 
  42.  
  43. DimStrMessage 
  44.  
  45. DimObjRSA 
  46.  
  47. LngKeyE="32823" 
  48.  
  49. LngKeyD="20643" 
  50.  
  51. LngKeyN="29893" 
  52.  
  53. StrMessage=Message 
  54.  
  55. SetObjRSA=NewclsRSA 
  56.  
  57. ObjRSA.PrivateKey=LngKeyD 
  58.  
  59. ObjRSA.Modulus=LngKeyN 
  60.  
  61. decryptstr=ObjRSA.Decode(StrMessage) 
  62.  
  63. SetObjRSA=Nothing 
  64.  
  65. endfunction 
  66.  
  67. dimlast,first 
  68.  
  69. first="sohu" 
  70.  
  71. Response.Write"加密前为:"&first 
  72.  
  73. last=Encryptstr(first) 
  74.  
  75. Response.Write"加密后为"&last 
  76.  
  77. Response.Write"解密后为"&decryptstr(last) 
  78.  
  79. %> 

延伸 · 阅读

精彩推荐