C#

Question

에 포트 된 암호화 알고리즘을 시도 나는 다음과 같은 링크가 나를 크게 도움이되었다고 말함으로써 시작합니다 :

Translating Win32 Crypto API calls to C# with System.Security.Cryptography

을 자신의 수정은하지 않았다 제외하고 나는, 그가 보내고 같은 문제가 있어요 내 코드를 고쳐라.

Private Const ALG_CLASS_DATA_ENCRYPT = 24576& 
Private Const ALG_CLASS_HASH = 32768 
Private Const ALG_SID_3DES = 3& 
Private Const ALG_SID_SHA1 = 4& 
Private Const ALG_TYPE_ANY = 0& 
Private Const ALG_TYPE_BLOCK = 1536& 
Private Const CALG_3DES = (ALG_CLASS_DATA_ENCRYPT Or ALG_TYPE_BLOCK Or ALG_SID_3DES) 
Private Const CALG_SHA1 = (ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_SHA1) 
Private Const CRYPT_SILENT = &H40& 
Private Const CRYPT_VERIFYCONTEXT = &HF0000000 
Private Const MS_ENHANCED_PROV = "Microsoft Enhanced Cryptographic Provider v1.0" 
Private Const PROV_RSA_FULL = 1& 

Private Declare Function CryptAcquireContextApi Lib "advapi32.dll" Alias "CryptAcquireContextA" (ByRef phProv As Long, ByVal pszContainer As String, ByVal pszProvider As String, ByVal dwProvType As Long, ByVal dwFlags As Long) As Long 
Private Declare Function CryptCreateHashApi Lib "advapi32.dll" Alias "CryptCreateHash" (ByVal hProv As Long, ByVal Algid As Long, ByVal hKey As Long, ByVal dwFlags As Long, ByRef phHash As Long) As Long 
Private Declare Function CryptDecryptApi Lib "advapi32.dll" Alias "CryptDecrypt" (ByVal hKey As Long, ByVal hHash As Long, ByVal Final As Long, ByVal dwFlags As Long, ByRef pbData As Byte, ByRef pdwDataLen As Long) As Long 
Private Declare Function CryptDeriveKeyApi Lib "advapi32.dll" Alias "CryptDeriveKey" (ByVal hProv As Long, ByVal Algid As Long, ByVal hBaseData As Long, ByVal dwFlags As Long, ByRef phKey As Long) As Long 
Private Declare Function CryptDestroyHashApi Lib "advapi32.dll" Alias "CryptDestroyHash" (ByVal hHash As Long) As Long 
Private Declare Function CryptDestroyKeyApi Lib "advapi32.dll" Alias "CryptDestroyKey" (ByVal hKey As Long) As Long 
Private Declare Function CryptEncryptApi Lib "advapi32.dll" Alias "CryptEncrypt" (ByVal hKey As Long, ByVal hHash As Long, ByVal Final As Long, ByVal dwFlags As Long, ByRef pbData As Byte, ByRef pdwDataLen As Long, ByVal dwBufLen As Long) As Long 
Private Declare Function CryptGetHashParamApi Lib "advapi32.dll" Alias "CryptGetHashParam" (ByVal hHash As Long, ByVal dwParam As Long, pbData As Any, pdwDataLen As Long, ByVal dwFlags As Long) As Long 
Private Declare Function CryptHashDataApi Lib "advapi32.dll" Alias "CryptHashData" (ByVal hHash As Long, ByRef pbData As Byte, ByVal dwDataLen As Long, ByVal dwFlags As Long) As Long 
Private Declare Function CryptReleaseContextApi Lib "advapi32.dll" Alias "CryptReleaseContext" (ByVal hProv As Long, ByVal dwFlags As Long) As Long 
Private Declare Function CryptGetKeyParamApi Lib "advapi32.dll" Alias "CryptGetKeyParam" (ByVal hKey As Long, ByVal dwParam As Long, ByRef pbData As Byte, ByRef pdwDataLen As Long, dwFlags As Long) As Long 

Private Declare Sub CopyMemoryApi Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long) 

