[무료] 파일 암호걸기 > 자작 프로그램

본문 바로가기

프로그램

[무료] 파일 암호걸기

회원사진
하나를하더라도최선을
2023-11-02 12:04 1,315 0 0 0
  • - 첨부파일 : secret v1.0.zip (797.2K) - 다운로드

본문



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


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


Windows 10 파일을 암호화하는 방법


파일 암호화는 데이터를 암호화하여 데이터를 보호할 수 있습니다. 올바른 암호화 키(예: 비밀번호)를 가진 사람만 암호 해독이 가능합니다. 

파일 암호화는 Windows 10 Home에서 사용할 수 없습니다.


파일 또는 폴더를 길게 누르거나 마우스 오른쪽 단추로 클릭한 다음 속성을 선택합니다.


고급 버튼을 선택한 다음 데이터 보호를 위해 내용을 암호화 확인란을 선택합니다.


확인을 선택하여 고급 특성 창을 닫고 적용을 선택한 다음 확인을 선택합니다.


3820f3ea458feaffe7c534cac09c06dc_1698893290_2011.png 이와같이 자물쇠 모양이 나오면서 암호화 됩니다.




다음으로 서두에 언급한 암호화 프로그램을 이용한 암호화 방법입니다. 첨부한 파일을 압축 해제합니다. 

3820f3ea458feaffe7c534cac09c06dc_1698893490_8568.png


파일을 실행 시키고 폴더를 지정한다음 암호를 넣고 "Encryption"에 체크한다음 "적   용"을 눌러줍니다.


3820f3ea458feaffe7c534cac09c06dc_1698893965_3775.png

아래처럼 암호화 되어 이미지가 액뱍으로 표시되는걸 확인 할 수 있습니다.


3820f3ea458feaffe7c534cac09c06dc_1698893780_341.png


반대로 "Decryption"을 체크하고 "적   용"을 눌러 복호화 해봅니다.


3820f3ea458feaffe7c534cac09c06dc_1698893763_8656.png

이미지 미리 보기가 정상적으로 표시되는 걸 확인하실 수 있습니다.

3820f3ea458feaffe7c534cac09c06dc_1698893779_7748.png
 



        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


0 0
로그인 후 추천 또는 비추천하실 수 있습니다.

댓글목록0

등록된 댓글이 없습니다.
전체 13 건 - 1 페이지
번호
제목
글쓴이
공지
회원사진 하나를하더라도최선을
2019-12-14
6,403
0
0
회원사진 하나를하더라도최선을
2019-12-14
회원사진 하나를하더라도최선을
2019-12-14
11
회원사진 하나를하더라도최선을
2024-05-23
647
0
0
회원사진 하나를하더라도최선을
2024-05-23
10
회원사진 하나를하더라도최선을
2024-03-28
1,001
0
0
회원사진 하나를하더라도최선을
2024-03-28
회원사진 하나를하더라도최선을
2023-11-23
회원사진 하나를하더라도최선을
2023-11-09
7
회원사진 하나를하더라도최선을
2023-11-09
1,343
0
0
회원사진 하나를하더라도최선을
2023-11-09
회원사진 하나를하더라도최선을
2023-11-08
열람
회원사진 하나를하더라도최선을
2023-11-02
1,316
0
0
회원사진 하나를하더라도최선을
2023-11-02
회원사진 하나를하더라도최선을
2021-05-31
회원사진 하나를하더라도최선을
2020-01-09
2
회원사진 하나를하더라도최선을
2019-12-15
4,945
0
0
회원사진 하나를하더라도최선을
2019-12-15
1
회원사진 하나를하더라도최선을
2019-09-23
9,402
0
0
회원사진 하나를하더라도최선을
2019-09-23
0
회원사진 하나를하더라도최선을
2019-07-13
5,359
0
0
회원사진 하나를하더라도최선을
2019-07-13
게시판 전체검색