XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:Programas antes Änderungen schützen y darauf reagieren (Prüfsumme)##############################################Programa-Module antes Aendereungen schützenbzw. en Änderungen en el 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 entonces weiterPrint Alles en Butterendifprint checksum&waitinputend