[무료] 파일 암호걸기
하나를하더라도최선을
2023-11-02 12:04
520
0
0
0
-
- 첨부파일 : secret v1.0.zip (797.2K) - 다운로드
본문
파일에 알집등을 통해 암호를 걸 수 있으나 그와 다른 방법으로 파일 암호화 프로그램을 이용할 수 있습니다.
또한 아래와 같이 윈도우 기능을 이용할 수 있습니다.
Windows 10 파일을 암호화하는 방법
파일 암호화는 데이터를 암호화하여 데이터를 보호할 수 있습니다. 올바른 암호화 키(예: 비밀번호)를 가진 사람만 암호 해독이 가능합니다.
파일 암호화는 Windows 10 Home에서 사용할 수 없습니다.
파일 또는 폴더를 길게 누르거나 마우스 오른쪽 단추로 클릭한 다음 속성을 선택합니다.
고급 버튼을 선택한 다음 데이터 보호를 위해 내용을 암호화 확인란을 선택합니다.
확인을 선택하여 고급 특성 창을 닫고 적용을 선택한 다음 확인을 선택합니다.
이와같이 자물쇠 모양이 나오면서 암호화 됩니다.
다음으로 서두에 언급한 암호화 프로그램을 이용한 암호화 방법입니다. 첨부한 파일을 압축 해제합니다.
파일을 실행 시키고 폴더를 지정한다음 암호를 넣고 "Encryption"에 체크한다음 "적 용"을 눌러줍니다.
아래처럼 암호화 되어 이미지가 액뱍으로 표시되는걸 확인 할 수 있습니다.
반대로 "Decryption"을 체크하고 "적 용"을 눌러 복호화 해봅니다.
이미지 미리 보기가 정상적으로 표시되는 걸 확인하실 수 있습니다.
Public Shared Function Encrypt(ByVal input() As Byte, Optional ByVal pass As String = "") As Byte()
Dim AES As New System.Security.Cryptography.RijndaelManaged
Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
If pass.Length = 0 Then pass = enckey.ToUpper
Dim encrypted As String = ""
Try
Dim hash(31) As Byte
Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.Encoding.UTF8.GetBytes(pass))
Array.Copy(temp, 0, hash, 0, 16)
Array.Copy(temp, 0, hash, 15, 16)
AES.Key = hash
AES.Mode = Security.Cryptography.CipherMode.ECB
Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateEncryptor
Return DESEncrypter.TransformFinalBlock(input, 0, input.Length)
Catch ex As Exception
Return Nothing
End Try
End Function
Public Shared Function Decrypt(ByVal input() As Byte, Optional ByVal pass As String = "") As Byte()
Dim AES As New System.Security.Cryptography.RijndaelManaged
Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
If pass.Length = 0 Then pass = enckey.ToUpper
Dim decrypted As String = ""
Try
Dim hash(31) As Byte
Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.Encoding.UTF8.GetBytes(pass))
Array.Copy(temp, 0, hash, 0, 16)
Array.Copy(temp, 0, hash, 15, 16)
AES.Key = hash
AES.Mode = Security.Cryptography.CipherMode.ECB
Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor
Return DESDecrypter.TransformFinalBlock(input, 0, input.Length)
Catch ex As Exception
Return Nothing
End Try
End Function
0
0
로그인 후 추천 또는 비추천하실 수 있습니다.
댓글목록0