LockXLS - Chương trình bảo vệ an toàn cho các file bảng tính Excel

Kiều Mạnh · 15/8/15

seikoqn đã viết:
Bạn kieu manh có thể cho tôi và các thành viên khác trên diễn đàn biết nội dung đoạn code tôi viết trong File này được không(Bạn được sử dụng trình dịch mà bạn nói).
http://www.mediafire.com/download/fxwqsxmofydx07l/KieuManh.exe

Code Lọc số điện thoại và tìm Sảnh của Bạn Nè Coi đi nha

PHP:

Public Sub loc()
Dim i As Long, j As Long, d As Long, a As Long, data As Range, kq(), n As Long, t As Variant, Lr As Long
t = Time
Lr = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
Set data = Sheet1.Range("A2:A" & Lr): n = data.Rows.Count
ReDim kq(1 To n, 1 To 1)
For i = 1 To n
d = 0
For j = 1 To Len(data(i, 1))
    If Val(Mid(data(i, 1), j, 1)) + 1 = Val(Mid(data(i, 1), j + 1, 1)) And Val(Mid(data(i, 1), j + 1, 1)) + 1 = Val(Mid(data(i, 1), j + 2, 1)) And Val(Mid(data(i, 1), j + 2, 1)) + 1 <> Val(Mid(data(i, 1), j + 3, 1)) Then
 d = d + 1
Next j
If d = 2 Then
    a = a + 1: kq(a, 1) = "'" & data(i, 1)
End If
Next i
Sheet1.Range("B2:B60000").ClearContents
Sheet1.Range("B2").Resize(a, 1) = kq
MsgBox "Hoan thanh trong " & Time - t & " giay"
End Sub

Hau151978 · 15/8/15

kieu manh đã viết:
Mình hướng dẫn cho bạn một lần rồi tự bạn suy ngẫm nha ... ko có lần 2 nha và ko nói qua lại nữa
VD: Bạn để File *.xlsm trong D:\Test\*.xlsm

Khi bạn mở chương trình Lockxls lên Chuyển File Excel sang *.exe thì nó tạo ra một Folder tên Là:

Locked trong cùng thư mục ....xong Bạn copy File đó ra cùng Folder với File *.xlsm xong mở File

*.exe lên mà coi code

Nói vậy cho Bạn biết điểm yếu nhất của nó về bảo mật.... thôi không bàn nữa

Mình chưa hiểu, nếu chạy 2 file cùng lúc thì nội dung của file exe sẽ bị thay bởi file xlsm. Khi đó làm sao còn code được?

doveandrose · 15/8/15

bạn ấy quả là biết chọn mặt gửi vàng . tên nào không đặt đặt đúng tên Kiều Mạnh . há há
phải chi bạn í đặt tên file là doveandrose.exe chắc chả ai biết bạn ấy viết code gì =))

Kiều Mạnh · 15/8/15

Thêm Nữa nè..............Thường thôi

PHP:

Public Sub aaa()
    MsgBox "Kieu Manh Gioi Qua! Kham Phuc!"
End Sub

Kiều Mạnh · 15/8/15

Hau151978 đã viết:
Mình chưa hiểu, nếu chạy 2 file cùng lúc thì nội dung của file exe sẽ bị thay bởi file xlsm. Khi đó làm sao còn code được?

Vậy mới là kiều mạnh chớ.......... đã hông Bạn Tốt
Mình gọi Bạn là bạn Tốt vì nhờ Bạn mà mình Biết sử dụng auly và biết hách sau Vụ CDkey Mà Bạn Hack

Kiều Mạnh · 15/8/15

vậy là từ nay lockxls trên GPE hãy quên đi nha ....chuyện Quá nhỏ

Hau151978 · 15/8/15

Đầu tiên tạo file xlsm cùng tên và folder nhưng không chạy nó. Chạy file exe rồi bấm Save thì nội dung file exe sẽ lưu sang file xlsm, copy file xlsm sang file khác trước khi đóng file exe. File mới tạo sẽ có nội dung ban đầu, chỉ có code bị ẩn. Đến đây thì GG chắc là ra kết quả.

Kiều Mạnh · 15/8/15

