aspにおけるvbsクラスによるrsa暗号化と復号化のコード

12201 ワード

aspでvbsクラスを通じてrsa暗号化と復号化を実現し、エッセンスに入ることを提案する.
この文章は2つの書類で構成されている.
test.aspテストプレゼンテーションファイル
clsrsa.asp rsa暗号化と復号化を実現するvbsクラスファイル
コードは次のとおりです.
1. test.asp

 
  
rem     : asp   vbs   rsa       
  
rem     :yanek  
  
rem   :[email protected]  
  
 
  
%>  
  
  
  
  
  
 
  
Dim LngKeyE  
  
Dim LngKeyD  
  
Dim LngKeyN  
  
Dim StrMessage  
  
Dim ObjRSA  
  
If Not Request.Form = "" Then  
  
 
  
    LngKeyE = Request.Form("KeyE")  
  
    LngKeyD = Request.Form("KeyD")  
  
    LngKeyN = Request.Form("KeyN")  
  
    StrMessage = Request.Form("Message")  
  
 
  
    Set ObjRSA = New clsRSA  
  
 
  
    Select Case Request.Form("Action")  
  
        Case "Generate Keys"  
  
            Call ObjRSA.GenKey()  
  
            LngKeyE = ObjRSA.PublicKey  
  
            LngKeyD = ObjRSA.PrivateKey  
  
            LngKeyN = ObjRSA.Modulus  
  
        Case "Encrypt"  
  
            ObjRSA.PublicKey = LngKeyE  
  
            ObjRSA.Modulus = LngKeyN  
  
            StrMessage = ObjRSA.Encode(StrMessage)  
  
        Case "Decrypt"  
  
            ObjRSA.PrivateKey = LngKeyD  
  
            ObjRSA.Modulus = LngKeyN  
  
            StrMessage = ObjRSA.Decode(StrMessage)  
  
    End Select  
  
 
  
    Set ObjRSA = Nothing  
  
 
  
End If  
  
%>  
  
  
  
      
  
        RSA Cipher Demonstration  
  
      
  
      
  
        RSA Cipher Demonstration  
  
          
  
            You will first need to generate your public/privage key-pair  
  
            before you can encrypt/decrypt messages.  
  
          
  
          
  
              
  
                  
  
                      
  
                      
  
                      
  
                  
  
                  
  
                      
  
                      
  
                  
  
                  
  
                      
  
                      
  
                  
  
                  
  
                    Public Key ">   
  
                          
  
                    
