XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:programs to Änderungen protect and hereon react (Prüfsumme)##############################################Program-Module to Aendereungen schützenbzw. on Änderungen in whom Modulen react.##############################################DEF MapFileAndCheckSum(3) ! Imagehlp,MapFileAndCheckSumADeclare File$,HeadSum&,CheckSum&Let File$ = Test.txtMapFileAndCheckSum(Addr(File$),addr(Headsum&),addr(Checksum&))If Checksum& <> 26821        @Messagebox(ZUVIEL GEHACKT !,HACKER-ANGRIFF...,16)elsehier GEHTS then weiterPrint everything in Butterendifprint checksum&waitinputend