본문 바로가기
카테고리 없음

[무료] 파일 쉽게 암호걸기

by IT HUB 2023. 11. 4.
728x90
반응형

파일에 알집등을 통해 암호를 걸 수 있으나 그와 다른 방법으로 파일 암호화 프로그램을 이용할 수 있습니다.

또한 아래와 같이 윈도우 기능을 이용할 수 있습니다.

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(31As Byte
        Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.Encoding.UTF8.GetBytes(pass))
        Array.Copy(temp, 0, hash, 016)
        Array.Copy(temp, 0, hash, 1516)
        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(31As Byte
        Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.Encoding.UTF8.GetBytes(pass))
        Array.Copy(temp, 0, hash, 016)
        Array.Copy(temp, 0, hash, 1516)
        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

 

2중, 3중 암호화 가능합니다

복호화 할때는 암호화한 반대로 복호화 하면 됩니다.

아래 순서로 암호화 할경우

1. 1234 로 암호화

2. 4567 로 암호화

복호화 순서

1. 4567 로 복호화

2. 1234 로 복호화

 

secret v1.0.zip
0.78MB

반응형

댓글