Private Key ">
Modulus ">
  
  
                        Test Message:
  
  
                          
  <br/>                    </td>  
  <br/>                </tr>  
  <br/>                <tr>  
  <br/>                    <td>  
  <br/>                        <input/>  
  <br/>                        <input/>  
  <br/>                    </td>  
  <br/>                </tr>  
  <br/>            </table>  
  <br/>        </form>  
  <br/>              
  <br/>  
  <br/> 
 </code></pre>     
 <br/> 
 <br/> 
 <br/> 
 <strong>clsrsa.asp</strong>   
 <br/> 
 <br/> 
   
 <pre><code> 
  <br/>rem   rsa      vbs     
  <br/>rem     : asp   vbs   rsa       
  <br/>rem     :yanek  
  <br/>rem   :aspboy@263.net  
  <br/> 
  <br/>' RSA Encryption Class  
  <br/>'  
  <br/>' .PrivateKey  
  <br/>'        Your personal private key.  Keep this hidden.  
  <br/>'  
  <br/>' .PublicKey  
  <br/>'        Key for others to encrypt data with.  
  <br/>'  
  <br/>' .Modulus  
  <br/>'        Used with both public and private keys when encrypting  
  <br/>'        and decrypting data.  
  <br/>'  
  <br/>' .GenKey()  
  <br/>'        Creates Public/Private key set and Modulus  
  <br/>'  
  <br/>' .Crypt(pLngMessage, pLngKey)    
  <br/>'        Encrypts/Decrypts message and returns   
  <br/>'        as a string.  
  <br/>'  
  <br/>' .Encode(pStrMessage)  
  <br/>'        Encrypts message and returns in double-hex format  
  <br/>'  
  <br/>' .Decode(pStrMessage)  
  <br/>'        Decrypts message from double-hex format and returns a string  
  <br/>'  
  <br/>Class clsRSA  
  <br/> 
  <br/>    Public PrivateKey  
  <br/>    Public PublicKey  
  <br/>    Public Modulus  
  <br/> 
  <br/>    Public Sub GenKey()  
  <br/>        Dim lLngPhi  
  <br/>        Dim q  
  <br/>        Dim p  
  <br/> 
  <br/>        Randomize  
  <br/> 
  <br/>        Do  
  <br/>            Do  
  <br/> 
  <br/>                ' 2 random primary numbers (0 to 1000)  
  <br/>                Do  
  <br/>                    p = Rnd * 1000 \ 1  
  <br/>                Loop While Not IsPrime(p)  
  <br/> 
  <br/>                Do  
  <br/>                    q = Rnd * 1000 \ 1  
  <br/>                Loop While Not IsPrime(q)  
  <br/> 
  <br/>                  
  <br/>                ' n = product of 2 primes  
  <br/>                Modulus = p * q \ 1  
  <br/> 
  <br/>                ' random decryptor (2 to n)  
  <br/>                PrivateKey = Rnd * (Modulus - 2) \ 1 + 2  
  <br/> 
  <br/>                lLngPhi = (p - 1) * (q - 1) \ 1  
  <br/>                PublicKey = Euler(lLngPhi, PrivateKey)  
  <br/> 
  <br/>            Loop While PublicKey = 0 Or PublicKey = 1  
  <br/> 
  <br/>        ' Loop if we can't crypt/decrypt a byte      
  <br/>        Loop While Not TestCrypt(255)  
  <br/> 
  <br/>    End Sub  
  <br/> 
  <br/>    Private Function TestCrypt(ByRef pBytData)  
  <br/>        Dim lStrCrypted  
  <br/>        lStrCrypted = Crypt(pBytData, PublicKey)  
  <br/>        TestCrypt = Crypt(lStrCrypted, PrivateKey) = pBytData  
  <br/>    End Function  
  <br/> 
  <br/>    Private Function Euler(ByRef pLngPHI, ByRef pLngKey)  
  <br/> 
  <br/>        Dim lLngR(3)  
  <br/>        Dim lLngP(3)  
  <br/>        Dim lLngQ(3)  
  <br/> 
  <br/>        Dim lLngCounter  
  <br/>        Dim lLngResult  
  <br/> 
  <br/>        Euler = 0  
  <br/> 
  <br/>        lLngR(1) = pLngPHI: lLngR(0) = pLngKey  
  <br/>        lLngP(1) = 0: lLngP(0) = 1  
  <br/>        lLngQ(1) = 2: lLngQ(0) = 0  
  <br/> 
  <br/>        lLngCounter = -1  
  <br/> 
  <br/>        Do Until lLngR(0) = 0  
  <br/> 
  <br/>            lLngR(2) = lLngR(1): lLngR(1) = lLngR(0)  
  <br/>            lLngP(2) = lLngP(1): lLngP(1) = lLngP(0)  
  <br/>            lLngQ(2) = lLngQ(1): lLngQ(1) = lLngQ(0)  
  <br/> 
  <br/>            lLngCounter = lLngCounter + 1  
  <br/> 
  <br/>            lLngR(0) = lLngR(2) Mod lLngR(1)  
  <br/>            lLngP(0) = ((lLngR(2)\lLngR(1)) * lLngP(1)) + lLngP(2)  
  <br/>            lLngQ(0) = ((lLngR(2)\lLngR(1)) * lLngQ(1)) + lLngQ(2)  
  <br/> 
  <br/>        Loop  
  <br/> 
  <br/>        lLngResult = (pLngKey * lLngP(1)) - (pLngPHI * lLngQ(1))  
  <br/> 
  <br/>        If lLngResult > 0 Then  
  <br/>            Euler = lLngP(1)  
  <br/>        Else  
  <br/>            Euler = Abs(lLngP(1)) + pLngPHI  
  <br/>        End If  
  <br/> 
  <br/>    End Function  
  <br/> 
  <br/>    Public Function Crypt(pLngMessage, pLngKey)  
  <br/>        On Error Resume Next  
  <br/>        Dim lLngMod  
  <br/>        Dim lLngResult  
  <br/>        Dim lLngIndex  
  <br/>        If pLngKey Mod 2 = 0 Then  
  <br/>            lLngResult = 1  
  <br/>            For lLngIndex = 1 To pLngKey / 2  
  <br/>                lLngMod = (pLngMessage ^ 2) Mod Modulus  
  <br/>                ' Mod may error on key generation  
  <br/>                lLngResult = (lLngMod * lLngResult) Mod Modulus   
  <br/>                If Err Then Exit Function  
  <br/>            Next  
  <br/>        Else  
  <br/>            lLngResult = pLngMessage  
  <br/>            For lLngIndex = 1 To pLngKey / 2  
  <br/>                lLngMod = (pLngMessage ^ 2) Mod Modulus  
  <br/>                On Error Resume Next  
  <br/>                ' Mod may error on key generation  
  <br/>                lLngResult = (lLngMod * lLngResult) Mod Modulus  
  <br/>                If Err Then Exit Function  
  <br/>            Next  
  <br/>        End If  
  <br/>        Crypt = lLngResult  
  <br/>    End Function  
  <br/> 
  <br/>    Private Function IsPrime(ByRef pLngNumber)  
  <br/>        Dim lLngSquare  
  <br/>        Dim lLngIndex  
  <br/>        IsPrime = False  
  <br/>        If pLngNumber         If pLngNumber Mod 2 = 0 Then Exit Function  
  <br/>        lLngSquare = Sqr(pLngNumber)  
  <br/>        For lLngIndex = 3 To lLngSquare Step 2  
  <br/>            If pLngNumber Mod lLngIndex = 0 Then Exit Function  
  <br/>        Next  
  <br/>        IsPrime = True  
  <br/>    End Function  
  <br/> 
  <br/>    Public Function Encode(ByVal pStrMessage)  
  <br/>        Dim lLngIndex  
  <br/>        Dim lLngMaxIndex  
  <br/>        Dim lBytAscii  
  <br/>        Dim lLngEncrypted  
  <br/>        lLngMaxIndex = Len(pStrMessage)  
  <br/>        If lLngMaxIndex = 0 Then Exit Function  
  <br/>        For lLngIndex = 1 To lLngMaxIndex  
  <br/>            lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))  
  <br/>            lLngEncrypted = Crypt(lBytAscii, PublicKey)  
  <br/>            Encode = Encode & NumberToHex(lLngEncrypted, 4)  
  <br/>        Next  
  <br/>    End Function  
  <br/> 
  <br/>    Public Function Decode(ByVal pStrMessage)  
  <br/>        Dim lBytAscii  
  <br/>        Dim lLngIndex  
  <br/>        Dim lLngMaxIndex  
  <br/>        Dim lLngEncryptedData  
  <br/>        Decode = ""  
  <br/>        lLngMaxIndex = Len(pStrMessage)  
  <br/>        For lLngIndex = 1 To lLngMaxIndex Step 4  
  <br/>            lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))  
  <br/>            lBytAscii = Crypt(lLngEncryptedData, PrivateKey)  
  <br/>            Decode = Decode & Chr(lBytAscii)  
  <br/>        Next  
  <br/>    End Function  
  <br/> 
  <br/>    Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)  
  <br/>        NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)  
  <br/>    End Function  
  <br/> 
  <br/>    Private Function HexToNumber(ByRef pStrHex)  
  <br/>        HexToNumber = CLng("&h" & pStrHex)  
  <br/>    End Function  
  <br/> 
  <br/>End Class  
  <br/>%>  
  <br/> 
 </code></pre>    :http://www.cnaspol.com/myrsa/test.asp 
 <br/> 
 <div class="clearfix"> 
  <span id="art_bot" class="jbTestPos"/> 
 </div> 
