기타 [vb.net] 암호화/복호화(Encrypt / Decrypt)
페이지 정보
본문
'// 복호화
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
- 이전글[vb.net] VB.NET으로 이벤트 로그 생성 및 읽기, 쓰기 및 삭제 20.09.23
- 다음글[vb.net] WinHttp를 이용한 네이버 맞춤법 검사 20.09.22
댓글목록
등록된 댓글이 없습니다.