home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / busi / pcode153.zip / PC-TAMP1.153 < prev    next >
Text File  |  1984-06-14  |  3KB  |  68 lines
  1.      REM --- T A M P E R      P R O O F I N G  ------
  2.      REM
  3.      REM     Compile with BASCOM/O/T/N  options
  4.      REM
  5.      DIM F$(6), SUM1#(6), SUM3#(6)
  6.      F$(1)="PC-CODE1.EXE" : F$(2)="PC-CODE1.153"
  7.      F$(3)="PC-CODE2.EXE" : F$(4)="PC-CODE2.153"
  8.      SUM1#(1)= 227639850# : SUM1#(2) = 91173293#
  9.      SUM1#(3)= 231634733# : SUM1#(4) = 85166763#
  10.      SUM3#(1)= 235822843# : SUM3#(2) = 70862855#
  11.      SUM3#(3)= 236040761# : SUM3#(4) = 69139578#
  12.      PRINT " Tamper PROOF verification check      PC-TAMP1 V1.53"
  13.      PRINT " ": PRINT " " : SUM2# = 0# : SUM4# = 0
  14.      PRINT " (1) Verify 'PC-CODE1.EXE' "
  15.      PRINT " (2) Verify 'PC-CODE1.153' "
  16.      PRINT " (3) Verify 'PC-CODE2.EXE' "
  17.      PRINT " (4) Verify 'PC-CODE2.153' "
  18.      PRINT " (5) Verify 'PC-TAMP1.EXE' "
  19. 1060 PRINT " " : PRINT " Enter which NUMBER to verify ";
  20.      INPUT N%
  21.      IF N% < 1 OR N% > 5 THEN PRINT " Enter a Number between 1 and 5 " : GOTO 1060
  22.      IF N% = 5 THEN CHAIN "PC-TAMP2.EXE"
  23.      FL$ = F$(N%)
  24.      OPEN "I",1,FL$
  25.      CLOSE 1
  26.      OPEN "R",1,FL$,128
  27.      SZ! = LOF(1)
  28.      SIZE% = SZ! / 128!
  29.      IF SZ! <> (SIZE% * 128!) THEN SIZE% = SIZE% + 1
  30.      FIELD #1, 128 AS SECTOR$
  31.      PRINT " "
  32.      COLOR 7+16,0
  33.      PRINT " * * *  R U N N I N G  * * *"
  34.      COLOR 7,0
  35.      FOR J%=1 TO SIZE%
  36.          GET 1, J%
  37.          FOR K%=1 TO 128
  38.              C%=ASC(MID$(SECTOR$,K%,1))
  39.              SUM2# = SUM2# + (C% * J%)
  40.              SUM4# = SUM4# + (C% * K%)
  41.          NEXT K%
  42.      NEXT J%
  43.      PRINT " ": PRINT " "
  44.      CLOSE 1
  45.      PRINT " Checked ";(SIZE% * 128!);" bytes of file: "; FL$
  46.      PRINT " File ";FL$;"  Security Check Sum1 Calculated ="; SUM2#
  47.      PRINT " File ";FL$;"  Security Check Sum1 should be  ="; SUM1#(N%)
  48.      PRINT " File ";FL$;"  Security Check Sum2 Calculated ="; SUM4#
  49.      PRINT " File ";FL$;"  Security Check Sum2 should be  ="; SUM3#(N%)
  50.      PRINT " "
  51.      IF SUM4# <> SUM3#(N%) THEN 1370
  52.      IF SUM2# = SUM1#(N%)  THEN 1500
  53. 1370 PRINT " "
  54.      PRINT "======================================================="
  55.      PRINT "S E C U R I T Y       A L E R T   /   V I O L A T I O N"
  56.      PRINT "======================================================="
  57.      PRINT " "
  58.      PRINT FL$; " HAS BEEN ALTERED OR MODIFIED AND PROGRAM MAY BE INSECURE"
  59.      END
  60. 1500 PRINT " File "; FL$;" <<< Appears A-OK >>>"
  61.      PRINT " ": PRINT " "
  62.      INPUT " Wish to Verify other Files (Y or N) ";Y$
  63.      Y$ = LEFT$(Y$,1)
  64.      IF Y$ = "y" THEN Y$="Y"
  65.      IF Y$ = "Y" THEN CHAIN "PC-TAMP1.EXE"
  66.      CHAIN "PC-MENU.EXE"
  67.      END
  68.