Hau151978 đã viết:
Đầu tiên tạo file xlsm cùng tên và folder nhưng không chạy nó. Chạy file exe rồi bấm Save thì nội dung file exe sẽ lưu sang file xlsm, copy file xlsm sang file khác trước khi đóng file exe. File mới tạo sẽ có nội dung ban đầu, chỉ có code bị ẩn. Đến đây thì GG chắc là ra kết quả.

Bạn tải Bản dùng thử bài chuot cho link về quậy một hồi theo mình hướng dẫn là lòi ra thôi...

seikoqn · 15/8/15

Hau151978 đã viết:
Đầu tiên tạo file xlsm cùng tên và folder nhưng không chạy nó. Chạy file exe rồi bấm Save thì nội dung file exe sẽ lưu sang file xlsm, copy file xlsm sang file khác trước khi đóng file exe. File mới tạo sẽ có nội dung ban đầu, chỉ có code bị ẩn. Đến đây thì GG chắc là ra kết quả.

Mình vẫn chưa hiểu chỗ đậm đậm này lắm mong bạn nói rõ hơn!

seikoqn · 15/8/15

kieu manh đã viết:
Thêm Nữa nè..............Thường thôi

PHP:

Public Sub aaa() MsgBox "Kieu Manh Gioi Qua! Kham Phuc!" End Sub

Đúng là: "Kieu Manh Giỏi quá! Khâm phục! Khâm Phục!"

Hau151978 · 15/8/15

seikoqn đã viết:
Mình vẫn chưa hiểu chỗ đậm đậm này lắm mong bạn nói rõ hơn!

Mình không có excel 2007+ nên không test file trên được. Ví dụ file KieuManh.exe trong folder a, mở excel lên, save file excel trống dạng xlsm trong folder a đó, đặt tên là KieuManh.xlsm. Đóng excel - chạy file exe - bấm save - Copy file KieuManh.xlsm sang folder b khác - đóng file exe. Mở file KieuManh.xlsm trong folder b sẽ có nội dung của file exe, chỉ có code vẫn bị ẩn. Đến đây mình chưa biết cách xem code, để tìm đã.

giangleloi · 15/8/15

Nhờ các bạn mà biết được cách này. Nhưng tiếc cái là laptop công ty cấp, bị IT chặn mất tiêu. Mấy cái vụ *.exe là chẳng có User Domain để vô test. Nhớ bài để thuộc vậy. hihi. Còn cách xem code thì quá đơn giản. Bởi vậy mới có câu:"Chỉ phòng được với người ngay"

johnnylinhanh · 15/8/15

Hau151978 đã viết:
Mình không có excel 2007+ nên không test file trên được. Ví dụ file KieuManh.exe trong folder a, mở excel lên, save file excel trống dạng xlsm trong folder a đó, đặt tên là KieuManh.xlsm. Đóng excel - chạy file exe - bấm save - Copy file KieuManh.xlsm sang folder b khác - đóng file exe. Mở file KieuManh.xlsm trong folder b sẽ có nội dung của file exe, chỉ có code vẫn bị ẩn. Đến đây mình chưa biết cách xem code, để tìm đã.

Sao cái lúc copy file KieuManh.xlsm sang folder khác thì bị báo là không cho copy nhỉ?

Kiều Mạnh · 15/8/15

Lockxls là một phần mềm Bản quyền danh tiếng mà Bị Kiều Mạnh Hack cho tanh bành thật ngại quá.....
kiểu này lên trang chủ của nó keo nó dẹp đi quá.......... -=09=

Tặng cho các Bạn Toàn Bộ Code Lockxls

PHP:

#If VBA7 Then
Private Declare PtrSafe Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As LongPtrPrivate Declare PtrSafe Function GetProcAddress Lib "kernel32" (ByVal hModule As LongPtr, ByVal lpProcName As String) As LongPtr
Private Declare PtrSafe Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As LongPtr, ByVal hwnd As Object, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Object
#Else
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As LongPrivate Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Object, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Object
#End If
Dim g_oRuntime As Object
Dim g_oRibbonCustomUI As Object

Nhiều lắm Các Bạn tải File về mà Nghiên Cứu

nnd1988 · 15/8/15

kieu manh đã viết:

