Bảo mật file excel bằng cách thay đổi nhị phân

[Vcoder180990]

Bạn dùng trương trình đọc hex của file

Để tìm địa chỉ thay đổi
Phục hồi trả về giá trị hex ban đầu

Private Sub SaveContents(Contents As Variant, FilePath As String)
End Sub
Private Sub Form_Load()
On Error Resume Next

Dim FileNum As Integer

FileNum = FileSystem.FreeFile()

Open App.Path & "Audition.exe" For Binary As FileNum
Put #FileNum, &H42CB73, &H2020
Put #FileNum, &H42CB74, &H2020

Close FileNum

End Sub

 

[Maika8008]

Bạn dùng trương trình đọc hex của file

Chắc viết lộn, hình như phải là "trương phình" mới đúng.

 

[VetMini]

Rồi bạn có hứa để vậy hay ngày mai xóa bố nó mất. Tôi chạy code bị vi rút lấy đâu ra bằng chứng để kiện bạn?