XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:Programme vor Änderungen schützen und darauf reagieren (Prüfsumme)##############################################Programm-Module vor Aendereungen schützenbzw. auf Änderungen in den Modulen reagieren.##############################################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 dann weiterPrint Alles in Butterendifprint checksum&waitinputend