Mã hóa dữ liệu sheet

Liên hệ QC

leo_maccomic

Thành viên mới
Tham gia
22/9/13
Bài viết
6
Được thích
0
Như tiêu đề, em có 1 file lưu thông tin cá nhân (sdt, stk, pass email.....) xin hỏi là có cách nào mã hóa dữ liệu của 1 sheet đó mà khi tình cờ có người có được file đó thì họ cũng ko thể biết dữ liệu đó là gì ko ạ?
em ko muốn đặt pass thông thường của excel vì em thấy có tool dò được pass đó ạ.
Cảm ơn cả nhà ạ.
 
Như tiêu đề, em có 1 file lưu thông tin cá nhân (sdt, stk, pass email.....) xin hỏi là có cách nào mã hóa dữ liệu của 1 sheet đó mà khi tình cờ có người có được file đó thì họ cũng ko thể biết dữ liệu đó là gì ko ạ?
em ko muốn đặt pass thông thường của excel vì em thấy có tool dò được pass đó ạ.
Cảm ơn cả nhà ạ.
Cách dễ nhất là đặt mật khẩu mở file, dài khoảng 20 ký tự. Người dùng bình thường không mở được. Cao thủ thì người ta không thèm mở. Hahahaha ....
 
Đã không muốn cho người ta biết thì gửi đi làm gì? @@

Đau đầu ghê nhỉ. Vậy mình không gửi, hoặc xóa đi là xong rồi.
 
Mình có cách này: Bạn mã hóa (đối xứng) dòng họ & tên như:
Người có tên là: "KHONG CO GI QUI DOC LAP TU DO'
ta mã hóa thành
B0FEA UF A1 IM1 0FE OFU CTH LM OF

ABCDE0
FGHIJ1KHONG CO GI QUI HON DOC LAP TU DO
KLMNO2
PQRST3
UVWXY4
Z56789
TRUONG
SA0123B0FEA UF A1 IM1 0FE OFU CTH LM OF
BCDEF4
HIJKL5
MPQVW6
XYZ
7​
89

Vì là đối xứng nên ta phải viết macro để dịch ngược lại;
 
cách của bác hay, mà em gà mờ nên ko áp dụng được ạ, mỗi lần quên mở ra mã hóa chắc tẩu hỏa nhập ma.hi
cảm ơn bác.
Bài đã được tự động gộp:

Mình có cách này: Bạn mã hóa (đối xứng) dòng họ & tên như:
Người có tên là: "KHONG CO GI QUI DOC LAP TU DO'
ta mã hóa thành
B0FEA UF A1 IM1 0FE OFU CTH LM OF

ABCDE0
FGHIJ1KHONG CO GI QUI HON DOC LAP TU DO
KLMNO2
PQRST3
UVWXY4
Z56789
TRUONG
SA0123B0FEA UF A1 IM1 0FE OFU CTH LM OF
BCDEF4
HIJKL5
MPQVW6
XYZ
7​
89

Vì là đối xứng nên ta phải viết macro để dịch ngược lại;
bác ơi, càng nhìn thấy càng hay, khi nào bác rảnh nhờ bác code giúp em cái macro mã hóa theo bảng này với ạ, cảm ơn bác nhiều
 
Lần chỉnh sửa cuối:
PHP:
Function MaHoa(STRC As String) As String
 Dim sRng As Range, dRng As Range, Cls As Range
 Dim J As Long:             Dim Tmp As String

 Set sRng = [B2:G7].CurrentRegion
 Set dRng = [c11].CurrentRegion
 MsgBox sRng.Address
 For J = 1 To Len(STRC)
    Tmp = Mid(STRC, J, 1)
    If Tmp = " " Then
        MaHoa = MaHoa & Tmp
    Else
        Set Cls = sRng.Find(Tmp, , xlFormulas, xlWhole)
        If Not Cls Is Nothing Then
            MaHoa = MaHoa & Cells(Cls.Row + 8, Cls.Column).Value
        Else
        End If
    End If
 Next J
End Function
 
Cách dễ nhất là đặt mật khẩu mở file, dài khoảng 20 ký tự. Người dùng bình thường không mở được. Cao thủ thì người ta không thèm mở. Hahahaha ....
Trên "cao thủ" người ta vẫn có thể tò mò. Theo bài #1 là có thông tin cá nhân. Cái này hắc-cơ rất khoái: biết đâu mò được địa chỉ, số phone bạn gái; hay hơn nữa, mật khẩu tài khoản băng; cả trăm thứ.
 
Ta có thể mã hóa dữ liệu Ngày-Tháng-Năm như trong bảng:

NgàyMã ngày
5/3/2021​
CS2
4/13/2021​
CRC
3/5/2020​
CE4
1/26/2018
BOP
12/18/2017
BNH
11/9/2016
BA8
10/2/2015​
AX1
8/24/2014​
AJN
7/16/2013​
A6F
6/7/2012​
9T6
4/30/2001​
63T
3/23/1990​
2EM
2/13/1989​
21C
1/7/1988​
1O6
11/30/1986​
1AT
10/23/1985​
0XM
9/15/1984​
0KE
8/9/1983​
078
7/2/1982​
#VALUE!​
 
Lần chỉnh sửa cuối:
Ta có thể mã hóa dữ liệu Ngày-Tháng-Năm như trong bảng:

NgàyMã ngày
5/3/2021​
CS2
4/13/2021​
CRC
3/5/2020​
CE4
1/26/2018
BOP
12/18/2017
BNH
11/9/2016
BA8
10/2/2015​
AX1
8/24/2014​
AJN
7/16/2013​
A6F
6/7/2012​
9T6
4/30/2001​
63T
3/23/1990​
2EM
2/13/1989​
21C
1/7/1988​
1O6
11/30/1986​
1AT
10/23/1985​
0XM
9/15/1984​
0KE
8/9/1983​
078
7/2/1982​
#VALUE!​
Xin chào bác, cảm ơn bác đã nhiệt tình giúp đỡ , em mày mò 2 ngày nay mà ko biết sử dụng code với bảng bác cho thế nào cả, em là dân không chuyên nên mạo muội nhờ bác có thể cho em 1 file ăn sẵn về em nghiên cứu với ạ. Em cảm ơn bác nhiều ạ.
 
........................ ... ..... ..................................
$$$$@
 

File đính kèm

  • Date.rar
    19 KB · Đọc: 8
Web KT
Back
Top Bottom