Program

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

자작 프로그램

IT HUB를 찾아주셔서 감사합니다.

[무료] 파일 암호걸기

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 2,247회 작성일 23-11-02 12:04

본문

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


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


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

첨부파일

댓글목록

등록된 댓글이 없습니다.

Total 13건 1 페이지
  • RSS
자작 프로그램 목록
번호 제목 글쓴이 조회 추천 비추천 날짜
공지 하나를하더라도최선을 7338 0 0 12-14
공지 하나를하더라도최선을 6424 0 0 12-14
11 하나를하더라도최선을 2056 0 0 05-23
10 하나를하더라도최선을 1844 0 0 03-28
9 하나를하더라도최선을 2214 0 0 11-23
8 하나를하더라도최선을 2041 0 0 11-09
7 하나를하더라도최선을 2438 0 0 11-09
6 하나를하더라도최선을 2508 0 0 11-08
열람중 하나를하더라도최선을 2248 0 0 11-02
4 하나를하더라도최선을 5368 0 0 05-31
3 하나를하더라도최선을 8582 0 0 01-09
2 하나를하더라도최선을 5929 0 0 12-15
1 하나를하더라도최선을 10244 0 0 09-23
0 하나를하더라도최선을 6158 0 0 07-13

검색