</div>
                            </div>
                        </div>

QCon2014: Cloud Design Pattern Azure 版

azure website移行作業つまった処メモ

Public Key	">
Private Key	">
Modulus	">
Test Message: <br/> </td> <br/> </tr> <br/> <tr> <br/> <td> <br/> <input/> <br/> <input/> <br/> </td> <br/> </tr> <br/> </table> <br/> </form> <br/> <br/> <br/> </code></pre> <br/> <br/> <br/> <strong>clsrsa.asp</strong> <br/> <br/> <pre><code> <br/>rem rsa vbs <br/>rem : asp vbs rsa <br/>rem :yanek <br/>rem :aspboy@263.net <br/> <br/>' RSA Encryption Class <br/>' <br/>' .PrivateKey <br/>' Your personal private key. Keep this hidden. <br/>' <br/>' .PublicKey <br/>' Key for others to encrypt data with. <br/>' <br/>' .Modulus <br/>' Used with both public and private keys when encrypting <br/>' and decrypting data. <br/>' <br/>' .GenKey() <br/>' Creates Public/Private key set and Modulus <br/>' <br/>' .Crypt(pLngMessage, pLngKey) <br/>' Encrypts/Decrypts message and returns <br/>' as a string. <br/>' <br/>' .Encode(pStrMessage) <br/>' Encrypts message and returns in double-hex format <br/>' <br/>' .Decode(pStrMessage) <br/>' Decrypts message from double-hex format and returns a string <br/>' <br/>Class clsRSA <br/> <br/> Public PrivateKey <br/> Public PublicKey <br/> Public Modulus <br/> <br/> Public Sub GenKey() <br/> Dim lLngPhi <br/> Dim q <br/> Dim p <br/> <br/> Randomize <br/> <br/> Do <br/> Do <br/> <br/> ' 2 random primary numbers (0 to 1000) <br/> Do <br/> p = Rnd * 1000 \ 1 <br/> Loop While Not IsPrime(p) <br/> <br/> Do <br/> q = Rnd * 1000 \ 1 <br/> Loop While Not IsPrime(q) <br/> <br/> <br/> ' n = product of 2 primes <br/> Modulus = p * q \ 1 <br/> <br/> ' random decryptor (2 to n) <br/> PrivateKey = Rnd * (Modulus - 2) \ 1 + 2 <br/> <br/> lLngPhi = (p - 1) * (q - 1) \ 1 <br/> PublicKey = Euler(lLngPhi, PrivateKey) <br/> <br/> Loop While PublicKey = 0 Or PublicKey = 1 <br/> <br/> ' Loop if we can't crypt/decrypt a byte <br/> Loop While Not TestCrypt(255) <br/> <br/> End Sub <br/> <br/> Private Function TestCrypt(ByRef pBytData) <br/> Dim lStrCrypted <br/> lStrCrypted = Crypt(pBytData, PublicKey) <br/> TestCrypt = Crypt(lStrCrypted, PrivateKey) = pBytData <br/> End Function <br/> <br/> Private Function Euler(ByRef pLngPHI, ByRef pLngKey) <br/> <br/> Dim lLngR(3) <br/> Dim lLngP(3) <br/> Dim lLngQ(3) <br/> <br/> Dim lLngCounter <br/> Dim lLngResult <br/> <br/> Euler = 0 <br/> <br/> lLngR(1) = pLngPHI: lLngR(0) = pLngKey <br/> lLngP(1) = 0: lLngP(0) = 1 <br/> lLngQ(1) = 2: lLngQ(0) = 0 <br/> <br/> lLngCounter = -1 <br/> <br/> Do Until lLngR(0) = 0 <br/> <br/> lLngR(2) = lLngR(1): lLngR(1) = lLngR(0) <br/> lLngP(2) = lLngP(1): lLngP(1) = lLngP(0) <br/> lLngQ(2) = lLngQ(1): lLngQ(1) = lLngQ(0) <br/> <br/> lLngCounter = lLngCounter + 1 <br/> <br/> lLngR(0) = lLngR(2) Mod lLngR(1) <br/> lLngP(0) = ((lLngR(2)\lLngR(1)) * lLngP(1)) + lLngP(2) <br/> lLngQ(0) = ((lLngR(2)\lLngR(1)) * lLngQ(1)) + lLngQ(2) <br/> <br/> Loop <br/> <br/> lLngResult = (pLngKey * lLngP(1)) - (pLngPHI * lLngQ(1)) <br/> <br/> If lLngResult > 0 Then <br/> Euler = lLngP(1) <br/> Else <br/> Euler = Abs(lLngP(1)) + pLngPHI <br/> End If <br/> <br/> End Function <br/> <br/> Public Function Crypt(pLngMessage, pLngKey) <br/> On Error Resume Next <br/> Dim lLngMod <br/> Dim lLngResult <br/> Dim lLngIndex <br/> If pLngKey Mod 2 = 0 Then <br/> lLngResult = 1 <br/> For lLngIndex = 1 To pLngKey / 2 <br/> lLngMod = (pLngMessage ^ 2) Mod Modulus <br/> ' Mod may error on key generation <br/> lLngResult = (lLngMod * lLngResult) Mod Modulus <br/> If Err Then Exit Function <br/> Next <br/> Else <br/> lLngResult = pLngMessage <br/> For lLngIndex = 1 To pLngKey / 2 <br/> lLngMod = (pLngMessage ^ 2) Mod Modulus <br/> On Error Resume Next <br/> ' Mod may error on key generation <br/> lLngResult = (lLngMod * lLngResult) Mod Modulus <br/> If Err Then Exit Function <br/> Next <br/> End If <br/> Crypt = lLngResult <br/> End Function <br/> <br/> Private Function IsPrime(ByRef pLngNumber) <br/> Dim lLngSquare <br/> Dim lLngIndex <br/> IsPrime = False <br/> If pLngNumber If pLngNumber Mod 2 = 0 Then Exit Function <br/> lLngSquare = Sqr(pLngNumber) <br/> For lLngIndex = 3 To lLngSquare Step 2 <br/> If pLngNumber Mod lLngIndex = 0 Then Exit Function <br/> Next <br/> IsPrime = True <br/> End Function <br/> <br/> Public Function Encode(ByVal pStrMessage) <br/> Dim lLngIndex <br/> Dim lLngMaxIndex <br/> Dim lBytAscii <br/> Dim lLngEncrypted <br/> lLngMaxIndex = Len(pStrMessage) <br/> If lLngMaxIndex = 0 Then Exit Function <br/> For lLngIndex = 1 To lLngMaxIndex <br/> lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) <br/> lLngEncrypted = Crypt(lBytAscii, PublicKey) <br/> Encode = Encode & NumberToHex(lLngEncrypted, 4) <br/> Next <br/> End Function <br/> <br/> Public Function Decode(ByVal pStrMessage) <br/> Dim lBytAscii <br/> Dim lLngIndex <br/> Dim lLngMaxIndex <br/> Dim lLngEncryptedData <br/> Decode = "" <br/> lLngMaxIndex = Len(pStrMessage) <br/> For lLngIndex = 1 To lLngMaxIndex Step 4 <br/> lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) <br/> lBytAscii = Crypt(lLngEncryptedData, PrivateKey) <br/> Decode = Decode & Chr(lBytAscii) <br/> Next <br/> End Function <br/> <br/> Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) <br/> NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) <br/> End Function <br/> <br/> Private Function HexToNumber(ByRef pStrHex) <br/> HexToNumber = CLng("&h" & pStrHex) <br/> End Function <br/> <br/>End Class <br/>%> <br/> </code></pre> :http://www.cnaspol.com/myrsa/test.asp <br/> <div class="clearfix"> <span id="art_bot" class="jbTestPos"/> </div> </div> </div> </div>