• 쇼핑몰
  • 커뮤니티
  • 북마크

vb.net




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

하나를하더라도최선을
2020.09.22 23:34 158 0

본문



    '// 복호화
    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
 




댓글목록 0

등록된 댓글이 없습니다.