[기타] [vb.net] 암호화/복호화(Encrypt / Decrypt)
하나를하더라도최선을
2020-09-22 23:34
7,463
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