Mã hóa ký tự trong cell (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

spacemanforever

Thành viên hoạt động
Tham gia
8/10/08
Bài viết
113
Được thích
71
Chào GPE!
Trong cell A1 em có 4 ký tự: abcd có cách nào chuyển thành **** không??
Nghĩa là 1 ký tự tương ứng với 1 *.
Thanks and BR**~**
 
Đó là cell chứa dữ liệu bình thường thôi mà bạn.

Anh nói nó bình thường sao? đây là 1 cell trong phần mềm a-excel có chứa một số thông tin, thật ra em rất muốn học hỏi chứ không có ý định phá của một ai. em chỉ mong mọi người giúp em hiểu cái cách thức để làm được như vậy.
 
Upvote 0
Anh nói nó bình thường sao? đây là 1 cell trong phần mềm a-excel có chứa một số thông tin, thật ra em rất muốn học hỏi chứ không có ý định phá của một ai. em chỉ mong mọi người giúp em hiểu cái cách thức để làm được như vậy.
Vậy thì bạn hỏi người viết ra nó, mỗi 1 lập trình viên nếu muốn viết mã hóa dữ liệu thì họ sẽ tự chế ra cái mã hóa riêng cho họ để không ai có thể dịch ngược lại được ngoại trừ lập trình viên đó.
 
Upvote 0
Anh nói nó bình thường sao? đây là 1 cell trong phần mềm a-excel có chứa một số thông tin, thật ra em rất muốn học hỏi chứ không có ý định phá của một ai. em chỉ mong mọi người giúp em hiểu cái cách thức để làm được như vậy.

Muốn mã hóa mà nhìn dãy số đó thì làm được gì? Bạn phải tìm cách mã hóa cho riêng bạn.

Làm cho bạn một ví dụ đơn giản như sau, bạn sẽ thấy ti tỉ quy luật mà bạn sẽ tạo được, vậy thì việc giải mã có đơn giản không?.
Bạn tự nghiên cứu cách giải mã để lấy lại chuỗi gốc nhé.

Mã:
Sub Aaaaaa()
    Dim i As Long, chuoi As String
    chuoi = "ABCD EFGH"
    Dim x() As Byte, Y As String, Z As String
    x = StrConv(chuoi, vbFromUnicode)    ' Convert string.
    For i = 0 To UBound(x)
        If i = 0 Then
            Y = i & ", " & x(i) * 3
            Z = Chr(x(i) * 3)
        Else
            Y = Y & "|" & i & ", " & x(i) * 3
            Z = Z & Chr(x(i) * 3)
        End If
    Next
    MsgBox Y
    MsgBox Z
End Sub
 
Upvote 0
Muốn mã hóa mà nhìn dãy số đó thì làm được gì? Bạn phải tìm cách mã hóa cho riêng bạn.

Làm cho bạn một ví dụ đơn giản như sau, bạn sẽ thấy ti tỉ quy luật mà bạn sẽ tạo được, vậy thì việc giải mã có đơn giản không?.
Bạn tự nghiên cứu cách giải mã để lấy lại chuỗi gốc nhé.

Mã:
Sub Aaaaaa()
    Dim i As Long, chuoi As String
    chuoi = "ABCD EFGH"
    Dim x() As Byte, Y As String, Z As String
    x = StrConv(chuoi, vbFromUnicode)    ' Convert string.
    For i = 0 To UBound(x)
        If i = 0 Then
            Y = i & ", " & x(i) * 3
            Z = Chr(x(i) * 3)
        Else
            Y = Y & "|" & i & ", " & x(i) * 3
            Z = Z & Chr(x(i) * 3)
        End If
    Next
    MsgBox Y
    MsgBox Z
End Sub

Cảm ơn anh nhiều! em nghĩ anh cũng biết về a-excel. e thấy trên diễn đàn.
 
Upvote 0

Bài viết mới nhất

Back
Top Bottom