• Home
 · 
• Encryption
 · 
• Simple way to detect if your file has been edited with hexeditor or any other way. You can enhance

Simple way to detect if your file has been edited with hexeditor or any other way. You can enhance

Simple way to detect if your file has been edited with hexeditor or any other way. You can enhance it with encryption and many other ways.

Rate Simple way to detect if your file has been edited with hexeditor or any other way. You can enhance

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'This code is simple way to detect if your file has been edited with
'hexeditor or otherway.
'This saves the listbox file to same direct as the application with
'the name test.txt it checks the data and creates a checknumber out of them
'and saves it to first line of file.
'when loading file it loads the number from the file and calculates a new one
'if the numbers does not match, file has been edited

'this is actually tutorial purposes only so it only uses the first letter of the
'list item so if you edit the second letter in row it doesn't know that
'you can also encrypt the file before saving and then decrypt and check.

'any comments? E-mail me at [email protected]
'if you wish to use this code in your apps.
'please let me know. I'd like to know what kind of app
'you make that has use for my lil app


'Add Command button named Command1 to the form  (Load button)
'Add Command button named Command2 to the form  (Save Button)
'Add Listbox named List1 to the form            (Data showing)

'Then just simply add the following code to your form

Private Sub Command1_Click() 'Load button
On Error GoTo error
List1.Clear

Dim Buffa As Integer
Buffa = 0
Dim Checknum As Integer
Dim i As Integer
Dim a As String

Open App.Path & "\test.txt" For Input As #1
Input #1, Checknum  'retrieve first line of file which is the Checknumber
Do Until EOF(1)
Input #1, a         'retrieve rest of the data to the list box
List1.AddItem a
Loop
Close 1

For i = 0 To List1.ListCount - 1
Buffa = Buffa * 1 + Asc(List1.List(i))  'calculates the new checknumber
Next

If Buffa = Checknum Then        'if Buffa and Checknum matches the file has not been eidited
MsgBox ("Not edited")
Else
MsgBox ("File has been edited") 'and if doesn't match then file has been edited
End If

Exit Sub
error:
Dim x As Integer

x = MsgBox("File Not Found", vbOKOnly, "Error")

End Sub

Private Sub Command2_Click() 'Save button
On Error GoTo error
Dim Buffer As Integer
Dim i As Integer

For i = 0 To List1.ListCount - 1
Buffer = Buffer * 1 + Asc(List1.List(i))    'creates the checknumber for the file
Next
Dim a As String
Open App.Path & "\test.txt" For Output As #1
Print #1, Buffer                            'saves the checknumber for the first row of the file

For i = 0 To List1.ListCount - 1
a = List1.List(i)                       'saves rest of the data
Print #1, a
Next

Close 1
Exit Sub
error:
Dim x As Integer

x = MsgBox("There has been a error!", vbOKOnly, "Error")
End Sub

Private Sub Form_Load()
'adds just some data to save
List1.AddItem ("Info 1")
List1.AddItem ("Info 2")
List1.AddItem ("Info 3")
List1.AddItem ("Info 4")
List1.AddItem ("More Info")
List1.AddItem ("Just info")
List1.AddItem ("last info")
End Sub