Lockxls là một phần mềm Bản quyền danh tiếng mà Bị Kiều Mạnh Hack cho tanh bành thật ngại quá.....
kiểu này lên trang chủ của nó keo nó dẹp đi quá.......... -=09=

Tặng cho các Bạn Toàn Bộ Code Lockxls

PHP:

#If VBA7 Then
Private Declare PtrSafe Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As LongPtrPrivate Declare PtrSafe Function GetProcAddress Lib "kernel32" (ByVal hModule As LongPtr, ByVal lpProcName As String) As LongPtr
Private Declare PtrSafe Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As LongPtr, ByVal hwnd As Object, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Object
#Else
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As LongPrivate Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Object, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Object
#End If
Dim g_oRuntime As Object
Dim g_oRibbonCustomUI As Object

Nhiều lắm Các Bạn tải File về mà Nghiên Cứu

Anh Kieu Manh giỏi quá! Anh ơi em muốn nhờ anh khám phá điều bí mật trong code của em được không ạ? Không phải làm khó anh đâu mà em muốn mở rộng tầm mắt thôi! Cảm ơn anh!
http://www.mediafire.com/download/qk4vuhoy5o2k5nj/hoi.exe

Kiều Mạnh · 15/8/15

nnd1988 đã viết:
Anh Kieu Manh giỏi quá! Anh ơi em muốn nhờ anh khám phá điều bí mật trong code của em được không ạ? Không phải làm khó anh đâu mà em muốn mở rộng tầm mắt thôi! Cảm ơn anh!
http://www.mediafire.com/download/qk4vuhoy5o2k5nj/hoi.exe

OK đồng ý

PHP:

Public Sub ecec()
Sheet1.Range("A1") = "Em Yeu Anh!"
End Sub

1 giây là xong

nnd1988 · 15/8/15

kieu manh đã viết:
OK đồng ý

PHP:

Public Sub ecec() Sheet1.Range("A1") = "Em Yeu Anh!" End Sub

1 giây là xong

Tuyệt vời "Em yêu anh!" }}}}}

Hau151978 · 15/8/15

Mình vẫn chưa hiểu, Sub SetupLockXLSRtmModule(sPath As String, sId As String), mình thử SPath là đường dẫn của file DLL nhưng khi chạy thử thì hLib=0, chương trình không trả về gì cả. Bạn Kiều Mạnh gợi ý thêm hay share luôn đi?
Hóa ra sPath là đường dẫn và file LockXLSRuntime.dll trong thư mục cài đặt LockXLS, nhưng SId mình vẫn chưa biết là gì?

namkpac · 16/8/15

kieu manh đã viết:
Lockxls là một phần mềm Bản quyền danh tiếng mà Bị Kiều Mạnh Hack cho tanh bành thật ngại quá....
Nhiều lắm Các Bạn tải File về mà Nghiên Cứu

Không thực hiện được có lẽ do may mắn chăng. Tui có làm thử theo cách trên ma ko được có thể bạn co tools hỗ trợ. Chứ theo hướng dẫn làm thì ko được

Kiều Mạnh · 16/8/15

namkpac đã viết:
Không thực hiện được có lẽ do may mắn chăng. Tui có làm thử theo cách trên ma ko được có thể bạn co tools hỗ trợ. Chứ theo hướng dẫn làm thì ko được

không có gì là may mắm cả ..... Bạn làm theo hướng dẫn thì chỉ mở được File bạn lock thôi ....còn muốn mở File người khác lock thì từ từ suy nghĩ đi nha............cơ bản từ hướng dẫn đó...xong

LockXLS - Chương trình bảo vệ an toàn cho các file bảng tính Excel

I don't program, I beat code into submission!!!

Thành viên tích cực

hello

I don't program, I beat code into submission!!!

I don't program, I beat code into submission!!!

I don't program, I beat code into submission!!!

Thành viên tích cực

I don't program, I beat code into submission!!!

Thành viên hoạt động

Thành viên hoạt động

Thành viên tích cực

Thành viên gắn bó

Thành viên thường trực

I don't program, I beat code into submission!!!

File đính kèm

Thành viên chính thức

I don't program, I beat code into submission!!!

Thành viên chính thức

Thành viên tích cực

Thành viên thường trực

I don't program, I beat code into submission!!!

Facebook

Group