Ooops
November 28, 2020, 11:50:39 AM

Author Topic: [bb] File Viewer-Modification Checker by Luke111 [ 1+ years ago ]  (Read 582 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
Title : File Viewer-Modification Checker
Author : Luke111
Posted : 1+ years ago

Description : 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


Code :
Code: BlitzBasic
  1. ;Check http://nanotechindustries.spaces.live.com/ for New Products, and Product Updates
  2. ;NT Check 1.0.0
  3. Print "___________________________"
  4. Print "|NT Check 1.0.0 UP 0.0.1  |"
  5. Print "|Nanotech Industries, 2009|"
  6. Print "---------------------------"
  7. AppTitle "NT Check 1.0.0"
  8. .start
  9. option1$=Input$("View | Check - ")
  10. If option1$="View" Or option1$="view" Then
  11.         Goto loadbyte
  12. EndIf
  13. If option1$="Check" Or option1$="check" Then
  14.         Goto cbyte
  15. EndIf
  16. .loadbyte
  17. filename$=Input$("Please Enter The Path, Filename, & Extension For The Viewing - ")
  18. time$=Input$("Please Enter The Time To View The File In Seconds - ")
  19. open=OpenFile(filename$)
  20. Goto nxtload
  21. .nxtload
  22. Print ReadLine$(open)
  23. If Eof(open)<>1 Then
  24.         Goto nxtload
  25. EndIf
  26. If Eof(open)=1 Then
  27.         Goto nxtload2
  28. EndIf
  29. .nxtload2
  30. CloseFile(open)
  31. Goto nxtload3
  32. .nxtload3
  33. Delay time$+"000"
  34. End
  35.  
  36. .cbyte
  37. filename2$=Input$("Please Enter The Path, Filename, & Extension For The File - ")
  38. time2$=Input$("Please Enter The Time Between Checks For Modification In Seconds - ")
  39. If FileType(filename2$)=0 Then
  40.         RuntimeError "Error: File Not Found"
  41. EndIf
  42. If FileType(filename2$)=1 Then
  43.         Print "File Found"
  44. EndIf
  45. If FileType(filename2$)=2 Then
  46.         Proceed("File Is A Directory. Proceed?",False)
  47. EndIf
  48. .nxtcbyte
  49. orginsize$=FileSize(filename2$)
  50. Print FileSize(filename2$)+" Bytes"
  51. .nxtcbyte2
  52. If FileSize(filename2$)<>orginsize$ Then
  53.         Print "File Has Been Modified"
  54.         Proceed("File Has Been Modified!",True)
  55.         Goto nxtcbyte
  56. EndIf
  57. If FileSize(filename2$)=orginsize$ Then
  58.         Print "File Not Modified"
  59.         Delay time2$+"000"
  60.         Goto nxtcbyte2
  61. EndIf


Comments :


TaskMaster(Posted 1+ years ago)

 LOLYou 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...


em22(Posted 1+ years ago)

 "This is a very useful program."


plash(Posted 1+ years ago)

 ..Nice bump...


 

SimplePortal 2.3.6 © 2008-2014, SimplePortal