Function Encrypt(message As String, Password As String) As String 

    If CryptAcquireContextApi(provider, vbNullString, ProviderName, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT) = 0 Then 
     Goto Encrypt_Failure 
    End-If 
    If CryptCreateHashApi(provider, CALG_SHA1, 0&, 0&, hash) = 0 Then 
     Goto Encrypt_Failure 
    End-If 

    buffer = StrConv(Password, vbFromUnicode) 
    If CryptHashDataApi(hash, buffer(0), CLng(UBound(buffer) + 1), 0&) = 0 Then 
     GoTo Encrypt_Failure 
    End If 

    If CryptDeriveKeyApi(provider, CALG_3DES, hash, 1&, key) = 0 Then 
     key = 0 
     GoTo Encrypt_Failure 
    End If 

    length = Len(message) 
    bfrlen = length 
    If CryptEncryptApi(key, 0&, 1&, 0&, ByVal 0&, bfrlen, bfrlen) = 0 Then 
     GoTo Encrypt_Failure 
    End If 

    ReDim buffer(bfrlen - 1) 

    For i = 0 To length - 1 
     buffer(i) = Asc(Mid(message, i + 1, 1)) 
    Next i 

    If CryptEncryptApi(key, 0&, 1&, 0&, buffer(0), length, bfrlen) = 0 Then 
     GoTo Encrypt_Failure 
    End If 

    Call CryptDestroyKeyApi(key) 
    Call CryptReleaseContextApi(provider, 0) 

    Encrypt = left(StrConv(buffer, vbUnicode), length) 

Encrypt_Failure: 
    If key Then 
     Call CryptDestroyKeyApi(key) 
    End If 
    If hash Then 
     Call CryptDestroyHashApi(hash) 
    End If 
    If provider Then 
     Call CryptReleaseContextApi(provider, 0) 
    End If 

Exit Function 

여기에 새로운 C# 버전입니다 :

public byte[] Encrypt(string source, string pass) 
    { 
     byte[] password = Encoding.UTF8.GetBytes(pass); 
     byte[] resultArray = null; 
     byte[] streamToEncrypt = Encoding.UTF8.GetBytes(source); 

     if(streamToEncrypt.Length % 8 != 0) 
     { 
      byte[] inputArray = new byte[streamToEncrypt.Length + (8 - (streamToEncrypt.Length % 8))]; //add padding to the end to make the message groups of 8 bytes 
      int i = 0; 
      foreach (byte element in streamToEncrypt) 
      { 
       inputArray[i] = element; 
       i++; 
      } 
      streamToEncrypt = inputArray; 
     } 


     using (TripleDESCryptoServiceProvider prov3des = new TripleDESCryptoServiceProvider()) 
     { 

      prov3des.Mode = CipherMode.CBC; 
      prov3des.Padding = PaddingMode.PKCS7; 
      prov3des.IV = new byte[] { 0, 0, 0, 0, 0, 0, 0, 0 }; //8 bytes, zero-ed 

      using (PasswordDeriveBytes pdb = new PasswordDeriveBytes(password, null)) //No salt needed here 
      { 
       prov3des.Key = pdb.CryptDeriveKey("TripleDES", "SHA1", 168, new byte[] { 0, 0, 0, 0, 0, 0, 0, 0 }); 
      } 

      ICryptoTransform cTransform = prov3des.CreateEncryptor(); 
      resultArray = cTransform.TransformFinalBlock(streamToEncrypt,0,streamToEncrypt.Length); 

     } 

     return resultArray; 

    } 

가 그리고, 위의 링크 된 포스터처럼, 암호의 해시가 동일하고,

여기에 내 옛날 (VB6) 코드입니다 암호화 된 바이트 배열의 처음 8 바이트는 동일합니다. 초기화 벡터를 8 바이트로 설정했지만 암호화 된 데이터의 처음 8 바이트가 동일하면 초기화 벡터가 일치해야합니다. 나는 왜 다음 8 바이트가 다른지 알 수 없다. 내가 여기서 잘못하고있는 아이디어는?

감사합니다.

Answer 1

사실 아주 단순한 해결책이 있지만 분명하지는 않습니다. "이 데이터가 정확히 8의 배수가 아닌 경우 패드에 붙여 넣으십시오."라는 코드 블록이 있습니다. 그러나이 값은 이고 암호화하는 값은이므로 다른 결과가 나옵니다.

블록 if(streamToEncrypt.Length.Dump("Length") % 8 != 0) {} 전체를 제거하기 만하면 예상되는 결과가 나옵니다.

Answer 2

처음 8 바이트가 같고 나머지가 동일하지 않으면 원래 알고리즘과 다른 피드백 양식을 사용하는 것처럼 들립니다. 다른 값의 CipherMode를 사용해보십시오. 그 중 하나가 당신에게 일치하는지 알려줍니다.