home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CASIOCOL.ZIP / KRILE1C.ZIP / SOURCE.ZIP / TEST1.ASI < prev    next >
Text File  |  1997-12-05  |  693b  |  41 lines
  1. infected=0
  2. filename$="c:\commaddn\command.com"
  3. notouch$="command"
  4. gosub do_not_touch:
  5. print file_name$
  6. print infected
  7. end
  8. do_not_touch:
  9. rem Make sure the following files are NOT infected or
  10. rem otherwise tampered with.  This routine actually
  11. rem seperates the filename from its path and extension
  12. rem then proceeds to compare it.
  13. a$=filename$
  14. b=len(a$)
  15. b=b-4
  16. b$=left$(a$,b)
  17. print b$
  18. b=len(b$)
  19. d=varptr(b$)
  20. c=d+b
  21. e=-1
  22. exit=0
  23. while exit=0
  24. a=peek(c)
  25. a$=chr$(a)
  26. if a$="\" then
  27. exit=1
  28. else
  29. e=e+1
  30. c=c-1
  31. endif
  32. wend
  33. file_name$=right$(b$,e)
  34. file_name$=ucase$(file_name$)
  35. notouch$=ucase$(notouch$)
  36. b=instr(file_name$,notouch$)
  37. if b>0 then
  38. infected=1
  39. endif
  40. return
  41.