Code archives/BlitzPlus Gui/File Viewer-Modification Checker

This code has been declared by its author to be Public Domain code.

Download source code

File Viewer-Modification Checker by Luke111
(Posted 18 years ago)
Nanotech Industries Check(NT Check) v1.0.0 Product Update 0.0.1
Checks the user-specified file for modifications in bytes. This can be caused by remote use, viruses, and full computer hijacking. This is a very useful program. It is FREEWARE on code but YOU HAVE TO HAVE MY PERMISSION TO SELL AS A .EXE FILE It also loads the user-specified file for viewing for the user-specified time period In Seconds. It also does all of this when running with directories. This IS NOT RECCOMENDED FOR CONTINUALLY CHECKING THE "C:\" DRIVE 
;Check http://nanotechindustries.spaces.live.com/ for New Products, and Product Updates
;NT Check 1.0.0
Print "___________________________"
Print "|NT Check 1.0.0 UP 0.0.1  |"
Print "|Nanotech Industries, 2009|"
Print "---------------------------"
AppTitle "NT Check 1.0.0"
.start
option1$=Input$("View | Check - ")
If option1$="View" Or option1$="view" Then
	Goto loadbyte
EndIf
If option1$="Check" Or option1$="check" Then
	Goto cbyte
EndIf
.loadbyte
filename$=Input$("Please Enter The Path, Filename, & Extension For The Viewing - ")
time$=Input$("Please Enter The Time To View The File In Seconds - ")
open=OpenFile(filename$)
Goto nxtload
.nxtload
Print ReadLine$(open)
If Eof(open)<>1 Then
	Goto nxtload
EndIf
If Eof(open)=1 Then
	Goto nxtload2
EndIf
.nxtload2
CloseFile(open)
Goto nxtload3
.nxtload3
Delay time$+"000" 
End

.cbyte
filename2$=Input$("Please Enter The Path, Filename, & Extension For The File - ")
time2$=Input$("Please Enter The Time Between Checks For Modification In Seconds - ")
If FileType(filename2$)=0 Then
	RuntimeError "Error: File Not Found"
EndIf
If FileType(filename2$)=1 Then
	Print "File Found"
EndIf
If FileType(filename2$)=2 Then
	Proceed("File Is A Directory. Proceed?",False)
EndIf
.nxtcbyte
orginsize$=FileSize(filename2$)
Print FileSize(filename2$)+" Bytes"
.nxtcbyte2
If FileSize(filename2$)<>orginsize$ Then
	Print "File Has Been Modified"
	Proceed("File Has Been Modified!",True)
	Goto nxtcbyte
EndIf
If FileSize(filename2$)=orginsize$ Then
	Print "File Not Modified"
	Delay time2$+"000"
	Goto nxtcbyte2
EndIf

Comments

TaskMaster
(Posted 18 years ago)
LOL

You know any code posted in the code archives is Public Domain by default...

If you do not want it to be public domain, post it in another section of the forums.

Also, that is a pretty simple bit of code for you to be so protective.

Also, all you are doing is checking for file size change. You know, you could easily do a MD5 or CRC on the file and know if it changed, even if it is the same size, but the content changed...

You could also check modified date/times...

Code Archives Forum