none
CryptEncrypt 加密功能 RRS feed

  • 問題

  •  

    請問有人試過這裡的範例嗎?

    http://support.microsoft.com/kb/821762/zh-tw

     

    密碼做加密出現的卻是亂碼,是正常的嗎?

     

    比如說原密碼是 "ZAQ11ZAQ"經過以下這段加密後得到的是 "?吋?        "

     

    If Not CBool(CryptEncrypt(lngkey, 0, 0, 0, strEncBuffer, lngEncDataLength, lngEnctBuffLen)) Then
            MsgBox "Bytes required:" & CStr(lngEnctBuffLen) & vbCrLf & vbCrLf & _
                   "Error: " & CStr(GetLastError) & " during CryptEncrypt!", _
                   vbExclamation Or vbOKOnly, "Encryption Errors"
            GoTo CleanUp
        End If

    2007年3月27日 上午 03:19

解答

  • 如果加密後還是明碼,那要加密做什麼 ...

    不過密碼建議是用雜湊法來處理,只是無法還原回原本的密碼,只能在驗證時對使用者輸入的密碼字串做雜湊,然後和儲存在資料庫中的雜湊碼做比對 .

    2007年3月27日 上午 03:24
    版主

所有回覆

  • 如果加密後還是明碼,那要加密做什麼 ...

    不過密碼建議是用雜湊法來處理,只是無法還原回原本的密碼,只能在驗證時對使用者輸入的密碼字串做雜湊,然後和儲存在資料庫中的雜湊碼做比對 .

    2007年3月27日 上午 03:24
    版主
  • 再請教微軟有VB6的雜湊加密法的範例嗎
    2007年3月27日 上午 03:53
  • 如何來加密字串在 Visual Basic 6.0

    http://support.microsoft.com/kb/821762/zh-tw

    2007年3月27日 上午 04:28
  • 如我第一次所問

     

    請問有人試過這裡的範例嗎?

    http://support.microsoft.com/kb/821762/zh-tw

     

    密碼做加密出現的卻是亂碼,是正常的嗎?

     

    比如說原密碼是 "ZAQ11ZAQ"經過以下這段加密後得到的是   "?吋?        " <-- 這樣加密後的值看起來怪怪的

     

    If Not CBool(CryptEncrypt(lngkey, 0, 0, 0, strEncBuffer, lngEncDataLength, lngEnctBuffLen)) Then
            MsgBox "Bytes required:" & CStr(lngEnctBuffLen) & vbCrLf & vbCrLf & _
                   "Error: " & CStr(GetLastError) & " during CryptEncrypt!", _
                   vbExclamation Or vbOKOnly, "Encryption Errors"
            GoTo CleanUp
        End If

    2007年3月28日 上午 01:16
  • 加密後的長相有這麼重要嗎 ?

    只要能夠還原回來,根本不必管加密後資料長什麼樣子吧 ?

    2007年3月28日 上午 04:52
    版主