[vb.net] 암호화/복호화(Encrypt / Decrypt)

728x90

    '// 복호화
    Public Function Decrypt(ByVal cipherText As String, Optional key As String = "") As String
        If key.Length = 0 Then key = Application.ProductName
        Dim wrapper As New Simple3Des(key)
        Try
            Return wrapper.DecryptData(cipherText)
        Catch ex As System.Security.Cryptography.CryptographicException
            'MsgBox("The data could not be decrypted with the password.")
        End Try
        Return Nothing
    End Function
 
    '// 암호화
    Public Function Encrypt(ByVal plaintext As String, Optional key As String = "") As String
        If key.Length = 0 Then key = Application.ProductName
        Dim wrapper As New Simple3Des(key)
        Dim cipherText As String = wrapper.EncryptData(plaintext)
        Return cipherText
    End Function